عملية ضرب لعدد من الاحتمالات

[صياد الجراح]

السلام عليكم ورحمته وبركاته..استاذتى الكرام تحية طيبة  من القلب..مشكورين على مجهودكم العظيم ف مساعدة الاعضاء

استأذنكم محتاج اعمل كود لعملية ضرب بناءا على قيم مختلف

بمعنى اذا كان الرقم المكتوب فى تكست بوكس الاول  يقع بين اى من القيم الموجودة فى الجدول يقوم بضربه بنسبة المقابلة لها فى الجدول

واظهار النتيجة فى التكست البوكس الاخر ..الشرح على المرفق اوضح باذن الله تعالى ..لكم ودى وتقديرى

تجريبى.xlsm

[ابراهيم الحداد]

السلام عليكم ورحمة الله ..استخدم الكود التالى

Private Sub CommandButton1_Click()
Dim x As Double, y As Double, p
x = Me.TextBox1.Value
Select Case x
Case 1000 To 4999
p = 0.3
Case 5000 To 6999
p = 0.2
Case 7000 To 9999
p = 0.1
Case Is >= 10000
p = 0.05
End Select
y = x * p
Me.TextBox2.Value = y
End Sub

 

[صياد الجراح]

وعليكم السلام ورحمته وبركاته..بارك الله فيك استاذ ابراهيم ..الف شكر لحضرتك على مجهودك ووقتك

الكود اشتغل تمام..بس الناتج  بيطلع اكتر رقم عشرى 3-4 ارقام عشرية مثلا (358.5832)

ممكن كود يخلي الناتج يظهر برقم عشرى واحد فقط ليكون( 358.6)  ..لك ودى وتقديرى  لشخصكم الكريم

 

[Ali Mohamed Ali]

بسيطة بعد اذن طبعاً الأستاذ ابراهيم ..عليك بإضافة هذا السطر بالكود قبل نهايته

TextBox2.Text = Format(Val(TextBox2.Text), "0.0")

تجريبى1.xlsm

[صياد الجراح]

بارك الله فيكم جميعا...الف شكر  لحضراتكم  على مجهودكم ووقتكم..لكم ودى وتقديرى