C列からH列に値が入っています。
C列からH列のセルの値が変更されたとき
I列に更新日を入れるマクロを作成しました。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRng As Range, R As Range
Dim LastUpdated As Integer
Set MyRng = Intersect(Target, Range("C11:H99999"))
If MyRng Is Nothing Then Exit Sub
LastUpdated = 9
For Each R In MyRng.Rows
Cells(R.Row, LastUpdated).Value = Date
Next
End Sub
このマクロだと、C列からH列の値を削除したときもI列が変更されてしまいます。
これを、C列からH列すべての行が空白の時はI列も空白にするというマクロを組むにはどこをどのように変更したらいいでしょうか?
アドバイスお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Worksheets メソッドは失敗しま...
-
VBAコンボボックスで選択した値...
-
IIF関数の使い方
-
データグリッドビューの一番最...
-
Excelで、あるセルの値に応じて...
-
Excel(VBA) 特定の条件に該当...
-
Cellsのかっこの中はどっちが行...
-
空白セルをとばして転記
-
VBAのFind関数で結合セルを検索...
-
VBA 何かしら文字が入っていたら
-
VBAを使って検索したセルをコピ...
-
セルに入力されたら日付が出る...
-
VBAで10行おきにセルの下に罫線...
-
VBAの構文 3列置きにコピーし...
-
期限を超えた日付に警告のメッ...
-
VBA 列が空白なら別のマクロへ...
-
VBAを用いて条件付きの平均値、...
-
別シートのデータを参照して値...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Cellsのかっこの中はどっちが行...
-
文字列の結合を空白行まで実行
-
マクロ 最終列をコピーして最終...
-
URLのリンク切れをマクロを使っ...
-
Changeイベントでの複数セルの...
-
VBAのFind関数で結合セルを検索...
-
ExcelVBA修正のお願い
-
データグリッドビューの一番最...
-
VBAで指定範囲内の空白セルを左...
-
VBA 何かしら文字が入っていたら
-
【VBA】2つのシートの値を比較...
-
VBマクロ 色の付いたセルを...
-
空白セルをとばして転記
-
rowsとcolsの意味
おすすめ情報