Question

2段VBA有错误，如何改

Dim XX

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("日志")
If XX <> Target Then
ROW1 = Sheets("日志").[A65536].End(xlUp).Row + 1
.Cells(ROW1, 1) = Time
.Cells(ROW1, 2) = XX
.Cells(ROW1, 3) = Target.Value
.Cells(ROW1, 4) = Target.Address
End If
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
XX = Target.Value
End Sub
还有
Dim ydtext As String '原单元格值
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
Dim mycom As Comment
Dim ybzstr As String '原标注值
'------------------判断是否添加了批注
Set mycom = Target.Comment
If mycom Is Nothing Then Target.AddComment
'------------------编辑批注内容
ybzstr = Target.Comment.Text
Target.Comment.Text Text:=ybzstr & Chr(10) & Format(Now(), "yyyy-mm-dd hh:mm") & " 原内容: " & ydtext & "修改为: " & Target.Formula
Target.Comment.Shape.TextFrame.AutoSize = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Target = "" Then
ydtext = "空"
Else
ydtext = Target.Text
End If
End If
End Sub
这两段，要输入东西就会出现，“编译错误：发现二义性名称Worksheet_Change”
如何改，谢谢
如何在第一段Dim XX

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("日志")
If XX <> Target Then
ROW1 = Sheets("日志").[A65536].End(xlUp).Row + 1
.Cells(ROW1, 1) = Time
.Cells(ROW1, 2) = XX
.Cells(ROW1, 3) = Target.Value
.Cells(ROW1, 4) = Target.Address“就是这后边，加上显示修改的页面？
End If
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
XX = Target.Value
End Sub

Answer 1

同一个过程不能在同一模块中出现两次，Worksheet_Change（）应该放在不同的模块中。
有什么问题可以H我。

Answer 2

你定义的sub有重复的