ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¿é¤J¨â­Ó¸ê®Æ¦ÛÁ`ªí¤¤¿z¥X¸ê®Æ¡A¿é¤J¦b¥t¤@¤À­¶

¦^´_ 10# mdr0465


    ÁÂÁ«e½ú¤@°_¾Ç²ß
½Ð¸Õ°õ¦æ¥H¤U¥N½X:


Option Explicit
Sub Item_test()
Dim xA As Range, N&
With [A2:E4]
   N = .Count: .Select
   MsgBox "¦¹°Ï°ìÀx¦s®æªº¼Æ¶q¦³: " & N & " ­Ó"
   MsgBox "¦¹°Ï°ìÀx¦s®æ¸Ìªº²Ä1Äæ²Ä1¦CÀx¦s®æ¦ì§}¬O " & .Item(1, 1).Address(0, 0)
   MsgBox "¦¹°Ï°ìÀx¦s®æ¸Ìªº²Ä5Äæ²Ä3¦CÀx¦s®æ¦ì§}¬O " & .Item(3, 5).Address(1, 0)
   MsgBox "¦¹°Ï°ìÀx¦s®æ¸Ìªº²Ä6Äæ²Ä3¦CÀx¦s®æ¦ì§}¬O " & .Item(3, 6).Address(0, 1)
   MsgBox "¦¹°Ï°ìÀx¦s®æ¸Ìªº²Ä1­ÓÀx¦s®æ¦ì§}¬O " & .Item(1).Address(1, 1)
   MsgBox "¦¹°Ï°ìÀx¦s®æ¸Ìªº²Ä5­ÓÀx¦s®æ¦ì§}¬O " & .Item(5).Address
   MsgBox "¦¹°Ï°ìÀx¦s®æ¸Ìªº²Ä6­ÓÀx¦s®æ¦ì§}¬O " & .Item(6).Address
   MsgBox "¦¹°Ï°ìÀx¦s®æ¸Ìªº³Ì«á¤@­ÓÀx¦s®æ¦ì§}¬O " & .Item(N).Address
   MsgBox "¦¹°Ï°ìÀx¦s®æ¤W¤@¦C²Ä5ÄæÀx¦s®æ¦ì§}¬O " & .Item(0, 5).Address
End With
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 11# Andy2483
Andy ¾Ç¥S
±ß½ú¤Q¤À·PÁ§A­@¤ßªº±Ð¾É,²{¦b©ú¥Õ¤F·í¤¤ªº¹B¥Î©M§Þ¥©,
ÁÂÁ§A

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD