تحويل دالة شرطية إلى كود VB

[لزهر مدلل]

إخواني السلام عليكم

المطلوب في المرفقات

Book2.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

استخدم الكود التالى

Public Function My_Function(x1, x2, x3)
    If x1 = 30104 And x2 = 310 Then
        My_Function = x3 * 180 / 1000
    ElseIf x1 = 30004 And x2 = 342 Then
        My_Function = x3 * 1.782 / 1000
    ElseIf x1 = 30011 And x2 = 347 Then
        My_Function = x3 * 1.8 / 1000
    End If
End Function

مرفق ملف

السلام عليكم

If.rar

[لزهر مدلل]

مشكور أخي هادي سالم و بارك الله فيك