برمجة اكسيل

[m3da]

السلام عليكم كنت محتاج مساعدة في استكمال تحويل المعادلة المرفقة الي function مخزنة يتم تنفيذها مباشرة ارجو سرعة الرد

New Text Document.rar

[أبو حنــــين]

مرحبا

يمكن ان تستعمل هذه الدالة المعرفة

Function GetValue(C As Double)

    Dim MyResult As Single
    Select Case C
Case 30 To 60: MyResult = C * 0.97
Case 61 To 90: MyResult = C * 0.94
Case Is > 90: MyResult = C * 0.91
    End Select
GetValue = MyResult

End Function



' ثم تكتب في الخلية المعنية بالناتج
' =GetValue(B2)

 

تم تعديل أغسطس 5, 2016 بواسطه أبو حنــــين

[m3da]

اولا انا متشكر جدا علي الردكن انا عايز ادخل الجزء الاخير من المعادلة يعني اجمع علي ناتج select case + b$10$

[أبو حنــــين]

مرحبا أخي

اولا  : هل  ( b10) تجمع في كل الحالات

ثانيا : كيف يكون الناتج عندما تكون قيمة الخلية اقل من 30

 

 سجل اعجاب بهذا

•  

تم تعديل أغسطس 5, 2016 بواسطه أبو حنــــين

[m3da]

b10 هي ضريبة مضافة علي ثمن السلعة في كل الحالات وهي قيمة وليست نسبة وهذه صورة من الجدول المحتوي علي المعادلة والتي يراد تحويله بالكامل الي function

[أبو حنــــين]

ثالثا : هل  ( b10)   ثابتة او لا بمعنى هل ممكن ان يتغير عنوان او مكان الخلية مثلا C10  او   F15  . . . . 

[m3da]

اعتقد انها ثابتة لأنها ستكون دائما القيمة مقابلة لكلمة tax

[أبو حنــــين]

رغم انني لم استوعب الطرح لكن جرب هذه الدالة

Function GetValue(C As Double, TAX As Integer)
    
    Dim MyResult As Single
    Select Case C
Case 30 To 60: MyResult = C * 0.97
Case 61 To 90: MyResult = C * 0.94
Case Is > 90: MyResult = C * 0.91
    End Select
GetValue = MyResult + TAX

End Function

' بعد وضع مؤشر الفأرة في المكان المناسب ثم كتابة الدالة 
= GetValue(
' نضغط على العلامة fx
' من شريط الصيغة تم تحدد الخلية الاولى
و نحدد الخلية الثانية و التي هي ب10

 

تم تعديل أغسطس 5, 2016 بواسطه أبو حنــــين

[m3da]

متشكر جدا لحضرتك

 

[أبو حنــــين]

العفو اخي