GBKEE

¦^´_ 1# av8d
¼g¦b¥ô¼Ò²Õ¤º¼g¤J? ¦p¬O¦bSheet1¤u§@ªíª«¥ó¼Ò²Õ

1. Option Explicit
   
2. Public D As Object  'Public ¤½¥Î : Private ¨p¥Î
   
3. Public Sub NName()
   
4. Set D = CreateObject("Scripting.Dictionary")
   
5. D("GAS1") = "¤p©ú"
   
6. D("GAS2") = "¤pµØ"
   
7. D("IAS1") = "¤pµØ"
   
8. D("IAS2") = "¤pµØ"
   
9. D("CHAS1") = "¤pµØ"
   
10. D("CHAS2") = "¤pµØ"
    
11. MsgBox UserForm1.a
    
12. End Sub

½Æ»s¥N½X

¥t¦bUserForm1¤º¼g¤J

1. Option Explicit
   
2. Public a As String
   
3. Private Sub UserForm_Initialize()
   
4.     a = "UserForm1 Public ¤½¥ÎÅܼÆ"
   
5.     MsgBox Sheet1.D("GAS1")   'Sheet1 ¬Oª«¥ó¼Ò²Õ
   
6. '¦p¬O¤@¯ë¼Ò²Õªº¤½¥ÎÅÜ¼Æ ¤£»Ý«ü©ú¤@¯ë¼Ò²Õ¦WºÙ
   
7. '°£«D¦b2­Ó¤@¯ë¼Ò²Õ¦³¬Û¦PªºÅܼƦWºÙ «h»Ý«ü©ú¼Ò²Õ¦WºÙ
   
8. End Sub

½Æ»s¥N½X

½Ð°õ¦æ NNameµ{§Ç¸Õ¸Õ¬Ý