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

¿z¿ï¤@°Ý

ª©¤j±z¦n¡A¤p§Ì¤]¹ï¦Û°Ê¿z¿ï¦³«Ü¦hºÃ´b¡A­n½Ð±Ð¦U¦ì¤j¤j¡G
1.½Ð°Ý¤U­±¨º­ÓFor Each cell In area
                              "Cell" -->¬O«O¯d¦r¡AÁÙ¬O¦Û©wªºÅܼƩO?
2.¦pªG§Ú¤w¸g¼g¤@¬qµ{¦¡¡]¦p¤U)¬O¤@¦C¦CŪ¨úªº®É­Ô¡A­n«ç»ò§PÂ_¿ï¨ú¨ìªº¨º¤@¦C¡A¬O¤£¬O¦³¸ê®Æ©O(§Ú¦³¥Î¹LIs Nothing¡A¦ý¬O¨S¦³§@¥Î)?
3.­n«ç»òŪ¨ú¨C¤@¦C¸Ì­±ªº¯S©wÄæ¦ì©O?


Dim rng As Range        '¦Û°Ê¿z¿ïµ²ªG½d³ò
Dim theRow As Range     '¦U°Ï°ìªº¸ê®Æ¦C
Dim theArea As Range        '¦U°Ï°ì½d³ò

For Each theArea In rng.Areas
        '¹M¾ú¦UAREAªº¦U¦C
        For Each theRow In theArea.Rows
            theRow.Select       '¿ï©w¦¹¦C
            'MsgBox theRow.Address       'Åã¥Ü¦¹¦Cªº¦ì§}
        Next
    Next
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

·PÁÂGBKEEª©¤jªº¦^ÂÐ
¤p§Ì´ú¸Õ¤§«áµo²{
Åã¥Ü¸Ó¦C³Ì«á¤@¦æªº¦a¤è»Ý­n­×§ï¤@­Ó¤p¦a¤è¤~¯à¦¨¥\
MsgBox theRow.Cells(theRow.Cells.Count).Address
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD