VBA 任意の複数列の実行方法について

質問

現在、次のような任意の列を参照し、任意の列へ日付を入力しています。

Private Sub Worksheet_Calculate()
　　For i = 1 To 100
　　　　If (Cells(i, "J") = 1) And (Cells(i, "L") = "") Then
　　　　　　Cells(i, "L") = Now()
　　　　End If
　　Next i
End Sub

このJ-Lの組み合わせで実行させたい列が他にも4組ほどあるのですが、
指定したい複数の任意の列への実行方法がわかりません。

どなたかおわかりになられたらご教授いただけないでしょうか。
よろしくお願いします。

回答No.2

watabe007

>J-Lの組み合わせで実行させたい列が他にも4組ほどあるのですが
Private Sub Worksheet_Calculate()
　　Dim i As Long

　　For i = 1 To 100
　　　　If Cells(i, "J").Value = 1 And Cells(i, "L").Value = "" Then
　　　　　　Cells(i, "L").Value = Now()
　　　　ElseIf Cells(i, "J").Value = 2 And Cells(i, "L").Value = "" Then
　　　　　　Cells(i, "M").Value = Now()
　　　　ElseIf Cells(i, "J").Value = 3 And Cells(i, "L").Value = "" Then
　　　　　　Cells(i, "N").Value = Now()
　　　　ElseIf Cells(i, "J").Value = 4 And Cells(i, "L").Value = "" Then
　　　　　　Cells(i, "O").Value = Now()
　　　　ElseIf Cells(i, "J").Value = 5 And Cells(i, "L").Value = "" Then
　　　　　　Cells(i, "P").Value = Now()
　　　　End If
　　Next i
End Sub

>J-Lの組み合わせで実行させたい列が他にも4組ほどあるのですが
Private Sub Worksheet_Calculate()
　　Dim i As Long

　　For i = 1 To 100
　　　　If Cells(i, "J").Value = 1 And Cells(i, "L").Value = "" Then
　　　　　　Cells(i, "L").Value = Now()
　　　　　　Cells(i, "M").Value = Now()
　　　　　　Cells(i, "N").Value = Now()
　　　　　　Cells(i, "O").Value = Now()
　　　　　　Cells(i, "P").Value = Now()
　　　　End If
　　Next i
End Sub

回答No.1

keithin

Private Sub Worksheet_Calculate()
　　For i = 1 To 100
　　　　If (Cells(i, "J") = 1) And (Cells(i, "L") = "") Then
　　　　　　Cells(i, "L") = Now()
　　　　End If

　　　　If (Cells(i, "M") = 1) And (Cells(i, "O") = "") Then
　　　　　　Cells(i, "O") = Now()
　　　　End If

　　　　If (Cells(i, "P") = 1) And (Cells(i, "R") = "") Then
　　　　　　Cells(i, "R") = Now()
　　　　End If

　　　　If (Cells(i, "S") = 1) And (Cells(i, "U") = "") Then
　　　　　　Cells(i, "U") = Now()
　　　　End If

　　　　If (Cells(i, "V") = 1) And (Cells(i, "X") = "") Then
　　　　　　Cells(i, "X") = Now()
　　　　End If

　　Next i

End Sub