| ©«¤l5923 ¥DÃD13 ºëµØ1 ¿n¤À5986 ÂI¦W0  §@·~¨t²Îwin10 ³nÅ骩¥»Office 2010 ¾\ŪÅv150 ©Ê§O¨k ¨Ó¦Û¥xÆW°ò¶© µù¥U®É¶¡2010-5-1 ³Ì«áµn¿ý2022-1-23 
         
 | 
                
| ¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-1 06:26 ½s¿è 
 ¦^´_ 6# luhpro
 [µLªk«ü©w¦Ü°}¦C] VBAªº»¡©ú
 
 °}¦C¤¤ªº¦U¤¸¯À¡A¥²¶·Ó§O«ü©w¨äÈ¡C³oÓ¿ù»~ªº°_¦]»P¸Ñ¨M¤èªk¦p¤U©Ò¥Ü¡G ±z¸Õ¹Ï±N¤@ÓÈ«ü©wµ¹¤@Ó°}¦CÅܼơA¦ý¨S¦³«ü©wn±N³oÓÈ«ü©wµ¹þÓ¤¸¯À¡C
 n³]©w¤@Ó°}¦C¤¤ªº¤¸¯À¡A±z´N¥²¶·«ü©w¦¹¤¸¯Àªºµù¼Ð¡C¨Ò¦p¡AY MyArray ¬°¤@Ó¾ã¼Æ°}¦C¡A«h¹Bºâ¦¡ MyArray = 5 ¬O¤£¥¿½Tªº¡A¤U¦Cªº¹Bºâ¦¡¤~¬O¥¿½Tªº¡G
 MyArray(UBound(MyArray)) = 5
½Æ»s¥N½XSub ¥i¦æ()
    Dim A()
    A = Array(1, 2)
    ReDim Preserve A(UBound(A) + 1)
    A(UBound(A)) = 10
    MsgBox UBound(A)
End Sub
'''''''''''''''''''''''''''''''''''''''''''''
Sub ¤£¥i¦æ()
Dim A(1)
A = Array(1,2)
End Sub
 | 
 |