بیشترین مقدار از مقادیر چند تكس باكس (ماكزیمم)

**ظهور 313** · 2018/03/15, 01:17

آقا كسی نیست راهنمایی كنه؟

**rasools13** · 2018/03/15, 02:00

نوشته اصلی توسط ظهور 313

سلام و عرض ادب خدمت اساتید محترم
با چه كدی میشه بیشترین مقدار از بین چند تكس باكس رو استخراج كرد؟

با سلام
به تعداد تکس باکس ها متغیرX تعریف. کنید و مقادیر آن ها را برابر تکس باکس ها قرار بدید
در ادامه هم از تابع max استفده کنید
مثلا

کد PHP:


Application.WorksheetFunction.Max(X1,X2,X3,...)

**misammisam** · 2018/03/15, 02:05

سلام
ساده ترین راه اینه :

فایل های پیوست شده

AB.xlsm (26.3 کیلو بایت, مشاهدات 17)

**ظهور 313** · 2018/03/15, 14:01

نوشته اصلی توسط misammisam

سلام
ساده ترین راه اینه :

توی فایل خودم اعمال كردم اما این خطا رو میده

لازم به ذكر است كه مقدار تكس‌باكس‌های من، درصده (نمیدونم تاثیر داره یا نه)
البته توی فایل شما درصد هم جواب داد

**Amir Ghasemiyan** · 2018/03/15, 15:10

دوست عزيز فايل نمونه قرار بدين مشكلش بررسي بشه

**ظهور 313** · 2018/03/19, 02:29

نوشته اصلی توسط Amir Ghasemiyan

دوست عزيز فايل نمونه قرار بدين مشكلش بررسي بشه

سلام و خسته نباشید
این فرمول اگه احیانا یكی از تكس باكس‌ها خالی باشه، خطا میده.
آیا راهی داره كه این مشكل به وجود نیاد؟

**majid_mx4** · 2018/03/19, 08:57

با سلام

کلیدهای Alt+f11 را فشار دهید .
دستورات را بشکل زیر تغییر دهید ( کپی کنید )

کد:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim Num
    Set ws = Worksheets(1)
    For Each Num In ws.OLEObjects
        If Left(Num.Name, 7) = "TextBox" Then
          If Num.Object.Text = "" Then
          Num.Object.Text = 0
        End If
        End If
    Next Num
 Range("D18").Value = Application.WorksheetFunction.Max(TextBox1.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value)
End Sub

موفق باشید میر