Excel VBA ilə CheckBox

Salam.Bu dərsimizdə Excel VBA-nın CheckBox funksiyasını öyrənəcəyik

Exceldə olan CheckBox (yoxlama qutusu) ilə hazırladığınız iş vərəqlərindəki yerləşdirdiyiniz sorğuları bu qutular vasitəsilə rahatlıqla edə bilərsiniz.Məsələn : Tutaqki sorğu tərtib edirik :

İngilis dilli Excellərdə Check boxları əlavə etmək qaydası : Həm Design Mode əmrin həmdə Controls əmrin aktiv edirik.

İndi isə check boxları əlavə edək :

Design Mode aktiv olanda Checkboxları aktiv etmək olmur.İndi isə check box seçilərkən xatırlatma edən əmr yazaq.
Hər bir check box-a klik edib kod hissəsinə keçirik :

Option Explicit

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
MsgBox ("*Beli* secdiniz")
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
MsgBox ("*Xeyr* secdiniz")
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
MsgBox ("*Beli* secdiniz")
End If
End Sub

Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then
MsgBox ("*Xeyr* secdiniz")
End If
End Sub

Private Sub CheckBox5_Click()
If CheckBox5.Value = True Then
MsgBox ("*Beli* secdiniz")
End If
End Sub
===========================

Kodlarımızı yazdıqdan sonra F5 əmri ilə işə salırıq.Nəticə :

Rus dilli Exceldə isə check box (флажок) əlavə etməyin qaydası :

Digər əmrlər isə yuxarıda izah etdiyimiz qayda ilə etmək lazımdır.