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

·s¤âµo°Ý - ½Ð°Ý

¥»©«³Ì«á¥Ñ alumi ©ó 2012-5-30 20:33 ½s¿è

DIM ¬O¥Î©ó«Å§iÅܼƦWºÙ »P Åܼƫ¬ºA
»yªk:
Dim ÅܼƦWºÙ as Åܼƫ¬ºA
½d¨Ò:
Dim I as Integer  ' «Å§i I ¬°¾ã¼Æ«¬ºA, ¨ä­È³Ì¤j»P³Ì¤p½d³ò¬° -32768 ~ 32767

¥ô¦ó¤lµ{¦¡ ¶}ÀY, ¥Î Dim ¶i¦æÅܼƪº«Å§i ¤Î¨Ï¥Î , ¬O¤@­Ó¨}¦nªº¼gµ{¦¡²ßºD.

TOP

Long ¥i¦sÀxªº¼Æ­È ½d³ò, ¤ñ Integer  ¤j¤W³\¦h,
¬Û¹ï¨Ó»¡, ¹Bºâ³t«×¤]¤£¤Î Integer ©Ò«Å§iÅܼƨӪº§Ö.
Integer  2 ­Ó¦ì¤¸²Õ -32,768 ¨ì 32,767
Long (long integer) 4 ­Ó¦ì¤¸²Õ -2,147,483,648 ¨ì 2,147,483,647
--------------------------------------------------------------------
Dimarr(x)   
¥i¥H³o¼Ë¤l«Å§i, ¦ý¤£«Øij.
«Øij«á¤è ¦A©w¸q¨ä¸ê®Æ«¬ºA
¨Ò¦p:
Dim arr(x) as Variant
Dim arr(x) as string
Dim arr(x) as integer

TOP

¶â,ÁÂÁÂ,¹ï«Å§i¦³°ò¦ªº»{ª¾¤F
¥i¬O¬°¤°»ò­n§â¸ê®Æ¥á¨ì°}¦C¸Ì©O?
ª½±µ§âÀx¦s®æ¤ºªº¸ê®Æ¹Bºâ¤£¬O¸û§Ö¶Ü?
...
alex_wu µoªí©ó 2012-5-31 22:23


1. Excel ¤u§@ªí, ¥»¨­´N¬O¤@­Ó¤j«¬ªº ¤Gºû°}¦C.
   ¦ý¥¦¨C¤@­ÓÀx¦s®æ, ¤£©w¤j¤p, ¥i¦s©ñ¦UÃþ«¬ºAªº¸ê®Æ»P¬ÛÃöÄÝ©Ê, ¬G¬Û¹ï¦Ó¨¥, ¬O¤ñ ³æ¤@«¬ºAªº°}¦C, ¯Ó¥Î§ó¦hªº°O¾ÐÅé.
   ÀuÂI: ¥iµø¤Æ

2. VBA ¤ºªº³æ¤@«¬ºA°}¦C, ¦bµ{¦¡°õ¦æ®É, ¨ä³t«×, »·¤ñ¦A¥h½Õ¥Î ¤u§@ªíªºÀx¦s®æ¸ê®Æ, ÁÙ­n¨Óªº§Ö.

TOP

¦^´_ 7# alex_wu

1.©Ò¥H­Y­n¥[§Öµ{¦¡³t«×, ©Ò¥H«Å§i®É ,­Y¨Ï¥Î¤§Data ¤£·|¶W¹L65536µ§
    «h¥ÎDim x as integer ¸û¨Î.¹ï¶Ü?
2.½Ð°Ý¥H¤U»{ª¾¹ï¶Ü ?
Dim arr(x) as Variant  --> «ü©w¸q°}¦Cxªº¸ê®Æ¬° ?? Variant¬O??
Dim arr(x) as string    --> «ü©w¸q°}¦Cxªº"¤º®e"¬°"¦r¦ê"
Dim arr(x) as integer  --> «ü©w¸q°}¦CXªº"¤º®e"¬°"¼Æ­È"
------------------------------------------------------------------------
·Pı¦³ÂI©Ç©Çªº.
X ¬°¾ã¼Æ­È, ¨ä­Èªº½d³ò¬° -32768 ~ 32767
¥i¥H³o¼Ë¤l«Å§i
Const  X as Integer = 32767
Dim Arr(x) as String    ' °}¦C¯Á¤Þ½d³ò¬° 0~32766
©ÎªÌ
Dim Arr(1 to X) as String ' °}¦C¯Á¤Þ½d³ò¬° 1  ~ 32767

­Y±z·Q¦bµ{¦¡½X¤¤, ©Ò«Å§iªº°}¦C, ¬O¥Ñ 1 ¶}©l, ¦Ó¤£¬O 0 ¶}©l,
½Ð¦b³Ì¤W­±¥[¤W¤@¦æ Option Base 1

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD