工作表_更改为工作表

我需要帮助将我的原始代码问题重写为worksheet_calculate。我是新来的，努力学习，但是被困在这一门上。

当我使用Calculate代替更改时，代码会引发许多错误。我读了一些有关添加子例程的评论，但我做不到。

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("AD:AD,AB:AB"),  Target)
xOffsetColumn = -1
    If Not WorkRng Is Nothing Then
       Application.EnableEvents = False
       For Each Rng In WorkRng
    If Not VBA.IsEmpty(Rng.Value) Then
       Rng.Offset(0, xOffsetColumn).Value = Now
       Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
    Else
        Rng.Offset(0, xOffsetColumn).ClearContents
     End If
     Next
     Application.EnableEvents = True
End If
End Sub

vba microsoft-excel-2016

— 特里布
source

请修改您的问题以包括您的代码，告诉我们您遇到了什么错误以及到目前为止已经尝试了什么。

— Twisty模仿者，

您能否确认它可以使用Worksheet_Change，而更改只是将其替换为Worksheet_Calculate？另外，请描述错误，否则我们将无法理解您的问题。

— 马塔·朱哈斯（MátéJuhász）

工作表_更改为工作表_计算