excel私人子工作表_更改不起作用

Question

我的 Excel 工作表中有一个 VBA 子程序，它应该在给定列中查找更改，如果发现更改，请将日期和时间（来自 Now()）添加到不同列中的相应单元格。该子程序在两个位置检查更改，并根据更改的范围更新不同的单元格（如果 G 列更改，则更新 A 列；如果 K 列更改，则更新 M 列）。

我没有收到任何错误或任何内容，只是没有将日期和时间添加到相应的单元格中。我的代码如下。我无法终生弄清楚它有什么问题。几天前它工作了，从那以后我一直无法让它工作。

Private Sub Worksheet_Change(ByVal Target As range)

Dim cell As range

'Adds unique keyA values
'Check to see if the changed cell is in column G
    If Not Intersect(Target, range("G:G")) Is Nothing Then
        For Each cell In Target.Cells
            If cell.Value <> vbNullString And Target.Row > 7 And Target.Row <= 20 Then
            'Update the "KeyA" value
                sheets("Front End").range("A" & Target.Row).Value = Now()
            End If
        Next cell
    Else

'Adds unique keyB values
'Check to see if the changed cell is in column K
    If Not Intersect(Target, range("K:K")) Is Nothing Then
        For Each cell In Target.Cells
            If cell.Value <> vbNullString And (Target.Row > "7" And Target.Row <= "27") Then
            'Update the "KeyM" value
                sheets("Front End").range("M" & Target.Row).Value = Now()
            End If
        Next cell
    End If
End If
End Sub

改变G行值的代码由一个按钮调用，如下：

Private Sub CommandButton1_Click()
Sheets("Front End").Unprotect ("29745")
h = Hour(Now)
    For Each c In range("B8:B20")
        If h = Hour(c) Then
            c.Offset(0, 3) = CInt(c.Offset(0, 3)) + 1
            Exit For
        End If
    Next c
Sheets("Front End").Protect ("29745")
Unload Me
End Sub

Answer 1

可能你正试图实现这样的目标：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range

'Adds unique keyA values
'Check to see if the changed cell is in column G
    If Not Intersect(Target, Range("G:G")) Is Nothing Then
        For Each cell In Target.Cells
            If cell.Value <> vbNullString And Target.Row > 7 And Target.Row <= 20 Then
            'Update the "KeyA" value
                Range("A" & Target.Row).Value = Now()
            End If
        Next cell
    Else

'Adds unique keyB values
'Check to see if the changed cell is in column K
    If Not Intersect(Target, Range("K:K")) Is Nothing Then
        For Each cell In Target.Cells
            If cell.Value <> vbNullString And (Target.Row > "6" And Target.Row <= "27") Then
            'Update the "KeyM" value
                Range("M" & Target.Row).Value = Now()
            End If
        Next cell
    End If
End If
End Sub

Worksheet_Change 不是 Selection_Change。