小编M. *_*yev的帖子

我有一个包含3行7列的工作表（A1:G3）。
A和B列有6个复选框（A1:B3）。A和B列中的框分别链接到C和D列。E和F列中的E1单元格分别只是复制C和D列（活动单元格为=C1和F3单元格为=D3）。

我想通过在该工作表的VBA中使用Worksheet_Calculate事件来选中或取消选中复选框，在每行的单元格G中放置一个时间戳。

我的代码仅用于1行时有效。

Private Sub Worksheet_calculate()
    Dim cbX1 As Range
    Set cbX1 = Range("A1:F1")
    If Not Intersect(cbX1, Range("A1:F1")) Is Nothing Then
        Range("G1").Value = Now()
    End If
End Sub

我想将代码合并为3行。

这里有2种变化：

第一个：

Private Sub Worksheet_calculate()
    Dim cbX1 As Range
    Dim cbX2 As Range
    Dim cbX3 As Range
    Set cbX1 = Range("A1:F1")
    Set cbX2 = Range("A2:F2")
    Set cbX3 = Range("A3:F2")
    If Not Intersect(cbX1, Range("A1:F1")) Is Nothing Then
        Range("G1").Value = …