[µo°Ý] ¦p¦ó±oª¾´¡¤J½Æ»sÀx¦s®æªº¦æ¼Æ?

¼B¤j­G

Hello, ¦U¦ì¤j¤j

       °²³]¨Ï¥ÎªÌ¦bSheetB½Æ»s¤F¤@¨Ç¦æ¼Æ(EX:2~6Rows),
       ¨Ã¦bSheetAªº²Ä3¦æ°µ´¡¤J½Æ»sÀx¦s®æªº°Ê§@.
       ½Ð°Ý, ¨t²Î­n¦p¦ó°»´ú¨Ï¥ÎªÌ´¡¤Jªº¦æ¼Æ¬O¦h¤Ö?
  
       Rows«ü¥OµLªk°»´ú¥X¨Ó.

      Private Sub Worksheet_Change(ByVal Target As Range)

                   MsgBox Target.Rows

      End Sub

Thanks ~

ML089

Target.Rows.count

¼B¤j­G

Hello, ML089¤j

    ¤F¸Ñ! ÁÂÁ±zªº¦^ÂÐ.

¼B¤j­G

¦^´_ 2# ML089


    Hello, ML089¤j

¤µ¤éµo²{´¡¤J»P§R°£ªºRows.count³£¬O5, ¨t²Î­n¦p¦ó¤À¿ëUser¬O¦b°µ´¡¤J, ÁÙ¬O§R°£ªº°Ê§@©O?
Thanks ~

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

¼B¤j­G

¦^´_ 5# ML089
Hello, ¤j¤j

            ÁÂÁ±zªº¦^ÂÐ, §Ú¦A¬ã¨s¤@¤U±zªºµ{¦¡.