ML089

Target.Rows.count

ML089

¦^´_ 4# ¼B¤j­G

¤£ª¾¹DVBA¸Ì¦³µL¦¹¥\¯à¨ç¼Æ

¦Û¦æ©ó¤u§@ªí¸Ì©w¸q¡A¥i¯à¤£¬O«Ü§¹µ½¡A¥ý±N´N¥Î¬Ý¬Ý
Public rTmp As Range, sTmpAdr As String

Private Sub Worksheet_Change(ByVal Target As Range)
    Debug.Print Target.Address, "Worksheet_Change"
   
    '§R°£®É rTmp ª«¥ó·|¤£¨£³y¦¨¿ù»~
    On Error Resume Next
    rTmpAdr = "µL": rTmpAdr = rTmp.Address
    On Error GoTo 0
   
    Debug.Print rTmpAdr, "rTmpAdr"
    Debug.Print sTmpAdr, "sTmpAdr"
   
    If rTmpAdr = "µL" Then
        Debug.Print "§R°£ " & sTmpAdr
    ElseIf rTmpAdr <> sTmpAdr Then
        Debug.Print "´¡¤J " & sTmpAdr
    ElseIf rTmpAdr = sTmpAdr Then
        Debug.Print "­×§ï " & sTmpAdr
    Else
        Debug.Print "¨ä¥L " & sTmpAdr
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Debug.Print Target.Address, "Worksheet_SelectionChange"
    Set rTmp = Target: sTmpAdr = rTmp.Address
End Sub