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

[µo°Ý] ¦p¦ó±N¸ê®Æ«ö«ü©w¦WºÙ¤ÀÃþ½Æ¨î¨ì¦Uªí®æ

¦^´_ 4# gstone
Cells ²¤Æ±¼¤F
  1. Sub EX()
  2. Dim A
  3. Set A = Range("B10")
  4. MsgBox A.Cells(1, 1).Address
  5. MsgBox A.Cells(2, 1).Address
  6. MsgBox A.Cells(1, 2).Address
  7. MsgBox A.Cells(2, 2).Address
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD