تحويل هذه الدالة الى فيجوال بيزيك

[emaddamin]

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

اعزائى اعضاء المنتدى الكرام لقد حاولت تحويل الدالة الاتية الى فيجوال بيزيك ولكنى فشلت ولا اعرف السبب فهل لكم ان تدرشدونى كيفية تحويلها

وجزاكم الله خيراً

((IF(AND(E8<=$G$12),$E$8,IF(E8>$G$12,$G$12=

وهى بغرض جعل الخلية مثلاً D12 مرتبطة بالخليتين E9 &G12 بحيث لو ان E8 اقل من او تساوى G12 تكون قيمة الخلية D12 نفس قيمة الخلية E8 أما إذا كانت الخلية E8 أكبر من قيمة الخلية G12 تكون قيمة الخلية D12 نفس قيمة الخلية G12 ارجوا أن أكون قد وضحت الدالة

منتظر ردكم وجزاكم الله خيراً

[علي السحيب]

الصيغة التالية:

=IF(E8<=$G$12,$E$8,IF(E8>$G$12,$G$12,""))

يعادلها الكود التالي:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [E8] <= [G12] Then
[D12].Value = [E8]
ElseIf [E8] > [G12] Then
[D12].Value = [G12]
Else: [D12].Value = ""
End If
End Sub

___________IF________.rar

تم تعديل نوفمبر 23, 2005 بواسطه علي السحيب

[emaddamin]

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

جزاك الله خيراً اخى الكريم

جعلها الله فى ميزان حسناتك

أنت (y) (y) (y) (y) (y)

ولك منى الف الف