محاسبه میانگین اعداد

[bakhshism]

سللم به دوستان من در روی یک userform ده تا تکس باکس برای ورود عدد دادرم که می خواهم با استفاده از یک کامندباتن میانگین تکس باکسهای تکمیل شه را در یک تکس بکس قرار بدم ممنون میشم راهنمایی بکنم
نکته:

[m.estreji]

سللم به دوستان من در روی یک userform ده تا تکس باکس برای ورود عدد دادرم که می خواهم با استفاده از یک کامندباتن میانگین تکس باکسهای تکمیل شه را در یک تکس بکس قرار بدم ممنون میشم راهنمایی بکنم
نکته:

دوست عزیز از قطعه کد زیر میتونی استفاده کنی

Private Sub CommandButton1_Click()
Dim i
Dim c
Dim n
n = 0
For i = 0 To 9
    c = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10)
    n = Int(c(i).Text) + n
Next
TextBox11.Text = Int(n) / 10
End Sub

[tosco3652]

دوست عزیز از قطعه کد زیر هم میتونی استفاده کنی.

TextBox11.Text = WorksheetFunction.Average(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, 
TextBox9.Text, TextBox10.Text)