求助，Excel2003代码问题，非常感谢！

Question

如题所述

Answer 1

在工作表名称上点鼠标右键选择【查看代码】输入如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target.Cells(1, 1)
If .Column = 2 Then
If .Row = 26 Then
Cells(26, 7) = Empty
End If
End If
End With
End Sub

Answer 2

连行列标识都没截下来，不知道你的G26和B26在哪

Answer 3

下面的代码测试通过，满足你的要求： Option Explicit Dim lastClick As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim x If Target.Address(False,False)="A7"Then Sheets("sheet2").Range("y1").ClearContents Else x=" Select Case lastClick Case"A5":x="x1 ...