اختصار اسماء الورقة في البرمجة

[سراب الليل]

هل يمكن اختصار اسماء الورقة في البرمجة

بدل كتابة Sheets("اسم الورقة")

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

ويعطيكم الف عافية

[ابو اسامة العينبوسي]

السلام عليكم

ممكن ان تشير الى رقم الورقه دون اسمها

Worksheets(1).Select

حيث تلاحظ انه بجانب اسم الورقه يكون ايضا رقم للدلاله على الورقه

تم تعديل يونيو 16, 2007 بواسطه ابو اسامة العينبوسي

[أبوعبد الله]

أخي الحبيب أبو أسامة

في نفس الإطار عندي سؤال لو تكرمت

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

أرجو أن أكون قد نجحت في توصيل الفكرة ولتوضيحها أكثر إليك ما قمت به :

قمت بعمل ماكرو لنسخ الورقة التي أقف عليها ووضع النسخة الجديدة منها قبل الورقة المسماة SHEET2 فنتج عن هذا الماكرو الكود التالي

Sub NEWVOUCHER()

'

' NEWVOUCHER Macro

'

'

Sheets("شيك الأهلي (4410)").Select

Sheets("شيك الأهلي (4410)").Copy Before:=Sheets(43)

End Sub

والمطلوب أن يتغير إسم الورقة حسب إسم الورقة التي أقوم فيها بتنفيذ الماكرو مثلاً أن أعمل بورقة إسمها شيك الأهلي (4455) فالمطلوب أن يقوم بنسخ هذه الورقة وليس الورقة شيك الأهلي (4410) .

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

أشكركم وتقبلوا تحياتي .

ابو عبدالله

[عبدالله باقشير]

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

اخي العزيز / ابوعبدالله :

كيف الحال

ان شاء الله يكون طلبك

انظر الى المرفق

اخوك خبور

________.rar

[أبوعبد الله]

أخي الحبيب خبور

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

أخي الحبيب

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

أخوك ومحبك في الله

أبو عبدالله

[الجزيرة]

والله مبدع يا خبور باشا

تسلم إيدك

[أبوعبد الله]

أخي الحبيب / خبور

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

أخي الحبيب أكرر جزيل شكري وامتناني لك على العمل الرائع الذي قمت به حسب احتياجي ، وسامحني فكرمك المعهدود يشجعني أن أطلب منك تعديل بسيط إن شاء الله في حدود علمك الذي أسأل الله أن يبارك لك فيه ‘ وقد قمت بعدة محاولات لعمل هذا التعديل ولم أنجح مع الأسف .

أخي الحبيب في حدود معلوماتي الأكثر من ضعيفة قمت بتعدل بسيط على الكود الذي تفضلت بعمله مثل تعدي في عنواين ما يظهر بالرسائل MSG_BOX وفي مكان وضع النسخة الجديدة من الورقة وكذلك إضافة أن ينتقل إلى النسخة الجديدة مباشرة فتكون هي الورقة الفعالة بعد إتمام العملية وستلاحظ كل ذلك بالملف المرفق بالتعديلات ، وما ينقصني حتى لا أطيل عليك هو أن يظهر بالرسالة الأولي الخاصة بإدخال عنوان الورقة الجديدة وبنفس الحقل الذي من المفروض وضع الإسم فيه أتمنى أن يتم وضع إسم نفس الورقة المراد نسخها على أن يكون قابل للتعديل ، هذه واحدة أما الثانية والأخيرة إن شاء الله أتمنى أن يتم وضع النسخة الجديدة من الورقة المراد نسخها كآخر ورقة ضمن أوراق الملف بغض النظر عن موقع الورقة الأصلية وأن تكون هي الورقة الفعالة بعد إنهاء العملية .

هذا وأكرر أسفي على كثرة طلباتي وأسأل الله أن يجزيك عني وعن جميع من يستفيدون من علمك وعملك المتميز دائماً كل الخير .

تقبل تحياتي وشكري وامتناني .

أخوكم

أبو عبدالله

ADD_SHEET.rar

[الجزيرة]

أخي أبو عبد الله

سؤالك رائع ومفيد للجميع

وأضم صوتي لصوتك :)

بإنتظار الباشا خبور

[أبوعبد الله]

للرفع .

اللهم ارفعنا إلى منزلة تحبها وترضاها لنا وترضى بها عنا ..... آمين

[عبدالله باقشير]

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

الاخ ابو عبدالله (اكسيلجي) حفظه الله

الاخ ابو عبدالله (الجزيرة) حفظه الله

هل هذا ما تريدا قولا ان شاء الله

اخوكم خبور

________1.rar

تم تعديل يونيو 20, 2007 بواسطه خبور

[أبوعبد الله]

أخي الحبيب / خبور

لا أجد من الكلمات ما يوفيك حقك من الشكر والامتنان على تلبية احتياجات إخوانك وأنا واحد منهم وبأعلى مستوى من الكفاءة والفاعلية ، الملف رائع إلى أبعد الحدود وقد وفيت وكفيت ، أسعدك الله في الدنيا والآخرة كما أسعدتني ، ومما تعلمنا منك قمت فقط بتعديلة صغيرة وطبعاً بعد إذنك وهي أن تكون الورقة النشطة بعد إنهاء العملية هي الورقة الجديدة ( المضافة ) وذلك فقط لاحتياجي لهذا الأمر ، وقد أرسلت الملف المرفق وبه هذا التعديل الصغير لعل أحد الأخوة يحتاجه بهذه الكيفية كذلك .

أكرر لك كل الشكر والامتنان .

أخي الحبيب أرسلت لك رسالة علي بريدك بال gmail حيث أنني أيضاً عندي عنوان بريدي عليه ، أتمنى أن تكون وصلتك وقرأتها ، وأتمنى أن تتاح لك الفرصة للرد علي وأشكرك مقدماً .

تقبل تحياتي ودمت بخير وسعادة وعافية .

أخوك أبو عبدالله

copy_add_sheet.rar

تم تعديل يونيو 20, 2007 بواسطه إكسيلجي

[عبدالله باقشير]

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

الاخ / ابو عبدالله المحترم

لم استلم الرسالة التي ارسلتها بالبريد

شف فين رسلتها

اخوك خبور

[أبوعبد الله]

أخي الحبيب / خبور

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

أشكرك جزيل الشكر .

أخوك أبو عبدالله

[عبدالله باقشير]

استلم يا صديقي

________2.rar