[µo°Ý]¡@Type »P ¦hºû«×°}¦C¤§ Redim
- ©«¤l
- 67
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 78
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Excel 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-15
- ³Ì«áµn¿ý
- 2021-9-14
|
[µo°Ý]¡@Type »P ¦hºû«×°}¦C¤§ Redim
' ¦b type ¸Ìªº¦hºû°}¦C¡A¦b«·s Redim ¦hºû°}¦C¤j¤p®É¡A·|¥X¿ù¡F½Ð°Ýn¦p¦ó×¥¿©O¡H
Public Type t
Amount() As Double
PriceAry(1, 1) as Double ' ¦³¸ÕµÛ±N¦¹¦æ §ï¦¨ PriceAry()() as Double ©Î PriceAry(,) as Double ¡A³£·|¥X¿ù
End type
Dim a(2) as t
Public sub s()
With a(1)
redim .Amount(10)
redim .PriceAry(1 to 10, 1 to 10) ' ³o¦æ·|¥X¿ù¡A½Ð°Ýn¦p¦ó§ïÅÜ°}¦C¤j¤p©O¡H
End with
End sub |
|
|
|
|
|
|
- ©«¤l
- 67
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 78
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Excel 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-15
- ³Ì«áµn¿ý
- 2021-9-14
|
¤v¸Ñ¨M.
½Ð§ï¥Î PriceAry() «Å§i¡A¤£ºÞ PriceAry() ³Q Redim ¦h¤Öºû«×°}¦C¡C |
|
|
|
|
|
|