صياد الجراح قام بنشر أكتوبر 1, 2022 مشاركة قام بنشر أكتوبر 1, 2022 السلام عليكم ورحمته وبركاته..استاذتى الكرام تحية طيبة من القلب..مشكورين على مجهودكم العظيم ف مساعدة الاعضاء استأذنكم محتاج اعمل كود لعملية ضرب بناءا على قيم مختلف بمعنى اذا كان الرقم المكتوب فى تكست بوكس الاول يقع بين اى من القيم الموجودة فى الجدول يقوم بضربه بنسبة المقابلة لها فى الجدول واظهار النتيجة فى التكست البوكس الاخر ..الشرح على المرفق اوضح باذن الله تعالى ..لكم ودى وتقديرى تجريبى.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر أكتوبر 1, 2022 أفضل إجابة مشاركة قام بنشر أكتوبر 1, 2022 السلام عليكم ورحمة الله ..استخدم الكود التالى 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 2 رابط هذا التعليق شارك More sharing options...
صياد الجراح قام بنشر أكتوبر 2, 2022 الكاتب مشاركة قام بنشر أكتوبر 2, 2022 وعليكم السلام ورحمته وبركاته..بارك الله فيك استاذ ابراهيم ..الف شكر لحضرتك على مجهودك ووقتك الكود اشتغل تمام..بس الناتج بيطلع اكتر رقم عشرى 3-4 ارقام عشرية مثلا (358.5832) ممكن كود يخلي الناتج يظهر برقم عشرى واحد فقط ليكون( 358.6) ..لك ودى وتقديرى لشخصكم الكريم رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أكتوبر 2, 2022 مشاركة قام بنشر أكتوبر 2, 2022 بسيطة بعد اذن طبعاً الأستاذ ابراهيم ..عليك بإضافة هذا السطر بالكود قبل نهايته TextBox2.Text = Format(Val(TextBox2.Text), "0.0") تجريبى1.xlsm 4 رابط هذا التعليق شارك More sharing options...
صياد الجراح قام بنشر أكتوبر 2, 2022 الكاتب مشاركة قام بنشر أكتوبر 2, 2022 بارك الله فيكم جميعا...الف شكر لحضراتكم على مجهودكم ووقتكم..لكم ودى وتقديرى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها