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

[Mohamed Abo Elala]

في الفيجوال 

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

[Moosak]

جرب 🙂 

[Mohamed Abo Elala]

اجرب ايه 

  في 19‏/6‏/2023 at 13:50, Mohamed Abo Elala said:

اجرب ايه 

Expand  

مفيش مرفق

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

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

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

 

if Age >=16 and Age <=32 Then

Do Something

Else

Don't

End If

بالتوفيق

[Mohamed Abo Elala]

شكرا جزيلا

[Moosak]

  في 19‏/6‏/2023 at 13:50, Mohamed Abo Elala said:

اجرب ايه 

مفيش مرفق

Expand  

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

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

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

[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]

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