s_xiaomo的博客

Public a As Integer, r As Integer, c As Integer, b As BooleanPrivate Sub Worksheet_Change(ByVal Target As Range)On Error GoTo hha = Target.Valuer = Target.Rowc = Target.Columnb = Truehh:End SubPrivate Sub Worksheet_SelectionChange(ByVal Target .