chin15

MsgBox Selection.Address

dechiuan999

§A¦n¡G

   ½Ð¸Õ¸Õ¬O§_¥i¾A¥Î
Sub aa()
    Dim mRng As Range
    Dim mRng2 As Range
    Dim mRow As Integer
    Dim mCol As Integer
    Dim i%
    If TypeName(Selection) = "Range" Then
        Set mRng = Selection
        MsgBox "§A¿ï¨úªºÀx¦s®æ :" & mRng.Address
        i = 1
        For Each mRng2 In mRng
            mRow = mRng2.Row
            mCol = mRng2.Column
            MsgBox "²Ä  " & i & " " & "­ÓÀx¦s®æ¦ì¸m" & ":" & mRng2.Address & ":" & "¦C¸¹ :" & ":" & mRow & " " & "Ä渹 :" & " " & mCol
            i = i + 1
        Next
        
    Else
        MsgBox "¨S¦³¿ï¾ÜÀx¦s®æ"
    End If
    Set mRng = Nothing
    Set mRng2 = Nothing
End Sub