初心者です。エクセル マクロで セルの範囲を指定する方法を教えてください。
下記のようなマクロがあります。
ーーーーーーー
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then '←の2はB列のこと
If Target.Value = "" Then
Cells(Target.Row, 6).Value = ""
Else
Cells(Target.Row, 6).Value = Date '←の6はF列に日付
Cells(Target.Row, 5).Activate '←の5はE列へ移動
End If
End If
End Sub
ーーーーーーー
この場合の「2のB列」を「2から4、B列からD列」まで、
いずれに入力しても日付が表示されるようにしたいのです。
一つのセルではなく、複数のセルに対応できるように変えるには
どうしたらいいでしょうか。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
wasi05さんが書いたマクロには、致命的な欠点があります。
Worksheet_ChangeイベントのTargetパラメータには、変更があったセル(Rangeオブジェクト)が渡されますが、例えば、B1に入力されている値を下へオートフィルするなど、一度に複数のセルが変更されると、当然、複数のRangeが渡ってきます。wasi05さんが書いたマクロは、複数のセルが渡ってきた場合の考慮が無いので、エラーになってしまいます。
複数のセルすべてを処理したい場合は、こんな感じにする必要があります。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng As Range
Dim r As Range
Set myRng = Intersect(Target, Range("B:D"))
If myRng Is Nothing Then Exit Sub
For Each r In myRng
If r.Value = "" Then
Cells(r.Row, 6).Value = ""
Else
Cells(r.Row, 6).Value = Date '←の6はF列に日付
Cells(r.Row, 5).Activate '←の5はE列へ移動
End If
Next
End Sub
No.1
- 回答日時:
「2から4、B列からD列」以外は処理しないという考え方にすればいいです。
具体的にはこんな感じです。--------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 2 Then Exit Sub
If Target.Column > 4 Then Exit Sub
If Target.Value = "" Then
Cells(Target.Row, 6).Value = ""
Else
Cells(Target.Row, 6).Value = Date '←の6はF列に日付
Cells(Target.Row, 5).Activate '←の5はE列へ移動
End If
End Sub
--------------------------------------------------------------------
的確に回答いただきまして、ありがとうございます。
時間の差でベストアンサーにできませんでしたが、
同じくらいの回答です。勉強になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
targetをA列のセルに限定するには?
Visual Basic(VBA)
-
-
4
EXCEL VBA 選択範囲をTargetに
会計ソフト・業務用ソフト
-
5
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
☆Excelエクセルで入力した日の日付を表示したいです☆
Excel(エクセル)
-
8
VBA:結合されたセルに対する「Target」について
Access(アクセス)
-
9
データが入力されている隣のセルに当日日付と時刻を入力するExcel VBAプログラム
Visual Basic(VBA)
-
10
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
11
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
12
エクセルVBAでダブルクリックをしたらA列のデータが別シートに転記されるにはどうしたらよいですか?
Visual Basic(VBA)
-
13
別のシートから値を取得するとき
Visual Basic(VBA)
-
14
Excel 条件によって入力禁止にする
Excel(エクセル)
-
15
Changeイベントでの複数セルのクリアの処理について
Visual Basic(VBA)
-
16
セルに値が入っていた時の処理
Visual Basic(VBA)
-
17
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
18
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
19
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
20
EXCEL:特定の文字が入力された日付を表示する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
連続する複数のセル値がすべて0...
-
ExcelVBAを使って、値...
-
TODAY()で設定したセルの日付...
-
VBA コピーして次の値まで貼り...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
ExcelのVBAで数字と文字列をマ...
-
数字でピラミッドを出力させる...
-
excelで置換をしたいんですが
-
EXCELで変数をペーストしたい
-
特定の文字を条件に行挿入とそ...
-
VBA初心者です。結合セルを保持...
-
Excel VBA、 別ブックの最終行...
-
VBAでマクロ実行中はExcelのマ...
-
DataGridViewのセル編集完了後...
-
Excel VBAで、 ヘッダーへのセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
VBAの計算で@が出てしまう件
-
Excelのプルダウンで2列分の情...
-
EXCELで変数をペーストしたい
-
VBA ユーザーフォーム ボタンク...
-
VBAでセルをクリックする回...
-
Excel VBA、 別ブックの最終行...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
-
VBAを使用した時間管理
-
”戻り値”が変化したときに、マ...
-
Sub 要具ライフ() ActiveSheet....
おすすめ情報