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

[µo°Ý] ­YÀx¦s®æ¤º®e¬°0´N¾ã¦C¤£Åã¥Ü

¥»©«³Ì«á¥Ñ luhpro ©ó 2010-9-7 22:32 ½s¿è

¦^´_ 10# oak0723-1

¨ä¹ê¦b¤W­±ªºµ{¦¡¤¤¤§©Ò¥H¥i¥H¥Î ReDim ¨Ó­«·s°t¸m Arr ¬°¤@°}¦C¬O¦]¬° Arr ªì©l«Å§i®É¬O Variant «¬ºA,
©Ò¥H¥¦¤]¥i¥Hªí¥Ü¬°¬O¤@­Ó(©|¥¼©w¸q¤j¤pªº)°}¦C.

§A¥i¥H¶}±ÒExcel VBA ªº»¡©ú¨Ó¬Ý,
¥¦¹ï©ó ReDim ªº ¸ÑÄÀ¦p¤U :
ReDim ³¯­z¦¡¬O¥Î¨Ó "¨M©w" ©Î "­«·s¨M©w" °ÊºA°}¦Cªº¤j¤p


¦^´_ 12# oak0723-1

§Úı±o¤£ºÞ¬O .CurrentRegion ÁÙ¬O .End(3) ¨âªÌ¦bµ{¦¡°õ¦æ¨ì¸Ó¦æ®É³£·|¬O­Ó½T©wªº½d³ò,

¤§©Ò¥H ReDim Preserve arr(1 To 3, 1 To r) ·|»¡¥¦¬O­Ó°ÊºA°}¦C,
¬O¦]¬°¥¦¦b¤§«e¤w¸g¦³³Q©w¸q¹L°}¦C¤j¤p¤F, (¦]¦b°j°é¤¤·|­«½Æ°õ¦æ¸Ó±Ô­z¼Æ¦¸)
¤§«áÁٻݭn¦] r ­È¦ÓÅܰʨä¤j¤p¬G¦Ó¬O°ÊºA°}¦C.

¦Ü©ó

ReDim arr(1 To UBound(rng), 1 To 10)

«h¦]¸Ó±Ô­z¤§«e¥u¦³ Dim arr ¤@­Ó±Ô­z, (¤]¥iµø¬° Variant ÅܼÆ)
¨ä¹ê¨Ã¨S¦³¯uªº©ú½T©w¸q¹L arr ³o­Ó°}¦Cªº¤j¤p,
ª½¨ì¸Ó±Ô­z¤~¬O¯uªº±N¨ä©w¸q¬°¤@­Ó "©T©w¤j¤p" ªº°}¦C.

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD