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

[µo°Ý] ¦p¦ó¥[¸ê®Æ

¦bVBE¼Ò¦¡¤U¦³¤@­Ó?¸¹,´N¬O¦b¼gVBA¦³°Ý¬OÃD®É¥i¥HÂI¤@¤U°Ý¸¹,µM«á§â¤£À´ªº¥´¶i¥h·j´M,³qªø³£·|±o¨ìµª®×.
¦p¤U´N¬O Scripting.Dictionary ·j´M¥X¨Óªºµ²ªG,


Dictionary ª«¥ó»P PERL ¬ÛÃö°}¦C¤@¼Ë¡C¥i¥H¦s©ñ¥ô¦ó«¬¦¡ªº¸ê®Æ¶µ¥Ø°}¦C¡C¨C­Ó¶µ¥Ø³£¬O°ß¤@ªºÃöÁä¦r¡C¸ÓÃöÁä¦r¥Î¨Ó¨ú¥X³æ­Ó¶µ¥Ø¡A³q±`¬O¾ã¼Æ©Î¦r¦ê¡A¥i¥H¬O¦s©ñ°£°}¦C¥H¥~ªº¥ô¦ó«¬§O¸ê®Æ¡C

¤U­±Á|¨Ò»¡©ú¤F¦p¦ó«Ø¥ß¤@­Ó Dictionary ª«¥ó¡G

Dim d                        '«Ø¥ß¤@­ÓÅܼÆ
Set d = CreateObject(Scripting.Dictionary)
d.Add "a", "Athens"     '¥[¤J¤@¨ÇÃöÁä¦r©M¶µ¥Ø
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
...

¦]¬°»¡©úÀɬOª½±µÂ½Ä¶ªº©Ò¥H¤å¥y«Ü¤£¶¶,¥H¤W¤å¦r¦³¸g¹L­×§ï,¦ý¬O¥Ø«e»¡©úÀɤ´µM¬O¾Ç²ßExcel³Ì²«Kªº¤u¨ã,¤j®a°µ°Ñ¦Ò.
V98

TOP

¥»©«³Ì«á¥Ñ linshin1999 ©ó 2011-1-8 11:26 ½s¿è

¦^´_ 16# basarasy

Åܼƭn¥ÎObject¶Ü?
Dim d as Object ??



Dim d                                                              '«Ø¥ß¤@­ÓÅܼÆ
Set d = CreateObject(Scripting.Dictionary)


VBA ¤¤Åܼƪº«Å§i¤£©ú½T»¡©ú«¬§O¬°¦ó®É,¥¦ªº«¬§O´N¬O Variant ¥¦ªº·N«ä´N¬O¤°»ò«¬ºA³£¥i¥H,
1)¦³¦n³B:´N Scripting.Dictionary ¨ÓÁ¿,¥¦­n³BÍù¸òµÛ¨Óªº °}¦C ©Ò¥H¥¦ªº«¬§O·|¸òµÛ«á­±ªº °}¦C ¶],¥¦ªº«¬§O´N¤@©w­n¬O Variant ,¦pªG没¦³ variant ³o­Ó«¬§O, Dictionary ´N¤£¦s¦b¤F .
2)¦³¯ÊÂI:´N¬O¤£©ú½T,¹ï©ó²ßºD©ú½T«¬§Oªº¤H·|«Ü¤£²ßºD,§Ú¤]¬O³o¼Ë.

¤µ¤Ñ¦A¦^ÀYŪ Hsieh ª©¥D ©M TAlonso ºë±mªº½×­z,¤~ª`·N¨ì¦³³o«h¦^´_,¯u¤£¦n·N«ä.


¦^´_ 24# b9208

¤Óºë±m¤F,§Ú¤]¨Ó¥[½X.
V98

TOP

«ç»òÁ¿©O?´N¬O¤@ÂIÂI¥[¤@ÂIÂI¥[,µM«á´NÀ´¤F,ÁÂÁ¦U¦ì,©ñ°²¤F¤j®a³£ÁÙ¦b§V¤O,FAlonso¥xÆW¦n§N,¨º¸ÌÁÙ¦n§a!
V98

TOP

¦^´_ 29# b9208


    §Ú¬O«á¾Ç, ½×¾Â¤W½Íªº³£¬O§Ú¶i¨BªºÂ³­¹,·|«Ü¬Ã±¤ªº,³o­Ó½×¾Â¯uªºÀ°§U§Ú«Ü¦h,­É¦¹¦A»¡ÁnÁÂÁ¤j®a!!:D
V98

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD