sandanet قام بنشر يوليو 25, 2017 مشاركة قام بنشر يوليو 25, 2017 السلام عليكم ورحمة الله وبركاته اخواني واساتذتي الكرام تحية طيبة وبعد .. سؤالي هو لو كان لدي مجموعة قيم مثل 852 ,123, 456, 789, 741 = x مخزنة داخل الكود وليست في جدول واريد مقارنة القيمة 456 = a اذا كانت ضمن القيم يعطي msgbox "ok والا msgbox "no بعد اكتمال المقارنة مع جميع الارقام طبعاً ارجو المساعدة تحياتي رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 25, 2017 مشاركة قام بنشر يوليو 25, 2017 وعليكم السلام 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 جعفر 1 رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر يوليو 25, 2017 الكاتب مشاركة قام بنشر يوليو 25, 2017 شكراً استاذ @jjafferr على المساعدة لكن لو تكرمت ممكن تشرحلي سطر عبارة for لاني مافهمته رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 25, 2017 مشاركة قام بنشر يوليو 25, 2017 تفضل 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 جعفر 2 رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر يوليو 25, 2017 الكاتب مشاركة قام بنشر يوليو 25, 2017 بارك الله فيك استاذ جعفر .. ربي يوفقك دنيا وآخرة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.