請問如何讓表單選項停在上一次使用狀態

fei6999

請問如何讓表單選項停在上一次使用狀態
OptionButton1 OptionButton2為群組
OptionButton3 OptionButton4 OptionButton5為群組
選完後要確定
重開要停在上一次使用狀態
需要如何設定

register313

回復 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 確定_Click()
    
32.   Unload Me
    
33. End SubPrivate Sub 取消_Click()
    
34.   Unload Me
    
35. End Sub

複製代碼

Book1.zip (11.47 KB)

下載次數: 4

2011-12-23 12:06

fei6999

感謝!此方法可行
但是不知道可有其他不需要動用到欄位的方法

register313

回復 3# fei6999

1. Private Sub 確定_Click()
   
2.   UserForm1.Hide
   
3. End Sub
   
4. 
   
5. Private Sub 取消_Click()
   
6.   UserForm1.Hide
   
7. End Sub

複製代碼

Book2.zip (10.49 KB)

下載次數: 6

2011-12-23 13:09

fei6999

感謝!可以使用
若是要進一步
希望在存檔關閉後,保留狀態
再下一次開檔時要同上次存檔狀態的話
可有方法!

fei6999

我採用方法一來解決!謝謝