• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Checkbox

İlgili yere ekleyip deneyiniz.
Kod:
Private Sub CommandButton1_Click()
For i = 1 To 5
If Controls("CheckBox" & i) = False Then
say = say & Chr(10) & Chr(10) & Controls("CheckBox" & i).Name & " " & Controls("CheckBox" & i).Caption
End If
Next
MsgBox say & Chr(10), vbInformation
End Sub
 
Son düzenleme:
ilginiz için teşekkürler, tık işareti eklenmeyen (checkboxlar),

Checkbox1 veya Checkbox2 ekrana geliyor, bağlı bulunduğu metinleri gelmesi kodlarda nasıl değişiklik yapabiliriz
 
Üst mesajdaki kod yenilendi.
 
Geri
Üst