- ©«¤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
|
¦^´_ 1# alsr
VBA ªº»¡©ú
Dictionary ª«¥ó
ª«¥ó¡A¥Î©óÀx¦s¸ê®ÆÃöÁä¦r©M¶µ¥Ø¹ï¡C
½Ðª`·N
Dictionary ª«¥ó»P PERL ¬ÛÃö°}¦C¥þµ¥¡C¥i¥H¬O¥ô¦ó«¬¦¡ªº¸ê®Æªº¶µ¥Ø³QÀx¦s¦b°}¦C¤¤¡C¨CÓ¶µ¥Ø³£»P¤@Ӱߤ@ªºÃöÁä¦r¬ÛÃö¡C¸ÓÃöÁä¦r¥Î¨Ó¨ú¥X³æÓ¶µ¥Ø¡A³q±`¬O¾ã¼Æ©Î¦r¦ê¡A¥i¥H¬O°£°}¦C¥~ªº¥ô¦ó«¬ºA¡C
Split ¨ç¼Æ
¶Ç¦^¤@Ó³¯¦C¯Á¤Þ±q¹s¶}©lªº¤@ºû°}¦C¡A¥¦¥]§t«ü©w¼Æ¥Øªº¤l¦r¦ê¡C - Option Explicit
- Sub Ex()
- Dim D As Object, KEY As Variant
- Set D = CreateObject("SCRIPTING.DICTIONARY") '¦r¨åª«¥ó
- D("ABC") = "ISABC" 'ABC ¬O¦r¨åª«¥óªºKEY (ÃöÁä¦r) 'ISABC ¬O¦r¨åª«¥óªºITEM
- D("BCD") = ""
- [a1] = "Excel_VBA"
- Set D("CDE") = [a1]
- MsgBox Join(D.KEYS, ",")
- MsgBox Join(D.ITEMS, ",")
- For Each KEY In D.KEYS
- Debug.Print KEY
- Next
- For Each KEY In D.ITEMS
- Debug.Print KEY
- Next
- End Sub
½Æ»s¥N½X |
|