تصحيح الكود

[إلين]

السلام عليكم

سويت ملف بس الكود ما يشتغل مو عارفه ايش الخطاء الله يعافيكم وضحوا لي وين الخطاء بالكود

الفكره عشان تكون واضحه لكم 

في الفورم 1 لما ادخل رقم حجم المبيعات يحسب لي النسبة ع حسب الحجم 

(اذا رقم حجم المبيعات بين 0 و 100 يقسم حجم المبيعات ع 100 و يضرب ب 100 ) او (اذا رقم حجم المبيعات بين 500 و 1000 يقسم حجم المبيعات ع 1000 و يضرب ب 100 ) او( اذا حجم المبيعات اكبر من ١٥٠٠ يقسم ع ١٥٠٠ و يضرب ب ١٠٠)

ويطلع لي نسبة البيع 

ولما اضغط ارسال المفترض البيانات ترسل لفورم 2 

بس لان الكود مايظهر ناتج فالايوجد بيانات ترسل

المفترض في احال ارسال البيانات لفورم2 يقسم البيانات

في خانة النسبة من 100% (يظهر فقط المعدل من 100  ) ولو في زياده تظهر في معدل الزيادة

مثلا ظهر لنا في فورم1 نسبة البيع 150%

لما اضغط ارسال في خانة النسبة من 100% يظهر 100

وفي خانة  معدل الزيادة يظهر 50%

الملف بالمرفقات

المبيعات.xlsm

تم تعديل يناير 24, 2020 بواسطه إلين

[احمد بدره]

تم تصحيح المعادلة الموجودة بـ CommandButton1_Click

المبيعات.xlsm

[إلين]

شكرا لك

استاذي الفاضل 

عند اضافة كود عملية ثالث لايقبل 

If TextBox1.Value <= 100 Then
Label5 = TextBox1.Value / 100 * 100
If TextBox1.Value >= 500 Then
Label5 = TextBox1.Value / (1000) * 100
Else
If TextBox1.Value >= 1500 Then
Label5 = TextBox1.Value / (1500) * 100
 End If
'Next
End If
End Sub

يظهر لي خطاء
-------------------------------------------------

و تظهر لي المشكلة التالي عند الضغط ع ارسال لا تظهر البيانات في الفورم2

اساتذتنا 

ماضبط معي اضافة معادله ثالثه للكود🥺

والبيانات لا تقبل التقسيم ونقلها للفورم ٢

تم حل مشكلة ارسال البيانات

بقى فقط عتد اضافة كود عملية ثالث لايقبل 

كيف اكتب كود بين عددين مثلا اذا رقم حجم المبيعات بين 500 و 1000 يقسم حجم المبيعات ع 1000

الملف بالمرفقات

المبيعات-1.xlsm

[احمد بدره]

يكتب هكذا

If TextBox1.Value > 100 And TextBox1.Value <= 500 Then
Label5 = TextBox1.Value / (100) * 100

End If

المبيعات-1.xlsm

تم تعديل يناير 29, 2020 بواسطه احمد بدره

[Ali Mohamed Ali]

الأمر بسيط جدا فقط عليك اضافة أخرى

End If

 

[احمد بدره]

بعد إذن أستاذ / علي

يتم وضع

End If

قبل

end sub

[إلين]

كل الشكر لكم