Kiểm tra nếu optionbutton được chọn trong VBA

Y

yeskincM

Yêu THVBA
Em tạo 2 optionbutton ( form control) trong excel ( option button 1 và option button 2), nhưng khi em dùng vba dưới đây để check thì nó không check được( dù em tick vào option button 1 nhưng msgbox hiện ra vẫn là "not oke" ạ. bác nào cho em hỏi cách xử lí với ạ. Tks mn ạ

Sub xx()
If ActiveSheet.OptionButtons("option button 1").Value = True Then
MsgBox "oke"
Else
MsgBox "not oke"
End If

End Sub
 
D

Deleted member 1392

Guest
Bạn đưa file demo lên Google Drive rồi kéo link về đây, tôi sẽ hỗ trợ bạn.
 
D

Deleted member 1392

Guest
Quyền truy cập bạn ơi ???
 
D

Deleted member 1392

Guest
Sửa
Mã: 
ActiveSheet.OptionButtons("option button 1").Value = True
Thành
Mã: 
ActiveSheet.OptionButtons("option button 1").Value = Checked
 
D

Deleted member 1392

Guest
Vì nó là option button trong Form Control, giá trị trả về là Checked và Uncheck. Khi bạn dùng option button trong ActiveX thì giá trị trả về mới True False.
 
V

vqlongbn

Yêu THVBA
Mình test thử trên Excel 2013 64bit thì true false checked unchecked đều được
Mã: 
Sub testoptionbutton()
ThisWorkbook.Sheets("Sheet1").OptionButtons("Option Button 1").Value = True
End Sub
có lẽ điều này đã thay đổi trong các phiên bản sau
 
Y

yeskincM

Yêu THVBA
Ngày Mới nói:
Vì nó là option button trong Form Control, giá trị trả về là Checked và Uncheck. Khi bạn dùng option button trong ActiveX thì giá trị trả về mới True False.
Nhấn để mở rộng...
vqlongbn nói:
Mình test thử trên Excel 2013 64bit thì true false checked unchecked đều được
Mã: 
Sub testoptionbutton()
ThisWorkbook.Sheets("Sheet1").OptionButtons("Option Button 1").Value = True
End Sub
có lẽ điều này đã thay đổi trong các phiên bản sau
Nhấn để mở rộng...
em cảm ơn 2 bác nha
 
Bạn phải đăng nhập hoặc đăng ký để bình luận.
Top