
どなたかよろしくお願いします。
複数の営業所の売上を一つのエクセルシートに貼り付け、それを集計しています。
テンプレートでは入力規則で設定しているのですが、どうしても各人の入力方法がまちまちで、アルファベットを入力する列が全角・半角・太字になっていたり、数字の列が文字列になっていたりとバラバラなので、毎回直しています。なので貼り付けられても書式を統一出来ればと思います。
僕はあまり詳しくないのですが、入力規則でこの列は「半角英数字」と設定していても貼り付けたらそれになってしまうので、貼り付けられても書式が変わらないように、もしくはテンプレートの段階で書式を変更出来ないようにするにはVBAなどで設定すればそれは回避できるのでしょうか。
お手数ですが、よろしくお願い致します。
No.5ベストアンサー
- 回答日時:
#4です
>B列 半角数字
>C・H・K列 半角英字
B・C・H・K列を処理対象にしました
数値と英字の区別がありますが、考慮していません
B列ですが、数字以外の入力があった場合にどうする?
条件が曖昧なので、対象列に半角に変換できる全角文字・数字が入力された場合は、半角に変換するのままです
>共通:フォントサイズ 14 標準 文字黒・背景色なし
これはExcelの機能の「スタイル」をマクロで適応しているだけなので
簡単な「スタイル」の設定方法のみにします
[Alt]+[O](オーです)
[ALT]+[S]
スタイルの設定画面が開きます
スタイル名を「コピペ」としてください
(マクロの中でスタイル名「コピペ」を使用するように変更したため)
変更ボタンで各項目の設定をする
各項目の設定後、スタイルの設定画面で変更の必要の無いチェックボックスのチェックを外す
(今回は、フォントとパターン以外のチェックを外す)
追加で追加し、OKで終了してください
下記のコードを#4のものと入れ替える
Private Sub Worksheet_Change(ByVal Target As Range)
'指定範囲外は処理を中止
If Intersect(Target, Range("b:b,c:c,h:h,k:k")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Dim Rng As Range
'複数セルを選択している場合に単一セルごとに処理
For Each Rng In Target
'単一セルが処理対象なら処理開始
If Not Intersect(Rng, Range("b:b,c:c,h:h,k:k")) Is Nothing Then
Rng.Style = "コピペ" 'スタイル名コピペを適用(書式)
Rng = StrConv(Rng, vbNarrow) '全角⇒半角変換
Rng.Value = Rng.Value '文字数字⇒数値変換
End If
Next Rng
Application.EnableEvents = True
End Sub
必ず、スタイルを設定し、スタイル名をコピペとすること
No.4
- 回答日時:
直接入力やコピペをしても
全角英数⇒半角英数
文字列の数字⇒数値
以下は新規にBookを作成した時の「セルの書式」と同じ
表示形式、配置、フォント、罫線、パターン、保護
設定が戻ります
「セルの書式」で設定できるものであれば、変更も可能
シートモジュールに下のコードをコピペ
(対象のシートタブを右クリック-コードの表示を選択すると、シートモジュールが表示されます)
VBE画面を閉じる
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Dim Rng As Range
For Each Rng In Target
If Not Intersect(Rng, Range("a:a")) Is Nothing Then
Rng.Style = "Normal"
Rng = StrConv(Rng, vbNarrow)
Rng.Value = Rng.Value
End If
Next Rng
Application.EnableEvents = True
End Sub
詳細がないのでA列のみを対象にしています
ためしに、A列以外に全角英数、セルに色づけ、フォントを太字、サイズを20などにした
データを作成し、コピーしてA列に貼り付けてみて
hige_082さん、有難うございます。
早速の情報提供有難うございます。こんなことが出来るのだと、感動しております。イメージ的にはまさにこんな感じです。
詳細を記入していませんでした。すいません。
今出来たらいいなと思うのは、
B列 半角数字
C・H・K列 半角英字
共通:フォントサイズ 14 標準 文字黒・背景色なし
※但し2行目に漢字で項目を入れています
お手数かけますが、お答え頂ける範囲で構いませんので、
よろしくお願い致します。
No.3
- 回答日時:
No1です。
ご質問の内容を、まったく勘違いしてしまってました。
最初の方法では一般の書式は維持されますが、No2様のおっしゃるように半角、全角などの変換はできません。
大変失礼しました。無視してください。
No.2
- 回答日時:
あとからのコピー&ペーストだけでは、
全角⇔半角の変換はできませんので難しいですよね。
お使いの環境(ファイル)がどうなっているか分かりませんけど
VBAでそのシート自体コピー&ペーストを禁止するとかは
どうでしょうか。
該当のシートタブを右クリックして、コードの表示で以下を貼り付け
て見てください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Application.CutCopyMode <> False) Then
Application.CutCopyMode = False
End If
End Sub
No.1
- 回答日時:
入力する人が多数の人の場合、ルールを徹底するのはなかなか難しいですよね。
以下の方法で可能だと思いますが、その方法を全員に徹底するのは同じように無理でしょうから、とりあえず、今のまま受け取って、質問者様の修正手間を減らすという方向での回答ですが…
新しく書式設定済みのシートに、対象部分を全部コピーして移動します。
その際に、「貼り付け」-「形式を選択して貼り付け」で「値」を選んで張り付ければ、書式はコピーされません。
単純に1回のコピー、ペーストですが、量が多いとそれでも面倒かも知れません。
その場合は、↑の作業をマクロ化(VBA)しておくことで、さらに簡単になります。
範囲を選択して、1回分のコピー、ペースト分のマクロなので、マクロ事体はそれほど難しいものではないと思います。
早速のご回答有難うございます。
多数いるとなかなかいうことを聞いてもらえないので、コチラがうまく出来る方法を取るしかないと考えました(笑)。
VBAにトライしてみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- Excel(エクセル) 前の(左隣の)シートを連続参照するように、あとから変更したい 1 2023/02/22 00:51
- Excel(エクセル) エクセル関数の変わった使い方 3 2022/05/13 17:12
- Excel(エクセル) EXCELでの文字・数字入力の基本について教えてください。 2 2023/05/29 23:17
- Excel(エクセル) Excel 値を返す数式についてです 3 2022/11/21 20:08
- その他(プログラミング・Web制作) プログラミング pythonの問題について 2 2022/04/19 00:41
- Excel(エクセル) Excel 条件付き書式について 1 2022/12/14 20:38
このQ&Aを見た人はこんなQ&Aも見ています
-
見学に行くとしたら【天国】と【地獄】どっち?
みなさんは、一度だけ見学に行けるとしたら【天国】と【地獄】どちらに行きたいですか? 理由も聞きたいです。
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
あなたの人生で一番ピンチに陥った瞬間は?
これまでの人生で今振り返ると「あの時、1番ピンチだったなぁ...」という瞬間はありますか?
-
「これいらなくない?」という慣習、教えてください
現代になって省略されてきたとはいえ、必要性のない慣習や風習、ありませんか?
-
エクセルファイルを値でのみしか貼り付けできないようにする
Excel(エクセル)
-
シートを保護しても入力規則を使えるようにしたい
Excel(エクセル)
-
Excel 「入力規則」が消えて困っています
Excel(エクセル)
-
-
4
VBAで、貼り付け禁止命令を実現したい(エクセル)
Visual Basic(VBA)
-
5
Excel 条件によって入力禁止にする
Excel(エクセル)
-
6
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
7
Excelの条件付き書式を崩されたくない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで数値→文字列変換で指数...
-
Excelの関数について、特定の文...
-
テキストボックス内の文字のふ...
-
日付が1年以内になると他のセル...
-
数字がセルの左側に寄っていて...
-
【Excel】貼り付けた画像がいつ...
-
エクセル カタカナの文字を検...
-
excelの16進数表示方法
-
エクセル 入力中に表示されな...
-
エクセルで同じ値が連続してい...
-
エクセルで条件付き書式を使わ...
-
Excel2013でセルの書式が勝手に...
-
エクセルでセルに設定されてい...
-
エクセルで入力数字に自動的に,...
-
Excelについて▶あるセルに文字...
-
エクセル「一度設定した列幅を...
-
エクセルで書式設定だけを固定...
-
excel 表計算 加算するセルが空...
-
エクセルに貼り付けると日付表...
-
エクセルの書式を固定したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで数値→文字列変換で指数...
-
Excelの関数について、特定の文...
-
テキストボックス内の文字のふ...
-
日付が1年以内になると他のセル...
-
エクセル 入力中に表示されな...
-
エクセルで同じ値が連続してい...
-
数字がセルの左側に寄っていて...
-
【Excel】貼り付けた画像がいつ...
-
excelの16進数表示方法
-
エクセル カタカナの文字を検...
-
excel 表計算 加算するセルが空...
-
エクセルで入力数字に自動的に,...
-
エクセルで入力欄を明確にしたい
-
エクセルで平均時間の表示の仕方
-
エクセルで条件付き書式を使わ...
-
条件付き書式で範囲外だったら...
-
エクセル「一度設定した列幅を...
-
Excel で金額の,で中央揃えす...
-
エクセル:セルのバックの色だ...
-
エクセルで縦書きのかっこ
おすすめ情報