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

[µo°Ý] Ãö©ó¤½¥ÎÅܼƬO§_¥i¥H¨Ï¥Î¦b¦Û­qªí³æ¤W?

[µo°Ý] Ãö©ó¤½¥ÎÅܼƬO§_¥i¥H¨Ï¥Î¦b¦Û­qªí³æ¤W?

  1. Private Sub CommandButton3_Click()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. d("GAS1") = "¤p©ú"
  4. d("GAS2") = "¤pµØ"
  5. d("IAS1") = "¤pµØ"
  6. d("IAS2") = "¤pµØ"
  7. d("CHAS1") = "¤pµØ"
  8. d("CHAS2") = "¤pµØ"

  9. L1C = Label1.Caption
  10. L2C = Label2.Caption
  11. L3C = Label3.Caption
  12. L4C = Label4.Caption
  13. TB1 = TextBox1.Value
½Æ»s¥N½X
¥H¤W¬O§Æ±æ¥i¥H¨Ï¥Î¦bUserForm1~100¤Wªº
§Æ±æ¥u­n«Å§i¤@¦¸~©Ò¥H§Ú¸Ó¦p¦ó¼g?
¬O¼g¦b¼Ò²Õ¤º¼g¤J?¦p¤U
  1. Public Sub NName()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. d("GAS1") = "¤p©ú"
  4. d("GAS2") = "¤pµØ"
  5. d("IAS1") = "¤pµØ"
  6. d("IAS2") = "¤pµØ"
  7. d("CHAS1") = "¤pµØ"
  8. d("CHAS2") = "¤pµØ"

  9. L1C = Label1.Caption
  10. L2C = Label2.Caption
  11. L3C = Label3.Caption
  12. L4C = Label4.Caption
  13. TB1 = TextBox1.Value
  14. End Sub
½Æ»s¥N½X

¦^´_ 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µ{§Ç¸Õ¸Õ¬Ý

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-24 19:35 ½s¿è

¦^´_ 2# GBKEE


    ´ú¸Õ«á~¥X²{~UserForm1.Show    ¦¹»Ý­nª«¥ó~§Ú¦A¬ã¨s¤@¤U@@

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD