Dolu Textbox Sayısını Mesajla Bildirme isimli içerikte, bir form üzerindeki dolu TextBox sayısını bulup kullanıcıya mesajla bildiren bir Hazır Makro Kodu yer almaktadır.
Hazır Kodlar
VBA:
Sub DoluTextboxSayisiniBul()
Dim frm As Object
Dim ctl As Control
Dim doluSay As Integer
' Form üzerindeki tüm kontrolleri döngüyle kontrol et
For Each frm In UserForms
For Each ctl In frm.Controls
' Eğer kontrol bir TextBox ise ve boş değilse
If TypeName(ctl) = "TextBox" Then
If ctl.Value <> "" Then
doluSay = doluSay + 1
End If
End If
Next ctl
Next frm
' Dolu TextBox sayısını mesajla bildir
MsgBox "Dolu TextBox sayısı: " & doluSay
End SubAçıklama
Bu kod, bir form üzerindeki TextBox kontrollerini kontrol eder ve dolu olan TextBox sayısını bulur. Eğer bir TextBox doluysa, `doluSay` değişkeni 1 artırılır ve sonunda bu değer bir mesaj kutusu ile kullanıcıya bildirilir.Kullanım
- Üstteki kodu, form üzerindeki dolu TextBox sayısını öğrenmek için çalıştırın.
- Kodu çalıştırdığınızda, dolu olan TextBox sayısı bir mesaj kutusu ile gösterilecektir.
