textbox'lardan maksimum/ortalama almak

[volume01]

merhaba,

10 tane textbox'ımıza veri giriliyor. ( textbox1,textbox2....)

textbox11'de, bu 10 tanesine girilen rakamların en yükseğini olanını yazdırmak istiyorum. ( command buton ile)

örneği, minimum ve ortalama fonksiyonları ile de düşünebilirsiniz.

yardımlar için şimdiden teşekkürler.

 

[Orion1]

Bu kod işinizi görür.

Dim buyuk As Double
TextBox11.Text = ""
buyuk = TextBox1.Text
For i = 2 To 10
    If IsNumeric(Controls("TextBox" & i).Text) Then
        If CDbl(Controls("TextBox" & i).Text) > buyuk Then
            buyuk = Controls("TextBox" & i).Text
        End If
    End If
Next
TextBox11.Text = Format(buyuk, "#,##0.00")

 

[ynmcan]

merhaba,

10 tane textbox'ımıza veri giriliyor. ( textbox1,textbox2....)

textbox11'de, bu 10 tanesine girilen rakamların en yükseğini olanını yazdırmak istiyorum. ( command buton ile)

örneği, minimum ve ortalama fonksiyonları ile de düşünebilirsiniz.

yardımlar için şimdiden teşekkürler.

Syn.Volume01;
Ekteki örnek dosyayı inceleyin.

Private Sub CommandButton1_Click()

Dim deg(10)
For i = 1 To 10
On Error Resume Next
deg(i) = CDbl(Controls("textbox" & i))
Next
TextBox11 = WorksheetFunction.Large(deg, 1)

End Sub

 

[volume01]

çok teşekkür ederim, saygılar.