كيفية إستعراض محتويات أوراق عمل مضبوطة بنفس الشكل من خلال ورقة عمل واحدة

[الحامد الشاكر]

الأخوة الكرام

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

يرجى الإطلاع على الملف االمرفق والمساعدة في إيجاد الحل الموضح داخل الملف.

ولكم جزيل الشكر

Project.zip

[طارق محمود]

السلام عليكم

أخي الكريم

تفضل المرفق

Project_TAREQ.rar

[الحامد الشاكر]

الأخ طارق المحترم

ما شاء الله

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

هل يمكن لك بمعروف آخر وهو شرح كيفية عمل هذا الزر وكيفية تطبيقه على المجال الذي أريده

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

[طارق محمود]

السلام عليكم

اخي الكريم

أنظر الفيديو المرفق

ستجد الموضوع سهل جدا

تفضل

FORM_CONTROL.rar

[الحامد الشاكر]

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

سلمت يداك

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل أعزك الله وحفظك ورفع قدرك

هل هنالك طريقة اسرع لنسخ المعادلات إلى أسفل لأني جربت السحب ولم يفلح مما يضطر إلى معالجة المعادلات واحدة بواحدة.

أبو أنس

[أبو محمد عباس]

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

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

ودمتم برعاية الله وحفظه

[طارق محمود]

السلام عليكم

أخي الحبيب / أبوأنس ، حفظك الله

هل هنالك طريقة اسرع لنسخ المعادلات إلى أسفل لأني جربت السحب ولم يفلح مما يضطر إلى معالجة المعادلات واحدة بواحدة

نعم أخي الكريم

أنا إعتمدت في المعادلة

INDIRECT("Sheet"&K2&"!B5")

علي أن إسم الورقة Sheet وبعدها رقم بمعني Sheet1 و Sheet2 وهكذا كما كان بمثال أخونا السائل ولكن ان كانت الشيتات ذات أسماء وليست Sheet1 و Sheet2 فلن ينفع هذا وليكون الموضوع عام اتبع الخطوات الخمسة التالية (1) اكتب الكود التالي في الملف لإيجاد كافة أسماء الشيتات

Sub x()

For i = 1 To Sheets.Count

ActiveCell.Offset(i, 0) = i

	ActiveCell.Offset(i, 0) = Sheets(i).Name

Next i

End Sub

(2) قف علي أي خلية في منطقة فارغة من الشييت

ولتكن الخلية الصفراء في الملف المرفق ثم شغل الكود سينتج أسفلها أرقام وأسماء جميع شيتات الملف بالترتيب

ممكن تعمل الخطوتين السابقتين يدوي لو لاتحب الأكواد

(3) أضف معادلة Vlookup أعلي الجدول (الخلية الخضراء مثلا) لتجلب لنا أسماء الورقات

(4) غير في المعادلة لتناسب تلك الإضافة

(5) غير في مواصفات الزر ليناسب ذلك أيضا

في المثال المرفق ، مثلا سأغير فقط الحد الأقصي للزر ليكون 6 بدلا من 3 سابقا

لتغيير الحد الأقصي للزر : كليك بيمين الماوس عليه ، ثم Format Control ثم Control ثم Maximum Value

تفضل المرفق وبه التعديلات وبه الكود الصغير أيضا

Project_TAREQ.rar

[أبو أنس حاجب]

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

ما قصدته أستاذي وسيدي الفاضل هو عند سحب المعادلات للاسفل يظهر الاتي هل ممكن حل هذه المشكلة مما يضطر إلى معالجة المعادلات واحدة بواحدة

المرفق أسفل

أبو أنس

project Tarq.rar

[طارق محمود]

السلام عليكم

أخي الحبيب / أبوأنس ، حفظك الله

تفضل المرفق به المعادلات مُعدّلة

project Tarq2.rar

[أبو أنس حاجب]

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

أستاذي وسيدي وحبيبي في الله الفاضل نبيل وكريم الخلق والخلق طارق محمود حفظك الله .

يوماً عن يوم أزداد تعلقاً بك وأندهاشاً بنبل أخلاقك وحمداً وثناءاً لله بوجود أمثالك على سطح البسيطة كي نقوي أيماننا بالله وحتى لايتسرب اليأس الينا بأن أهل الخير والفضل قد اندثروا من بيننا.

كل ما أرجوه من الله أن تكون مستجاب الدعوة وأدعو بما شئت لك وللمسلمين عامة حيث أنني عاجز عن التعبير.

أبو أنس

[طارق محمود]

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

ورزقك مثل مادعوت وأكثر

وجعلني عند حسن ظنكم