checles قام بنشر مارس 4, 2023 مشاركة قام بنشر مارس 4, 2023 السلام عليكم برجاء المساعده في ضرب textbox1 * textbox2* textbox3 اظهار النتيجه في texbox 4 رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر مارس 4, 2023 مشاركة قام بنشر مارس 4, 2023 وعليكم السلام ورحمه الله وبركاته يمكنك ذلك بوضع زر امر علي اليوزرفورم ووضع هذا الكود به Private Sub CommandButton1_Click() If (TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "") Then TextBox4 = TextBox1 * TextBox2 * TextBox3 Else TextBox4 = "" End If End Sub 1 رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مارس 5, 2023 مشاركة قام بنشر مارس 5, 2023 وممكن أيضاً هكذا ضرب.xlsm 2 رابط هذا التعليق شارك More sharing options...
checles قام بنشر مارس 5, 2023 الكاتب مشاركة قام بنشر مارس 5, 2023 شكرا لحضرتك بس انا كنت عايزة من غير زر butten عايزة اتوماتيك اول ما اكتب الرقم يظهر النتيجه علي طول وشكرا رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مارس 5, 2023 مشاركة قام بنشر مارس 5, 2023 Private Sub TextBox3_Change() If (TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "") Then TextBox4 = TextBox1 * TextBox2 * TextBox3 Else TextBox4 = "" End If End Sub Private Sub TextBox2_Change() If (TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "") Then TextBox4 = TextBox1 * TextBox2 * TextBox3 Else TextBox4 = "" End If End Sub Private Sub TextBox1_Change() If (TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "") Then TextBox4 = TextBox1 * TextBox2 * TextBox3 Else TextBox4 = "" End If End Sub هكذا؟! 2 رابط هذا التعليق شارك More sharing options...
alyaldeen قام بنشر مارس 5, 2023 مشاركة قام بنشر مارس 5, 2023 السلام عليكم Private Sub TextBox3_Change() Me.TextBox4.Value = Me.TextBox1.Value * Me.TextBox2.Value * Me.TextBox3.Value End Sub رابط هذا التعليق شارك More sharing options...
checles قام بنشر مارس 6, 2023 الكاتب مشاركة قام بنشر مارس 6, 2023 (معدل) شكرا استاذ محي و استاذ علي الدين بس عندي مشكله لو في صفر text او text فاضي بيكون الناتج صفر او عدد عشري قل من الواحد ممكن تساعدني في حلها وشكرا تم تعديل مارس 6, 2023 بواسطه checles رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مارس 6, 2023 مشاركة قام بنشر مارس 6, 2023 طالما عملية ضرب فالنتيجة ستكون صفر ÷كذا في الرياضيات أو الحساب إلا إذا تريد شيئ آخر يرجى الإيضاح أكثر رابط هذا التعليق شارك More sharing options...
checles قام بنشر مارس 6, 2023 الكاتب مشاركة قام بنشر مارس 6, 2023 ممكن يكون TEXT فارغ لا يوجد بيه ارقام عايز لم يكون TEXT فاضي ما يضربش TEXT الفارغ وايضا لما اضر مثلا 0.25*0.23*0.26 يضرب وشكرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة محي الدين ابو البشر قام بنشر مارس 7, 2023 أفضل إجابة مشاركة قام بنشر مارس 7, 2023 تفضل أخي الكريم Private Sub TextBox3_Change() TextBox4 = IIf(TextBox1 = "", 1, TextBox1) * IIf(TextBox2 = "", 1, TextBox2) * IIf(TextBox3 = "", 1, TextBox3) End Sub Private Sub TextBox2_Change() TextBox4 = IIf(TextBox1 = "", 1, TextBox1) * IIf(TextBox2 = "", 1, TextBox2) * IIf(TextBox3 = "", 1, TextBox3) End Sub Private Sub TextBox1_Change() TextBox4 = IIf(TextBox1 = "", 1, TextBox1) * IIf(TextBox2 = "", 1, TextBox2) * IIf(TextBox3 = "", 1, TextBox3) End Sub بالنسبة لـ 0.25*0.23*0.26 يضرب تماما ولكن اعتقد انه يجب عند كتابة الرقم تبدأ بـ 0 تم . ثم بقية الرقم 3 رابط هذا التعليق شارك More sharing options...
checles قام بنشر مارس 8, 2023 الكاتب مشاركة قام بنشر مارس 8, 2023 شكرا جزيلا وجزاك الله خير الكود يعم بشكل ممتاز شكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها