كيف اتعامل فى المعادلات فى الاكسل بترتيب الورق

[lord]

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

هل ممكن اتعامل مع الاوراق فى الاكسل على ترتيبها فى الملف

وليس اسم الورقة

عندى ملف مكون من 10 ورقات كل ورقة لها اسم عند ربطها بأوراق اخرى

اريد ان اربطها بترتيبها فى الملف يعنى الورقة الاولى مثلا تعتبر رقم واحد دون النظر الى اسمها

هل ممكن

وشكرا

[محمد حجازي]

السلام عليكم ...

ليش العذاب يا أخي ؟!!!

بحثت لك في دوال الاكسل الجاهزة و لم أجد مبتغاك.

على أية حال فقد أنشئت لك الدالة SheetsCount :

أولاً قم بوضع الكود التالي في الموديل:

Function SheetsCount(Index As Integer) As String
  SheetsCount = Sheets(Index).Name
End Function

الدالة السابقة تقوم بإرجاع اسم الورقة بناءاً على ترتيبها. الآن اذهب إلى ورقة العمل واستخدم هذه الدالة مع الدالة INDIRECT في وضع هذه الصيغة:

=INDIRECT(SheetsCount(2)&"!"&"D4")

بالتوفيق

SheetsCount.zip

[ابو الهش]

شكر للاستاذ محمد حجازى

هل يمكن عن طريق هذا الكود مع الدالة INDIRECT ربط هذه الاوراق بملف اخر

ولسيادنكم جزي لالشكر

[محمد حجازي]

السلام عليكم ...

جرب الصيغة التالية:

=INDIRECT("[mah]"&SheetsCount(2)&"!"&"D4")

التي تقوم بإرجاع قيمة الخلية D4 الموجودة في الورقة الثانية من المصنف mah.

ملاحظة :

يجب أن يكون المصنف mah مفتوحاً وإلا فإن التعليمة INDIRECT ترجع الخطأ #REF!

تحياتي

[lord]

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

شكراً للاستاذ محمد حجازى جزيل الشكر لان الكود يعمل بكفائة عالية جدا وهو

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

هذه الورقة بأقوم ووضعها فى اى ملف اخر يقوم بربط جميع اوراق ملف فى الخلايا المحددة

سوف اضع مثال لهذه الفكرة حتى تكون واضحة اكثر لكن هى مهمة فى بعض الاحيان

واشكركم جميعا