Lưu giữ kết quả của optionbutton

Liên hệ QC

Leo_178

Thành viên chính thức
Tham gia
30/3/07
Bài viết
53
Được thích
44
Em có tạo một userform trong đó có các optionbutton, tuy nhiên khi em lựa chọn và đóng userform lại thì lần sau mở ra kết quả của lần chọn trước biến mất, các bác chỉ cho em phương pháp để:
- khi đóng userform lại, lần sau mở ra kết quả của lần chọn trước vẫn còn, và;
- khi đóng workbook lại, lần sau mở workbook và userform ra kết quả của lần trọn trước vẫn còn.

Em co gửi file ví dụ đính kèm,

Cảm ơn các bác.
 

File đính kèm

Chính ô B6 và B7 là kết quả của Option...
Nếu File được lưu thì cũng biết lần trước chọn ra sao rồi.Cứ chọn 1 sheet để lưu rồi vào VBA ẩn sheet này đi là xong.
 
Upvote 0
Thực tế bản câu hỏi của minh có rất nhiều câu hỏi, và nếu phải đối chiếu như vậy thì rất bất tiện cho người dùng.
 
Upvote 0
Có gì bất tiện đâu, khi mở lại form và gán ngược giá trị Opt... bằng giá trị ô tương ứng, vậy Form thể hiện lại toàn bộ giá trị đã chọn cuối cùng rồi.
 
Upvote 0
Trong Form nhét thêm đoạn code này vào là ổn.
PHP:
Private Sub UserForm_Activate() If Cells(6, 2) = "Yes" Then OptionButton1 = True Else OptionButton2 = True End If If Cells(7, 2) = "Yes" Then OptionButton3 = True Else OptionButton4 = True End If End Sub
Thân.
 
Lần chỉnh sửa cuối:
Upvote 0
Trong Form nhét thêm đoạn code này vào là ổn.
PHP:
Private Sub UserForm_Activate()
If Cells(6, 2) = "Yes" Then
OptionButton1 = True
Else
OptionButton2 = True
End If
If Cells(7, 2) = "Yes" Then
OptionButton3 = True
Else
OptionButton4 = True
End If
End Sub
Thân.
Nên là thế này:
PHP:
Private Sub UserForm_Activate()
  OptionButton1 = (Cells(6, 2) = "Yes")
  OptionButton2 = (Cells(6, 2) = "No")
  OptionButton3 = (Cells(7, 2) = "Yes")
  OptionButton4 = (Cells(7, 2) = "No")
End Sub
Tôi vẩn cãm thấy toàn bộ code trong file khá lượm thượm ---> Có lẽ nên tìm cách rút gọn lại chăng?
Thêm nữa, nếu trong Form có nhiều câu hỏi, tức cũng có nhiều Option Button mà IF kiểu đó thì biết đến bao giờ
Có lẽ nên dùng vòng lập duyệt qua các OB thì gọn hơn ---> Vụ này có nói nhiều lần trên diển đàn rồi
 
Upvote 0
Nếu For Object được thì sẽ gọn hơn 1 chút. Thân.
 
Lần chỉnh sửa cuối:
Upvote 0
Bảng câu hỏi của mình có khoảng 100 câu hỏi, trong đó mỗi câu hỏi sẽ được gán với 2 optionbutton - một chẵn và một lẻ (ví dụ như Question1 sẽ được gán với optionbutton1 và optionbutton2), như vậy sẽ có 200 optionbutton. Nếu viết như vậy thì code sẽ rất dài. Vậy cho mình hỏi liệu có thể dùng một vòng lặp for để truy xuất tới các optionbutton được không (lẻ thì kết quả là "Yes", chẵn kết quả sẽ là "No")?
Cảm ơn!
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom