- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§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 - Sub ¥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
½Æ»s¥N½X |
|