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

[µo°Ý] ¤£³W«h¸ê®Æ¡A¦p¦ó­«¾ã.....

¥»©«³Ì«á¥Ñ t_t7225 ©ó 2015-7-23 17:36 ½s¿è
For Each Rng In Range("C3:i" & aa)
    If Rng <> "" Then
        ss = Cells(Rng.Row, 1).MergeArea
        arr(i, 1) = ss(1, 1)
        arr(i, 2) = Cells(2, Rng.Column)
        arr(i, 3) = Rng
        arr(i, 4) = Cells(Rng.Row, 10)
        i = i + 1
    End If
Next


·Q½Ð°Ýb31978¤j¤j
ss = Cells(Rng.Row, 1).MergeArea
        arr(i, 1) = ss(1, 1)
³o¬qµ{¦¡½Xssªº·N«ä¬O¤°»ò?
¬°¤°»ò¥i¥H¤W­±¨º¥yss ¤U­±¨º¥y«o¥i¥HÅܦ¨ss(x,y)«¬¦¡
¥i§_À°¤p§Ì¸Ñ´b¤@¤U

¤£¦n·N«ä,¦b°ÝÃD¤¤­l¦ù°ÝÃD
¦ý¯uªº«Ü·Qª¾¹D...

TOP

¦^´_ 6# t_t7225

¥t¥~ÁÙ·Q°Ý¤@¤U ¬°¤°»òarr(i,1)=ss(1,1)
ss(1,1)ºû«ù¤£ÅÜ«o¥i¥H¦³day1,day2,day3ªºÅܤÆ
¯uªº¦Ê«ä¤£±o¨ä¸Ñ
Áٳ·Фj¤j¸Ñ´b

©êºp¶W¹L3¤ÀÄÁ¨Ó¤£¤Î½s¿è...

TOP

¦^´_ 8# lpk187


·PÁÂlpk187¤j¤jªº¦^ÂÐ
ª¾¹Darr¡]i,1¡^=ss
¨º§Ú´NÁA¸Ñ³o¬qµ{¦¡½Xªº·N«ä¤F

¦ý¬O°ß¤@ÁÙ¬O¤£¸Ñªº¦a¤è¬O
ss§Ú·í®É¤]¬O´¢´ú¬°°}¦C

¦ý¬O¤£©ú¥Õªº¦a¤è¬Oss¡]1¡A1¡^
¦pªGss¬°°}¦C¨ä°}¦C­ÈÀ³¬°ss¡]day1,day2,day3¡^
¨ºss¡]1,1¡^¤£¬OÀ³¸Ó©T©w¬°¡¥¡¦day1¡¥¡¦
ss¡]2,1¡^=¡¨day2¡¨³o¼Ë¤~¹ï¶Ü¡H
ÁÙ¬O³o³¡¤À§Ú¦³»{ª¾¿ù»~©O¡H

TOP

¦^´_ 10# lpk187

Á`ºâ¤F¸Ñ·N«ä¤F
ÁÂÁ¤j¤jºëÅPªº¸Ñ»¡
¤SÂç²M¤F§ó¦hªºÆ[©À¤F

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD