iyi günler
benim bir userform üzerinde 5 adet checkbox um var.yapmaya çalıştığım şey bunların değeri true ise backcoloru yeşil false ise kırmızı olması.hangi olaya yazacağımı söyleyebilirseniz sevinirim.
ben şöyle bir çalışma yaptım olmadıchangeyide denedim)
Private Sub CheckBox_Click()
Dim a As byte
For a = 1 To 5
If Controls("checkbox" & a).Value = True Then
Controls("checkbox" & a).BackColor = vbGreen
Else
Controls("checkbox" & a).BackColor = vbRed
End If
Next a
End Sub
benim bir userform üzerinde 5 adet checkbox um var.yapmaya çalıştığım şey bunların değeri true ise backcoloru yeşil false ise kırmızı olması.hangi olaya yazacağımı söyleyebilirseniz sevinirim.
ben şöyle bir çalışma yaptım olmadıchangeyide denedim)
Private Sub CheckBox_Click()
Dim a As byte
For a = 1 To 5
If Controls("checkbox" & a).Value = True Then
Controls("checkbox" & a).BackColor = vbGreen
Else
Controls("checkbox" & a).BackColor = vbRed
End If
Next a
End Sub