Range¨ç¼Æªº¨Ï¥Î°ÝÃD

gogotony

·Q½Ð±Ð·í§Ú¦P®É¿ï¨ú¥ô·N¨â­ÓÀx¦s®æ®É

­n¦p¦ó¤À§O±oª¾§Ú©Ò¿ï¨úªºÀx¦s®æªºrow©Î¬Ocolumnªº¸ê°T

¨Ò¦p¡G·í§Ú¦P®É¿ï¨úA1 & D2

§Ú·Q­n¦bµ{¦¡¤¤¤Þ¥Î³o­Órangeªº¸ê°T¡A¥i¥Hª¾¹D³o¨â­ÓÀx¦s®æ¤À§O¬OCells(1,1)©MCells(2,4)

½Ð°Ý¸Ó¦p¦ó¹F¦¨©O¡HÁÂÁ¡C

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

chin15

MsgBox Selection.Address

gogotony

¤Ó¼F®`¤F!!«D±`·PÁ±zªº«ü¾É~

am0251

¥i¥H±Ð§Ú¤@¤U"Dim i%"ªº·N«ä©O?¬°¤°»ò·|¥Î%©M¤£¥Î as....... ©O?

Happkkevin

Dim i% §Ú¤]¬Ý¤£À´¡A¬ORow »PColumn »Ý«Å§i¬°¡H
¬Ý¤£À´¡A¦n©_´ú¸Õ¤@¤U
±N¨º­Ó§R±¼´ú¸Õµ²ªG¬Û¦P
¤£ºÞ³o¹ï©óµ²ªG¦³¨S¦³¼vÅT¡A­Ë¬O®¼¦n©_Dim i% ¬O§_¥t¦³§t·N©Î¯S®í¥Îªk
·Ð½Ðdechiuan999ÄÀºÃ¡A·PÁ¡I¡I

Hsieh

Dim i%´N¬ODim i As IntegerªºÂ²¼g
¤@¨Ç±`¥Îªº¥Nªí²Å¸¹¦p¤U
Integer ªº«¬ºA«Å§i¦r¤¸¬O¦Ê¤À¤ñ²Å¸¹ %
Long ªº«¬ºA«Å§i¦r¤¸¬° &
Double ªº«¬ºA«Å§i¦r¤¸¬O¼Æ¦r²Å¸¹ #
Single ªº«¬ºA«Å§i¦r¤¸¬° !
String ªº«¬ºA«Å§i¦r¤¸¬° $

Happkkevin

·PÁ¶Wª©ªº¸ÑÄÀ¡A¾Ç¨ì
·P®¦

b9208

¦^´_ 7# Hsieh

«D±`·PÁª©¥D
²×©óª¾¹D¨º¨Ç¥N¸¹ªº·N¸q¤F
:victory:

ten999

¤@ª½´M§ä%¦r¤¸¥Nªí·N¸q(help»¡©ú¤¤)
­ì¨Ó³o¼Ë²³æ
ÁÂÁÂ