حساب اجمال السعر اعتمادا على عناصر قائمة منسدلة

[waffaa_qm]

لو سمحتم محتاجه اعرف كود ينفذ الاتى
عندى قائمة منسندلة باسماء التحصينات 
وعندى تيكست بوكسس بنوع الحيوانات يتم ادخال العدد بها

اريد حساب اجمالى يظهر فى تيكست بوكس ثابت 
بحيث لو اخترت تحصين 1 من الكومبوبوكس يكون القيمة فى التيكست بوكس عبارة عن (التكست بوكس الاول مضروب فى رقم ثابت + التكست بوكس الثانى مضروب فى رقم ثابت + التكست بوكس الثالث مضروب فى رقم ثابت)

وشكرا

 

حساب السعر استنادا الى المنسدله.xlsm

[lionheart]

Worksheet module

Private Sub TextBox1_Change()
    SumInTextBox
End Sub

Private Sub TextBox2_Change()
    SumInTextBox
End Sub

Private Sub TextBox3_Change()
    SumInTextBox
End Sub

Sub SumInTextBox()
    Dim m1 As Double, m2 As Double, m3 As Double
    m1 = Val(TextBox1.Value) * Range("G4").Value
    m2 = Val(TextBox2.Value) * Range("G6").Value
    m3 = Val(TextBox3.Value) * Range("G9").Value
    TextBox4.Value = m1 + m2 + m3
End Sub

 

[waffaa_qm]

@lionheart

ان شاء الله اجرب الكود واشوف النتيجة

جزاك الله خيرا على مجهودك

[waffaa_qm]

@lionheartانا جربت الكود تمام بس انا عايزة انى كل الكود ده يتنفذ لما اختار من القائمة المنسدلة اللى جنبه

بمعنى انى لو اخترت اول عنصر فى القائمة المنسدلة يضرب فى الاسعار اللى اللى فى g ولو اخترت العنصر التانى يضرب فى اسعار تانيه 

يعنى كل الكود الحسابي ده مشروط بعناصر الثائمة المنسدلة

وشكرا