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

½Ð°Ý¦p¦óÅýªí³æ¿ï¶µ°±¦b¤W¤@¦¸¨Ï¥Îª¬ºA

½Ð°Ý¦p¦óÅýªí³æ¿ï¶µ°±¦b¤W¤@¦¸¨Ï¥Îª¬ºA

½Ð°Ý¦p¦óÅýªí³æ¿ï¶µ°±¦b¤W¤@¦¸¨Ï¥Îª¬ºA
OptionButton1 OptionButton2¬°¸s²Õ
OptionButton3 OptionButton4 OptionButton5¬°¸s²Õ
¿ï§¹«á­n½T©w
­«¶}­n°±¦b¤W¤@¦¸¨Ï¥Îª¬ºA
»Ý­n¦p¦ó³]©w

Book1.rar (7.79 KB)

¦^´_ 1# fei6999
ªì¾ÇªÌVBA
  1. Private Sub UserForm_Initialize()
  2.   OptionButton1 = Range("A1")
  3.   OptionButton2 = Range("A2")
  4.   OptionButton3 = Range("A3")
  5.   OptionButton4 = Range("A4")
  6.   OptionButton5 = Range("A5")
  7. End Sub
  8. Private Sub OptionButton1_Click()
  9.   Range("A1") = True
  10.   Range("A2") = False
  11. End Sub
  12. Private Sub OptionButton2_Click()
  13.   Range("A1") = False
  14.   Range("A2") = True
  15. End Sub
  16. Private Sub OptionButton3_Click()
  17.   Range("A3") = True
  18.   Range("A4") = False
  19.   Range("A5") = False
  20. End Sub
  21. Private Sub OptionButton4_Click()
  22.   Range("A3") = False
  23.   Range("A4") = True
  24.   Range("A5") = False
  25. End Sub
  26. Private Sub OptionButton5_Click()
  27.   Range("A3") = False
  28.   Range("A4") = False
  29.   Range("A5") = True
  30. End Sub
  31. Private Sub ½T©w_Click()
  32.   Unload Me
  33. End SubPrivate Sub ¨ú®ø_Click()
  34.   Unload Me
  35. End Sub
½Æ»s¥N½X
Book1.zip (11.47 KB)

TOP

·PÁÂ!¦¹¤èªk¥i¦æ
¦ý¬O¤£ª¾¹D¥i¦³¨ä¥L¤£»Ý­n°Ê¥Î¨ìÄæ¦ìªº¤èªk

TOP

¦^´_ 3# fei6999
  1. Private Sub ½T©w_Click()
  2.   UserForm1.Hide
  3. End Sub

  4. Private Sub ¨ú®ø_Click()
  5.   UserForm1.Hide
  6. End Sub
½Æ»s¥N½X
Book2.zip (10.49 KB)

TOP

·PÁÂ!¥i¥H¨Ï¥Î
­Y¬O­n¶i¤@¨B
§Æ±æ¦b¦sÀÉÃö³¬«á,«O¯dª¬ºA
¦A¤U¤@¦¸¶}Àɮɭn¦P¤W¦¸¦sÀɪ¬ºAªº¸Ü
¥i¦³¤èªk!

TOP

§Ú±Ä¥Î¤èªk¤@¨Ó¸Ñ¨M!ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD