m09903020

¦^´_ 8# register313


    ·PÁÂregister313¤j¤j¡A¨â¦¸¨ó§UÀ°¦£¡A§Ú¤ñ¸û¶wÁÙ¬O¤£·|¥Îfor each ¤ºªºÅÜ¼Æ ¦ý¾ã­ÓªF¦è¥i¥H°µ³sµ²¹B¥Î¤F(¸÷«ô!)

m09903020

¦^´_ 8# register313

    r¤j¥i¥H¦A½Ð±Ð³o¥y  
    s = s + 1: Arr(s, 1) = c.Address(0, 0)
   »y·N©MÅÞ¿è¶Ü? ÁÂÁÂ

register313

¦^´_ 12# m09903020

Set C = R.Find(1, , , xlWhole)     '³]©w¤º®e¬°1ªºÀx¦s®æª«¥ó¬°C
If Not C Is Nothing Then s = s + 1: Arr(s, 1) = C.Address(0, 0)    '¨C§ä¨ìC«h±NCªº¬Û¹ï¦ì§}©ñ¶i°}¦C
  
s = s + 1   's¨Ì§Ç¥[1
(1) s=1, Arr(1, 1) = ²Ä1­Ó¤º®e¬°1ªºÀx¦s®æ¬Û¹ï¦ì§}
(2) s=2, Arr(2, 1) = ²Ä2­Ó¤º®e¬°1ªºÀx¦s®æ¬Û¹ï¦ì§}
(2) s=3, Arr(3, 1) = ²Ä3­Ó¤º®e¬°1ªºÀx¦s®æ¬Û¹ï¦ì§}

m09903020

¦^´_ 13# register313

·PÁ  §Ú¥¿¦b¥Î³o­ÓÅÞ¿ètry¤@¤U