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

[µo°Ý] range()¤º»yªk°ÝÃD

[µo°Ý] range()¤º»yªk°ÝÃD

·Q½Ð°Ý¦U¦ì¤j¤j¡A¹³¬O¤U¦C¬õ¦â¦rÅéRange("c3")Àx¦s®æ·|¦]¬°´¡¤J¦C¡B¦æ¦ÓÅܰʪº¸Ü¡A¸Ó¦p¦ó¼g©O¡H¡H
a=range("B1").value   '´¡¤J¦æ¼Æ
a¹w³]¬°3¡A§ó§ï¬°5
­Ya­È§ó§ï,­ì¥ý³]©wU½d³ò[C3]¦Ü³Ì«á¡A§ï¬°[E3]¦Ü³Ì«á
½Ð°Ý¸Ó¦p¦ó¼grange¬A¸¹¤ºªº®æ¦¡©O¡H¡H¡H¡H
For Each U In Range([C3], [C3].End(xlDown))
   .....      
   .....
Next
Ä_Ä_

¦^´_ 1# caichen3
  1. §ï¦¨
  2. For Each U In Range(Cells(3, a), Cells(3, a).End(xlDown))³o¼Ë©O¡H
½Æ»s¥N½X
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 1# caichen3
a=range("B1").value   '´¡¤J¦æ¼Æ,a¹w³]¬°3¡A§ó§ï¬°5
For Each U In Range([C3], [C3].End(xlDown))  

³o [C3].End(xlDown) ­nµø¤u§@ªí[C3] ©¹¤UÀx¦s®æªº¸ê®Æ¬O§_³sÄò¦³Ãö  ¤£¤@©w·|¬O 3 ©Î 5
  1. For Each u In [C3].Resize( a)    ¸Õ¸Õ¬Ý³o¬O§A­nªº¶Ü
  2.        MsgBox U.Address
  3. Next
½Æ»s¥N½X

TOP

·PÁ¤j¤j­Ìªº¤j¤OÀ°§U
Ä_Ä_

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD