Hvis du i 'Designtilstand' dobbeltklikker på Checkbox1 kommer der et kode vindue frem hvor der står:
Private Sub CheckBox1_Click()
End Sub
Her kan du skrive din kode, eks. denne:
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Range("E2").Value = "CheckBox1 Ikke valgt"
Else
Range("E2").Value = "CheckBox1 Valgt"
End If
End Sub
Så når du klikke CheckBox1 til eller fra, skrives:
"CheckBox1 Ikke valgt" eller "CheckBox1 valgt" i celle E2
Eller:
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Range("E2").ClearContents
Else
Range("E2").Value = "CheckBox1 Valgt"
End If
End Sub
Så når du klikke CheckBox1 til eller fra, skrives:
"CheckBox1 valgt" i celle E2 ellers slettes E2
Og hvis du synes det er pænere kan du vende den om:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("E2").Value = "CheckBox1 valgt"
Else
Range("E2").Value = "CheckBox1 ikke valgt"
End If
End Sub