هل يجوز مع شرط قاعدة if استخدام معيار Between

[Mohamed Abo Elala]

في الفيجوال 

هل يجوز استخدام Bettewen كشرط في if 

[Moosak]

جرب 🙂 

[Mohamed Abo Elala]

اجرب ايه 

الان, Mohamed Abo Elala said:

اجرب ايه 

مفيش مرفق

تم تعديل يونيو 19, 2023 بواسطه Mohamed Abo Elala

[محمد احمد لطفى]

ينفع ان شاء الله

 

if Age >=16 and Age <=32 Then

Do Something

Else

Don't

End If

بالتوفيق

[Mohamed Abo Elala]

شكرا جزيلا

[Moosak]

50 دقائق مضت, Mohamed Abo Elala said:

اجرب ايه 

مفيش مرفق

جرب بنفسك وأخبرنا عن تجربتك ..

هذا كان تكملة الجملة

وهي القاعدة التي ساعدتنا في التعلم .. 🙂 

[AbuuAhmed]

كلام الزميل موسى صحيح، لا بد من التجارب.
مع العلم أنه لا يوجد دالة between في الـ vba وعليه يمكن التعويض عنها كما مشاركة الزميل محمد لطفي.
ويمكن كذلك تصميم الدالة كما التالي:
 

Function Between(Value As Variant, MinVal As Variant, MaxVal As Variant) As Variant
    If VarType(Value) = VarType(MinVal) And _
       VarType(Value) = VarType(MaxVal) Then
        Between = CBool(Value >= MinVal And Value <= MaxVal)
    Else
        Between = "Var type error"
    End If
End Function

ومناداتها كالتالي:
 

If Between(4, 1, 10) then
    MsgBox "إجابة سليمة"
End if

 

[Mohamed Abo Elala]

تسلم استاذنا الغالي و هو المطلوب فعليا