العمليات الحسابية بين التكست بوكسس فى اليوزر فورم

[zaatout]

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

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

أريد أن أقوم بعملية حسابية تعتمد على النسبة المئوية وتظهر النتيجة في التكست بوكس 

مثال :

 تكست بوكس 1 -1090 *80 / 100 = 872

 تكست بوكس 2 - 1090 * 95 /100 =1035,5

 تكست بوكس 3 - 1090 * 114 / 100=1242,6

حساب النسبة المئوية.xlsm

[Ali Mohamed Ali]

وعليكم السلام-اهلا بك فى المنتدى - سيتم ما تطلب بهذا الكود 

Private Sub CommandButton1_Click()
TextBox2.Value = (TextBox1.Value) * 0.8
TextBox3.Value = (TextBox1.Value) * 0.95
TextBox4.Value = (TextBox1.Value) * 1.14
End Sub

1حساب النسبة المئوية.xlsm

[zaatout]

بارك الله فيك أخي الغالي Ali Mohamed Ali وشكرا على الرد السريع.

لو سمحت وفي صورة توفر شرطين في العملية 

الوزن والصنف كما هو موضح في المرفق .

1حساب النسبة المئوية.xlsm

[Ali Mohamed Ali]

كان عليك توضيح هذا الطلب من البداية تجنباً لعدم اهدار الوقت -تفضل يمكنك هذا بذلك الكود

Private Sub CommandButton1_Click()
On Error Resume Next
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
Me.TextBox2.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 2, 0)
Me.TextBox3.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 3, 0)
Me.TextBox4.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 4, 0)
End Sub

2حساب النسبة المئوية.xlsm

[zaatout]

السلام عليكم 

شكر خاص للأستاذ Ali Mohamed Ali على رحابة الصدر والرد السريع جزاك الله كل خير ودمتم في حفظ الله.