返回列表 上一主題 發帖

[發問] [發問] 關於 OptionButton 循環核選問題

[發問] [發問] 關於 OptionButton 循環核選問題

問題
若在環境中<Userform2>,點擊Button1 ,回到Userform1 ,但原先在Userform1所點擊的OptionButton1核選要怎取消?
有試著在Userform2內預先控制Userform1的Optionbutton1核選狀態消除,但似乎哪邊做錯。
麻煩各位大大教導,謝謝。
環境:
Userform1內
OptionButton1  <點選後開啟Userform2,並將Userform1隱藏>
OptionButton2  <點選後開啟Userform3,並將Userform1隱藏>

Userform2內
Button1 <點選後開啟Userform1,並將Userform2隱藏>

Userform3內
Button1 <點選後開啟Userform1,並將Userform3隱藏>

程式碼:(原先版本)
Userform1內Private Sub OptionButton1_Click()
    If OptionButton1.Value = True Then
        Me.Hide
        UserForm2.Show
    End If   
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2.Value = True Then
        Me.Hide
        UserForm3.Show
    End IfEnd Sub

Userform2內
Private Sub CommandButton1_Click()
    Me.Hide
    UserForm1.Show
End Sub

Userform3內
Private Sub CommandButton1_Click()
    Me.Hide
    UserForm1.Show
End Sub

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

回復 1# mark15jill
UserForm1
  1. Option Explicit
  2. Private Sub OptionButton1_Click()
  3.     If OptionButton1.Value = True Then
  4.         OptionButton1.Value = False
  5.         Me.Hide
  6.         UserForm2.Show
  7.     End If
  8. End Sub
  9. Private Sub OptionButton2_Click()
  10.     If OptionButton2.Value = True Then
  11.         OptionButton2.Value = False
  12.         Me.Hide
  13.         UserForm3.Show
  14.     End If
  15. End Sub
複製代碼

TOP

回復 2# GBKEE

大大 謝謝教導...
小弟想得太深了ˇˇ 忘記單純Value 就可以解決。
還一值在那邊Optionbutton2.Checked=false ...QQ"

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大,小人氣大。
返回列表 上一主題