TextBoxlardaki sayıları toplamak

[dEdE]

Merhaba,
Aşağıdaki kodlarla TextBox1 'deki sayısal değer değiştiğinde diğer TextBox'lardaki değerlerle birlikte toplam almaktayım.
13 tane TextBox için ayrı ayrı procedure yazmak yerine tek bir procedure ile 13 adet TextBox'tan herhangi biri değiştirildiğinde tümünün toplamı aldırılabilir mi?

Private Sub TextBox1_AfterUpdate()
    For i = 1 To 13
        x = x + Val(Controls("TextBox" & i).Text)
    Next
    Label14.Caption = x
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil kullanabilirsiniz.
'module
Sub toplam()
Dim i As Byte
Dim x As Long
For i = 1 To 13
x = x + Val(UserForm1.Controls("TextBox" & i).Text)
Next
UserForm1.Label14.Caption = x
End Sub

'foruma textlerin içerisine
Private Sub TextBox1_AfterUpdate()
toplam
End Sub

Private Sub TextBox2_AfterUpdate()
toplam
End Sub

 

[dEdE]

Merhaba,
Hızlı yanıt için teşekkürler.
Yanıtınız kod boyutunu azaltır ama yine de UserFormun kod bölümünde Private Sub TextBox1_AfterUpdate(), ... Private Sub TextBox13_AfterUpdate() şeklinde 13 adet procedur yazmak gerekiyor.
Bu işlemi tek bir procedur ile yapabilir miyiz?
Teşekkürler.

 

[acar6783]

Classmodule kullanabilirsiniz.

 

[acar6783]

Bu şekilde deneyebilirsiniz.

 

[dEdE]

Sayın acar6783,
Teşekkürler.