زر الاختيار option button


الكود



ادخال الاختيار فى قاعدة البيانات يضاف الكود الى زر الترحيل
.Range("A" & Lastrow).Value = IIf(OptionButton1.Value = True, "MALE", "FEMALE")



البحث عن الاختيار فى قاعدة البيانات

If Sheets("Sheet1").Range("A" & row_number).Value = "MALE" Then
OptionButton1 = True
Else
OptionButton2 = True
End If



تعديل الاختيار فى قاعدة البيانات يضاف الى زر التعديل
.Range("A" & row_number).Value = IIf(OptionButton1.Value = True, "MALE", "FEMALE")



البحث عن قيمة الاختيار فى الليست بوكس يستخدم مع extract_data_in_listbox

' NU have to be replaced with Listbox Column Number - 1
If LISTBOX1.List(row_number, NU) = "MALE" Then
OptionButton1 = True
Else
OptionButton2 = True
End If