پرسش مینیموم در تکست باکسها

[intro]

باسلام واحترام
چطور میشه بین 100 تکست باکس کوچکترین و یا بزرگترین تکست باکس را پیدا کرد

[mokaram]

از کد زیر استفاده کنید

Dim ctl As Control, myMax As Double
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Then myMax = Application.Max(myMax, Val(ctl.Value))
    Next
    MsgBox myMax 

[intro]

از کد زیر استفاده کنید

Dim ctl As Control, myMax As Double
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Then myMax = Application.Max(myMax, Val(ctl.Value))
    Next
    MsgBox myMax 

باسلام
با تشکر از پاسخ بسیار خوبتون
یه سوال دیگه هم داشتم اگر بخواهیم تکس باکس ها را به صورت ردیفی چیده باشیم و در هرردیف مثلا 12 تا تکس باشه و 20 ردیف هم تکس داشته باشیم چطور می تونیم برای هر ردیف کوچکترین عدد را پیدا کنیم و نمایش بدهیم یعنی از هر ریف یک عدد که کوچکترین عدد آن ردیف(12تایی) هست ودرمجموع 20 عدد را نمایش بدهیم 20 عدد که هرکدام از آنها کوچکترین عدد ردیف خودشان هستند .