topladığı texbox kadar ortalama alması

[oydemir]

arkadaşlar ek eki dosyada userform daki texboxları toplayıp ortalama almasını istiyorum ama topladığı texbox kadar ortalama alması gerekiyor.
birde otomatik yapmasını istiyorum yardımlarınız için teşekkürler

 

[Merhum İdris SERDAR]

.

UserForma bir Commandbutton ekleyin ve:

Private Sub CommandButton1_Click()

Dim m As Double
Dim n As Integer

m = 0
n = 0

For i = 0 To Me.Controls.Count - 1
     If Me.Controls(i).Name = "TextBox5" Or Me.Controls(i).Name = "TextBox6" Or Me.Controls(i).Name = "TextBox7" Or Me.Controls(i).Name = "TextBox8" Or Me.Controls(i).Name = "TextBox9" Or Me.Controls(i).Name = "TextBox10" Then
        If Me.Controls(i).Value <> "" Then
            m = m + Val(Me.Controls(i).Value)
            n = n + 1
        End If
    End If
Next i

If n = 0 Then
     Exit Sub
     
End If

TextBox11.Value = m / n

End Sub

Kodlarını yazın.

.

 

[oydemir]

teşekkürler elinize sağlık ama benim istediğim CommandButton olmadan otomatik yapması gerekiyor
oyomatik yapması mümkünmü

 

[Merhum İdris SERDAR]

arkadaşlar ek eki dosyada userform daki texboxları toplayıp ortalama almasını istiyorum ama topladığı texbox kadar ortalama alması gerekiyor.
birde otomatik yapmasını istiyorum yardımlarınız için teşekkürler

.

Dosyanız ekte.

.