EXCELのシートが変更されたらWの列に更新Timeスタンプをセットします。
Worksheet_Changeイベントに以下のように配置して動作させています。
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, "W") = Now
End Sub
この場合、行の挿入、削除の場合、挿入前、削除後の行が更新されてしまいます。
行の挿入、削除の場合に上記コードを実行させないようにするにはどうすればよいでしょうか?
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
こんにちは!
セル変化が1セルの場合に実行したいのであれば
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count = 1 Then
Cells(.Row, "W") = Now()
End If
End With
End Sub
といった感じではどうでしょうか?
※ セル変化が複数セルに渡って消去・コピー&ペースト等ある場合
極端に多くのセルではないと思いますので、
上記コードの
>If .Count = 1 Then
の部分を
>If .Count < 100 Then
のように調整してみてください。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
エクセルで知らない間に行がず...
-
エクセル2010で、結合したセル...
-
Wordで、表のセルが変なところ...
-
あるセルに色を付けた時、別の...
-
ワードで表を作ってセル内で改...
-
エクセルでセルの中の文字が削...
-
Excelで1部印刷する毎に連番を2...
-
Wordでセルに文字を入力すると...
-
WORDで表の行を2行に分けたい
-
エクセルで捺印をもらう欄を別...
-
Word 表のセル塗りつぶし
-
エクセルで日付の入ったセルの...
-
Word 表のセルを結合せずに文字...
-
Excelのセル内の文字の頭に半角...
-
エクセル 結合したセルの間にセ...
-
エクセルで複数行を括弧でくく...
-
【エクセル】離れたセルのCOUNT...
-
Excelで写真のような表を作った...
-
エクセル2003で表の中に更...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
エクセルで知らない間に行がず...
-
エクセルでセルの中の文字が削...
-
あるセルに色を付けた時、別の...
-
Wordで、表のセルが変なところ...
-
エクセル 結合したセルの間にセ...
-
Wordでセルに文字を入力すると...
-
エクセル2010で、結合したセル...
-
WORDで表の行を2行に分けたい
-
Word 表のセル塗りつぶし
-
エクセルの一つのセル内に2つの...
-
ワードで表を作ってセル内で改...
-
Wordの表をExcelの表に貼り付ける
-
Wordの表で逆L字型のセルを作成...
-
ワードの表で中央揃えが出来ない
-
ワードで二行を一行に
-
エクセルで1列おきのデータのみ...
-
Excelのセル内の文字の頭に半角...
-
エクセルで捺印をもらう欄を別...
-
Excelで「折り返して全体を表示...
おすすめ情報