teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2021/03/11 03:51

投稿

jinoji
jinoji

スコア4592

answer CHANGED
@@ -1,1 +1,20 @@
1
- For Each targetcell In Target.Cells とかではどうでしょう。
1
+ For Each targetcell In Target.Cells とかではどうでしょう。
2
+
3
+ ---
4
+ ```VBA
5
+ Private Sub Worksheet_Change(ByVal Target As Range)
6
+ For Each Target In Target.Cells
7
+ If Target.Column = 3 Then 'C列に入力がある場合、D列に時間を記録
8
+ If Target.Offset(, 0).Value = "" Then
9
+ Application.EnableEvents = False 'C列を削除した場合、D列は空白となる
10
+ Target.Offset(, 1).Value = ""
11
+ Application.EnableEvents = True
12
+ Else
13
+ Application.EnableEvents = False
14
+ Target.Offset(, 1).Value = Now
15
+ Application.EnableEvents = True
16
+ End If
17
+ End If
18
+ Next
19
+ End Sub
20
+ ```