Seçili CheckBox Sayısını Bulma

İşaretleme Kutusu

Seçili CheckBox Sayısını Bulma

İleti#1)  Murat OSMA » 13 Ağu 2011 01:46

UserForm kodları;
Kod: Tümünü seç
Option Explicit
Dim Ctr As Control
Dim Say As Integer
Dim Mesaj As String

Kod: Tümünü seç
Private Sub UserForm_Initialize()
On Error Resume Next
Label1.Caption = ""
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Say = 0: Mesaj = ""
For Each Ctr In Me.Controls
If VBA.TypeName(Ctr) = "CheckBox" Then
If Ctr.Value Then
Say = Say + 1
Mesaj = Mesaj & Ctr.Name & vbCr
End If
End If
Next Ctr
Label1.Caption = Say & " " & "Adet CheckBox İşaretli"
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14367
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Seçili CheckBox Sayısını Bulma

İleti#2)  Erhan Yavuz » 13 Ağu 2011 08:03

şkşk [mersi] [evet]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 61
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Seçili CheckBox Sayısını Bulma

İleti#3)  kemanci » 21 Mar 2020 11:19

Sadece belli checkboxlar arasından seçili olanları nasıl sayabilirim. Mesela 10 checkbox var sadece 5 tanesinde seçili olanları saysın.
Kullanıcı avatarı
kemanci
Yeni Başlamış
 
Adı Soyadı:Ali KARA
Kayıt: 16 Nis 2014 23:33
Konum: Edirne
Meslek: Mühendis
Yaş: 31
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne

Cevap: Seçili CheckBox Sayısını Bulma

İleti#4)  kemanci » 23 Mar 2020 21:24

Mesajımı okuyan olmadı mı? Yardım lütfen... ;;_)
Kullanıcı avatarı
kemanci
Yeni Başlamış
 
Adı Soyadı:Ali KARA
Kayıt: 16 Nis 2014 23:33
Konum: Edirne
Meslek: Mühendis
Yaş: 31
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Seçili CheckBox Sayısını Bulma

İleti#5)  kemanci » 27 Mar 2020 08:59

Private Sub CommandButton1_Click()
Dim Chk As Control
On Error Resume Next
Say = 0: Mesaj = ""
For Each Chk In Me.Controls
If VBA.TypeName(Chk) = "CheckBox" And Not Chk.Name = "CheckBox10" And Not Chk.Name = "CheckBox11" And Not Chk.Name = "CheckBox12" Then
If Chk.Value Then
Say = Say + 1
Mesaj = Mesaj & Chk.Name & vbCr
End If
End If
Next Chk
Label1.Caption = say & " " & "Adet CheckBox İşaretli"
End Sub


yukarıda ismini yazdığım CheckBox ları saymıyor. Bu da benim işimi gördü lazım olan varsa kullansın diye yazdım. Yardımı olan herkese teşekkürler.... [yummy]
Kullanıcı avatarı
kemanci
Yeni Başlamış
 
Adı Soyadı:Ali KARA
Kayıt: 16 Nis 2014 23:33
Konum: Edirne
Meslek: Mühendis
Yaş: 31
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne

Cevap: Seçili CheckBox Sayısını Bulma

İleti#6)  kemanci » 27 Mar 2020 09:11

Dosya olarak da ekleyeyim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
kemanci
Yeni Başlamış
 
Adı Soyadı:Ali KARA
Kayıt: 16 Nis 2014 23:33
Konum: Edirne
Meslek: Mühendis
Yaş: 31
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Seçili CheckBox Sayısını Bulma

İleti#7)  kemanci » 27 Mar 2020 10:03

Küçük bir çalışmadan sonra sadece belirttiğim checkbox'lar arasından işaretlediklerimi saymayı gerçekleştirdi. Onu da paylaşmak istedim. ;;_)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
kemanci
Yeni Başlamış
 
Adı Soyadı:Ali KARA
Kayıt: 16 Nis 2014 23:33
Konum: Edirne
Meslek: Mühendis
Yaş: 31
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Edirne


Forum CheckBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe