Question

我在这个网站上发现这个代码适用于我正在尝试使用注销日志执行的一个例外 - 它现在作为工作表更新功能工作，我需要它只在按下按钮时工作。我如何修改此代码，以便它可以是一个分配给按钮的宏？任何帮助将不胜感激。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A As Range, B As Range, Inte As Range, r As Range
    Set A = Range("A:A")
    Set Inte = Intersect(A, Target)
    If Inte Is Nothing Then Exit Sub
    Application.EnableEvents = False
       For Each r In Inte
            If r.Offset(0, 1).Value = "" Then
               r.Offset(0, 1).Value = Date
            End If
        Next r
    Application.EnableEvents = True End Sub

Answer 1

如果您想继续检查A列中的值，那么

Sub clickMe()
    Dim A As Range, Inte As Range, r As Range
    Set A = Range("A:A")
    Set Inte = Intersect(A, Selection)
    If Inte Is Nothing Then Exit Sub
       For Each r In Inte
            If r.Offset(0, 1).Value = "" Then
               r.Offset(0, 1).Value = Date
            End If
        Next r
End Sub

如果列无关紧要且按钮应在所选单元格的右侧输入日期，则

Sub clickMe()
    Dim r As Range
       For Each r In Selection
            If r.Offset(0, 1).Value = "" Then
               r.Offset(0, 1).Value = Date
            End If
        Next r
End Sub

需要按此按钮才能按下按钮

1 个答案: