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

[µo°Ý] ¦p¦ó¤~¯à¥Î¦CÁ|¤è¦¡¨Ó«ü©w¾ã¼Æ°}¦Cªº¤º®e­È

¦^´_ 1# luhpro
Ãø¹D¤£¯à¥Î¦CÁ|ªº¤è¦¡¤@¦¸«ü©w¾ã­Ó¾ã¼Æ°}¦Cªº­È¶Ü?
  1. Sub Ex()
  2.     Dim A
  3.     A = Array(10, 20, 30)
  4.     MsgBox A(0)
  5.     A(0) = 50
  6.     MsgBox A(0)
  7. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ 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¦³«ü©w­n±N³o­Ó­È«ü©wµ¹­þ­Ó¤¸¯À¡C
­n³]©w¤@­Ó°}¦C¤¤ªº¤¸¯À¡A±z´N¥²¶·«ü©w¦¹¤¸¯Àªºµù¼Ð¡C¨Ò¦p¡A­Y MyArray ¬°¤@­Ó¾ã¼Æ°}¦C¡A«h¹Bºâ¦¡ MyArray = 5 ¬O¤£¥¿½Tªº¡A¤U¦Cªº¹Bºâ¦¡¤~¬O¥¿½Tªº¡G
MyArray(UBound(MyArray)) = 5
  1. Sub ¥i¦æ()
  2.     Dim A()
  3.     A = Array(1, 2)
  4.     ReDim Preserve A(UBound(A) + 1)
  5.     A(UBound(A)) = 10
  6.     MsgBox UBound(A)
  7. End Sub
  8. '''''''''''''''''''''''''''''''''''''''''''''
  9. Sub ¤£¥i¦æ()
  10. Dim A(1)
  11. A = Array(1,2)
  12. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD