ضرب textbox * textbox

[checles]

السلام عليكم 

برجاء المساعده في 

ضرب textbox1 * textbox2* textbox3 

اظهار النتيجه في texbox 4

 

[حسونة حسين]

وعليكم السلام ورحمه الله وبركاته

يمكنك ذلك بوضع زر امر علي اليوزرفورم ووضع هذا الكود به

Private Sub CommandButton1_Click()
    If (TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "") Then
        TextBox4 = TextBox1 * TextBox2 * TextBox3
    Else
        TextBox4 = ""
    End If
End Sub

 

[محي الدين ابو البشر]

وممكن أيضاً هكذا

 

ضرب.xlsm

[checles]

شكرا لحضرتك بس انا كنت عايزة من غير زر butten عايزة اتوماتيك اول ما اكتب الرقم يظهر النتيجه علي طول 

وشكرا 

[محي الدين ابو البشر]

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

هكذا؟!

[alyaldeen]

السلام عليكم

Private Sub TextBox3_Change()
Me.TextBox4.Value = Me.TextBox1.Value * Me.TextBox2.Value * Me.TextBox3.Value
End Sub

[checles]

شكرا استاذ محي و استاذ علي الدين 

بس عندي مشكله لو في صفر text او text فاضي بيكون الناتج صفر 

او عدد عشري قل من الواحد 

ممكن تساعدني في حلها 

وشكرا 

تم تعديل مارس 6, 2023 بواسطه checles

[محي الدين ابو البشر]

طالما عملية ضرب فالنتيجة ستكون صفر ÷كذا في الرياضيات أو الحساب

إلا إذا تريد شيئ آخر

يرجى الإيضاح أكثر

[checles]

ممكن يكون TEXT فارغ لا يوجد بيه ارقام 

عايز لم يكون TEXT فاضي ما يضربش TEXT الفارغ 

وايضا 

لما اضر مثلا 0.25*0.23*0.26

يضرب 

وشكرا 

[محي الدين ابو البشر]

تفضل أخي الكريم

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 تم . ثم بقية الرقم

[checles]

شكرا جزيلا وجزاك الله خير 

الكود يعم بشكل ممتاز 

شكرا