textbox iceriginin toplami

[Yakut]

slm,


textbox icerigini nasil bir toplam alinabilir.
verilen deger isim olarak toplam ise sayisal olarak yazilmasi


saygilar

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
Dim topla As Integer, txtbx As Control
For Each txtbx In Frame1.Controls
    If txtbx.Value <> "" Then topla = topla + 1
Next
TextBox4.Text = topla
topla = 0
For Each txtbx In Frame2.Controls
    If txtbx.Value <> "" Then topla = topla + 1
Next
TextBox8.Text = topla
topla = 0

For Each txtbx In Frame3.Controls
    If txtbx.Value <> "" Then topla = topla + 1
Next
TextBox12.Text = topla
topla = 0
End Sub

 

[Yakut]

evren hocam ,

tesekkürler, peki bunu döngüsüz ve frame siz olarak yani(frame1 dekiler icin ) ayri bir kod nasil yapilmali...

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

Private Sub UserForm_Initialize()
    Veri1 = TextBox1 & TextBox2 & TextBox3
    TextBox4 = Len(Veri1) - Len(WorksheetFunction.Substitute(Veri1, Veri1, ""))
    Veri2 = TextBox5 & TextBox6 & TextBox7
    TextBox8 = Len(Veri2) - Len(WorksheetFunction.Substitute(Veri2, Veri2, ""))
    Veri3 = TextBox9 & TextBox10 & TextBox11
    TextBox12 = Len(Veri3) - Len(WorksheetFunction.Substitute(Veri3, Veri3, ""))
End Sub

 

[Orion1]

evren hocam ,

tesekkürler, peki bunu döngüsüz ve frame siz olarak yani(frame1 dekiler icin ) ayri bir kod nasil yapilmali...

Olur tabi.Ben her türlüsünü yaparım.
Aşağıdaki kodlarla olduğu gibi.
Bu yöntemde Textboxların isimlerindeki sayılarının ardışık gitmesi lazım.

Dim topla As Integer, i As Byte, k As Byte, j As Byte
For i = 1 To 3
    For k = 1 To 3
        j = j + 1
        If Me.Controls("TextBox" & j).Text <> "" Then
            topla = topla + 1
        End If
    Next k
    j = j + 1
    Me.Controls("TextBox" & j).Text = topla
    topla = 0
Next i

 

[Yakut]

sayin Korhan ve Evren hocalarim,

yazmis oldugunuz kodlar icin tesekkürler.

Evren hocam, tam isabet ettiniz. aradigim buydu .

saygilar

 

[Orion1]

sayin Korhan ve Evren hocalarim,

yazmis oldugunuz kodlar icin tesekkürler.

Evren hocam, tam isabet ettiniz. aradigim buydu .

saygilar

Yalnız korhan beyle benim yazdığım kodlar ayrı işler yapıyor.
Benim yazdığım kodlar içinde veri olan textboxların sayısını topluyor,Korhan beyin yazdığı ise textboxların içindeki metnin karakter bazında uzunluklarını topluyor.
Kolay gelsin.

 

[Yakut]

kodlarinizi deneyip farkina vardim.

onun icin sizin kodunuzu isabet ettiniz dedim.

 

[Orion1]

kodlarinizi deneyip farkina vardim.

onun icin sizin kodunuzu isabet ettiniz dedim.

demekki attım tutturmuşum.