العربي_الحر قام بنشر أبريل 18, 2005 مشاركة قام بنشر أبريل 18, 2005 السلام عليكم المثال اذا كانت A1=1 و B1=1 و C1=1 انتقل الى SHEET1 اذا كانت A1=1 و B1=1 و C1=2 انتقل الى SHEET2 اذا كانت A1=2 و B1=1 و C1=1 انتقل الى SHEET3 هل من الممكن تنفيذ هذا الامر من خلال الاكسل افيدوني جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر أبريل 18, 2005 مشاركة قام بنشر أبريل 18, 2005 بسم الله الرحمن الرحيم جرب الملف التالي mh.zip رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر أبريل 19, 2005 الكاتب مشاركة قام بنشر أبريل 19, 2005 (معدل) اخي هنداوي كيف اتعامل مع الملق المرفق cut & paste فقط للاوامر في ملفي ال>ي اعمل عليه بعد الضغط على ALT+F11 ثم اغلق الصفحه ز هل من طريقه اسهل بدون الفيجوال بانتظار مساعدتكم تم تعديل أبريل 19, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر أبريل 19, 2005 مشاركة قام بنشر أبريل 19, 2005 Private Sub Worksheet_Change(ByVal Target As Range) test1 = Range("a1").Value test2 = Range("b1").Value test3 = Range("c1").Value If test1 = 1 And test2 = 1 And test3 = 1 Then Sheets("1").Select If test1 = 1 And test2 = 1 And test3 = 2 Then Sheets("2").Select If test1 = 2 And test2 = 1 And test3 = 1 Then Sheets("3").Select End Sub اضغط على زر alt+f11 تظهر نافذة الفيجوال اختر الصفحة المراد وضع الكود فيها من القائمة على يسارك ستجد اسماء الصفحات موجود على اليسار اضغط بالماوس مرتين فتفتح لك نافذة لوضع الكود فيها انسخ الكود ثم الصقه لا تنس ان تغير اسماء الاوراق حسب المسميات الموجودة في ملفك رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر أبريل 20, 2005 الكاتب مشاركة قام بنشر أبريل 20, 2005 جزاك الله خيرا سوف احاول اليوم ان شاء الله رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر أبريل 20, 2005 الكاتب مشاركة قام بنشر أبريل 20, 2005 لقد الصقتها كما اخبرتني واغلقت نافذة الفيجوال ثم ادخلت البيانات 1 1 1 ولكن ظهرت لي رساله تقول run tim error 9 subscript out of rang debug والاحظ انه في السط If test1 = 1 And test2 = 1 And test3 = 1 Then Sheets("1").Select Then Sheets("1").Selectمظلله بالاصفر الرجاء المساعده جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر أبريل 20, 2005 مشاركة قام بنشر أبريل 20, 2005 السلام عليكم If test1 = 1 And test2 = 1 And test3 = 1 Then Sheets("1").Select السبب على الاغلب انك لم تغير اسم الصفحة في الكود اسم الصفحة هو "1" لاحظ العبارة Sheets("1").SELECT اسم الصفحة هنا هو 1 غير اسماء الصفحات بالكود لتطابق اسماء الصفحات في ملفك وسوف يعمل انشاء الله ولا تنسى ان تغير الاسماء في باقي الكود بالنسبة للصفحة الثانية والثالثة رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر أبريل 21, 2005 الكاتب مشاركة قام بنشر أبريل 21, 2005 (معدل) احسنت اخي الكريم احسن الله اليك لقد كنت اظن ان اسم الصفحه هو sheet جزاك الله خير اخي هنداوي تم تعديل أبريل 21, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر أبريل 21, 2005 الكاتب مشاركة قام بنشر أبريل 21, 2005 (معدل) الله يجزيك الخير الكود نجح 99ز99% المشكله انني لم اخبرك ان الخلايا a1 b1 c1 هي نتائج معادلات سابقه وغير مدخله يدويا يعني على سبيل المثال a1=d2*f4 والكود المعطى لا يعمل الا اذا ادخلت احد الارقام يدويا وضغطت ENTER تم تعديل أبريل 21, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر أبريل 21, 2005 مشاركة قام بنشر أبريل 21, 2005 Private Sub Worksheet_SelectionChange(ByVal Target As Range) غير اول سطر بالكود حسب الكود اعلاه رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر أبريل 21, 2005 الكاتب مشاركة قام بنشر أبريل 21, 2005 شكرا على متابعتك لي اخي هنداوي جزيل الشكر وهذا هو الحل الصحيح عاجز عن شكرك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها