الانتقال بين SHEETS من خلال IF

[العربي_الحر]

السلام عليكم

المثال

اذا كانت A1=1 و B1=1 و C1=1 انتقل الى SHEET1

اذا كانت A1=1 و B1=1 و C1=2 انتقل الى SHEET2

اذا كانت A1=2 و B1=1 و C1=1 انتقل الى SHEET3

هل من الممكن تنفيذ هذا الامر من خلال الاكسل

افيدوني جزاكم الله خيرا

[m.hindawi]

بسم الله الرحمن الرحيم

جرب الملف التالي

mh.zip

[العربي_الحر]

اخي هنداوي كيف اتعامل مع الملق المرفق

cut & paste فقط للاوامر في ملفي ال>ي اعمل عليه بعد الضغط على ALT+F11 ثم اغلق الصفحه ز

هل من طريقه اسهل بدون الفيجوال

بانتظار مساعدتكم

تم تعديل أبريل 19, 2005 بواسطه العربي_الحر

[m.hindawi]

 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

تظهر نافذة الفيجوال

اختر الصفحة المراد وضع الكود فيها من القائمة على يسارك ستجد اسماء الصفحات موجود على اليسار اضغط بالماوس مرتين فتفتح لك نافذة لوضع الكود فيها

انسخ الكود ثم الصقه

لا تنس ان تغير اسماء الاوراق حسب المسميات الموجودة في ملفك

[العربي_الحر]

جزاك الله خيرا سوف احاول اليوم ان شاء الله

[العربي_الحر]

لقد الصقتها كما اخبرتني واغلقت نافذة الفيجوال

ثم ادخلت البيانات 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مظلله بالاصفر

الرجاء المساعده جزاكم الله خيرا

[m.hindawi]

السلام عليكم

If test1 = 1 And test2 = 1 And test3 = 1 Then Sheets("1").Select

السبب على الاغلب انك لم تغير اسم الصفحة في الكود اسم الصفحة هو "1"

لاحظ العبارة

Sheets("1").SELECT

اسم الصفحة هنا هو 1 غير اسماء الصفحات بالكود لتطابق اسماء الصفحات في ملفك وسوف يعمل انشاء الله ولا تنسى ان تغير الاسماء في باقي الكود بالنسبة للصفحة الثانية والثالثة

[العربي_الحر]

احسنت اخي الكريم احسن الله اليك

لقد كنت اظن ان اسم الصفحه هو sheet

جزاك الله خير اخي هنداوي

تم تعديل أبريل 21, 2005 بواسطه العربي_الحر

[العربي_الحر]

الله يجزيك الخير

الكود نجح 99ز99%

المشكله انني لم اخبرك ان الخلايا a1 b1 c1 هي نتائج معادلات سابقه وغير مدخله يدويا

يعني على سبيل المثال a1=d2*f4

والكود المعطى لا يعمل الا اذا ادخلت احد الارقام يدويا وضغطت ENTER

تم تعديل أبريل 21, 2005 بواسطه العربي_الحر

[m.hindawi]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

غير اول سطر بالكود حسب الكود اعلاه

[العربي_الحر]

شكرا على متابعتك لي اخي هنداوي جزيل الشكر

وهذا هو الحل الصحيح

عاجز عن شكرك