nicola قام بنشر يناير 29, 2013 قام بنشر يناير 29, 2013 السلام عليكم اخوتي الاكارم ارجوا مساعدتكم في مشكلة الكود حيث ان الكود يعمل بشكل جيد ولكن اواجة مشكلة باستخدام جملة IF وخصوصا عند اضافة Else حيث يصبح الكود دائما ينفذ الامر Else ولا ينفذ الامر الاول في حال تحقق جملة IF ارجوا مساعدتكم في حل المشكلة Label3.Caption = Sheets("Temp").Range("B14").Value Dim LastRow As Long Dim i As Integer, T As Integer LastRow = Sheets("SetupM").Cells(Rows.Count, "Q").End(xlUp).Row + 1 For i = 1 To 10 For T = 1 To LastRow If Label3.Caption = Sheets("SetupM").Cells(T, 18).Value Then Sheets("SetupM").Range("A1") = Sheets("SetupM").Cells(T, 19) Else Sheets("SetupM").Range("A1") = "لاتوجد بيانات" End If Next Next
nicola قام بنشر يناير 30, 2013 الكاتب قام بنشر يناير 30, 2013 السلام عليكم في المرفق مثال يشرح المشكلة بشكل افضل ولكم جزيل الشكر مشكلة في جملة IF.rar
عبدالله المجرب قام بنشر يناير 30, 2013 قام بنشر يناير 30, 2013 السلام عليكم السبب في حلقة التكرار هل ممكن ان تبين لنا ما تريد عمله وستجد الحل ان شاء الله
nicola قام بنشر يناير 30, 2013 الكاتب قام بنشر يناير 30, 2013 اخي الكريم عبد الله بارك الله فيك الفكرة التي اريدها في نفس فكرة عمل المرفق اي بحث واستدعاء وشكرا على مساعدتك لي
احمد عبد الناصر قام بنشر يناير 30, 2013 قام بنشر يناير 30, 2013 السلام عليكم السؤال فعلا غير واضح For i = 1 To 10 هذه الجملة تكرر عمل الكود 10 مرات متلاحقة (بدون جدوى) انت تقارن هذه القيمة Label1.Caption =Sheets("1").Range("a1").Value a123 بخلايا العمود B واحدة تلو الاخري حتي اول خلية الفارغة و ثاني خلية التي تحتوي علي كلمة الرمز حتي B5 If Label1.Caption = Sheets("DB").Cells(T, 2).Value Then فإن تطابقت يضع في الخلية B1 في الصفحة الاولي كلمة تم من الصفحة الثانية و الا يضع لا توجد بيانات في نفس الخلية B1 (يعيد الكتابة فيها) Sheets("1").Range("B1") = Sheets("DB").Cells(T, 3) Else Sheets("1").Range("B1") = "لا توجد بيانات" كودك يضع كلمة تم فعلا و لكن بعدها يضع لا توجد بيانات . فالكود كله غير منطقي فارجو ان توضح ما تريد بالتفصيل كما تكرم الاستاذ عبدالله المجرب تحياتي
nicola قام بنشر يناير 30, 2013 الكاتب قام بنشر يناير 30, 2013 (معدل) اخي الكريم ان الكود ليس من تصميمي وهوي كود من اجل البحث والاستدعاء اخذتة من مشاركة من احدى مشاركات المنتدى وانا كل مافعلتة بالكود اضافة امر Else والفكرة التي اريدها في بحث واستدعاء فقط كودك يضع كلمة تم فعلا و لكن بعدها يضع لا توجد بيانات . فالكود كله غير منطقي اذا انتبهة اخي الكود يعمل بطريقة صحية عند عدم تواجد امر Else ويعمل بشكل خاطئ عند تواجد امر Else ارجوا ان تكون قد انتبهة لهذه الفكرة والمرفق فية الملف الذي اخذت منة الكود ادخال البيانات والبحث عنها عن طريق الفورم.rar تم تعديل يناير 30, 2013 بواسطه nicola
احمد عبد الناصر قام بنشر يناير 31, 2013 قام بنشر يناير 31, 2013 اخي الكريم هذا ما استطعت التوصل اليه كما فهمت . جرب المرفق تحياتي مشكلة في جملة IF+ .rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.