標題: 請問如何讓表單選項停在上一次使用狀態 [打印本頁]

---

作者: fei6999    時間: 2011-12-23 10:56     標題: 請問如何讓表單選項停在上一次使用狀態

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

---

作者: register313    時間: 2011-12-23 12:07

回復 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

複製代碼

[attach]8907[/attach]

---

作者: fei6999    時間: 2011-12-23 12:31

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

---

作者: register313    時間: 2011-12-23 13:09

回復 3# fei6999

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

複製代碼

[attach]8908[/attach]

---

作者: fei6999    時間: 2011-12-23 13:50

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

---

作者: fei6999    時間: 2012-1-4 10:41

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)