关于Excel vba鼠标事件，记录鼠标点击单元格的内容？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[IV65536] = IIf([IV65536] = 1, 2, 1)

If [IV65536] = 2 Then

Target = [IV65535]

Else

[IV65535] = Target

End If

End Sub

0

0