كيف يتم مقارنة قيمة ما ضمن مجموعة قيم

[sandanet]

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

 

اخواني واساتذتي الكرام تحية طيبة وبعد ..

سؤالي هو لو كان لدي مجموعة قيم مثل 852 ,123, 456, 789, 741 = x مخزنة داخل الكود وليست في جدول واريد مقارنة القيمة 456 = a اذا كانت ضمن القيم يعطي msgbox "ok  والا msgbox "no  بعد اكتمال المقارنة مع جميع الارقام طبعاً

 

ارجو المساعدة

 

تحياتي

 

 

 

 

[jjafferr]

وعليكم السلام

 

Dim a() as string

x = "852 ,123, 456, 789, 741"
a=split(x,",")

for i=lbound(a) to ubound(a)
  if a(i)=789 then
   msgbox "found 789"
  end if

next i

 

جعفر

[sandanet]

شكراً استاذ @jjafferr على المساعدة لكن لو تكرمت ممكن تشرحلي سطر عبارة for لاني مافهمته

[jjafferr]

 

تفضل

Dim a() as string

x = "852 ,123, 456, 789, 741"

'بدل ان يكون عندنا سطر للمتغير
'x
'اعمله اعمدة للمتغير
'a
'Array
'بحيث يكون فصل كل كلمة بعد الفاصلة
a=split(x,",")

'خلينا نشوف قيم المتغير
'a
'من اول سطر فيه ، وهو صفر ، الى اخر سطر فيه
'Lower Bound(a) to Upper Bound(a)
for i=lbound(a) to ubound(a)

  if a(i)=789 then
   msgbox "found 789"
  end if

next i

 

جعفر

[sandanet]

بارك الله فيك استاذ جعفر .. ربي يوفقك دنيا وآخرة