سراب الليل قام بنشر يونيو 16, 2007 مشاركة قام بنشر يونيو 16, 2007 هل يمكن اختصار اسماء الورقة في البرمجةبدل كتابة Sheets("اسم الورقة")عند تغير اسم الورقة تسبب مشكلة في البرمجةويعطيكم الف عافية رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يونيو 16, 2007 مشاركة قام بنشر يونيو 16, 2007 (معدل) السلام عليكم ممكن ان تشير الى رقم الورقه دون اسمها Worksheets(1).Select حيث تلاحظ انه بجانب اسم الورقه يكون ايضا رقم للدلاله على الورقه تم تعديل يونيو 16, 2007 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يونيو 17, 2007 مشاركة قام بنشر يونيو 17, 2007 أخي الحبيب أبو أسامة في نفس الإطار عندي سؤال لو تكرمت إذا أردت الإشارة إلى الورقة التي أعمل بها بالكود لعمل نسخة من نفس الورقة بالملف وطبعاً كل مرة سيختلف إسم الورقة عند تنفيذ الكود فما هو الحل للإشارة إلى الورقة بشكل مطلق بغض النظر عن إسمها عند كتابة الكود . أرجو أن أكون قد نجحت في توصيل الفكرة ولتوضيحها أكثر إليك ما قمت به : قمت بعمل ماكرو لنسخ الورقة التي أقف عليها ووضع النسخة الجديدة منها قبل الورقة المسماة SHEET2 فنتج عن هذا الماكرو الكود التالي Sub NEWVOUCHER() ' ' NEWVOUCHER Macro ' ' Sheets("شيك الأهلي (4410)").Select Sheets("شيك الأهلي (4410)").Copy Before:=Sheets(43) End Sub والمطلوب أن يتغير إسم الورقة حسب إسم الورقة التي أقوم فيها بتنفيذ الماكرو مثلاً أن أعمل بورقة إسمها شيك الأهلي (4455) فالمطلوب أن يقوم بنسخ هذه الورقة وليس الورقة شيك الأهلي (4410) . سامحني على الإطالة وأتمنى أن أجد لديك الحل والسؤال طبعاً مطروح على الجميع ممن لديهم الخبرة في الأكواد . أشكركم وتقبلوا تحياتي . ابو عبدالله رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 17, 2007 مشاركة قام بنشر يونيو 17, 2007 السلام عليكم ورحمة اله وبركاته اخي العزيز / ابوعبدالله : كيف الحال ان شاء الله يكون طلبك انظر الى المرفق اخوك خبور ________.rar رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يونيو 17, 2007 مشاركة قام بنشر يونيو 17, 2007 أخي الحبيب خبور جزاكم الله كل الخير وثقل موازينك ورفع قدرك وزادك علماً وفهماً وختم لك بخاتمة السعادة في الدارين ووالديك ومن تحب . أخي الحبيب الملف رائع وحقيقة أروع مما كنت أطلب ولا يسعني إلا أن أدعو لك بكل خير فأنت أهل لكل خير ، بارك الله فيك وفي عملك وعلمك وجعلك دائماً منه أقرب وأحب ولعباده أنفع . اللهم آمين . أخوك ومحبك في الله أبو عبدالله رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر يونيو 17, 2007 مشاركة قام بنشر يونيو 17, 2007 والله مبدع يا خبور باشا تسلم إيدك رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يونيو 19, 2007 مشاركة قام بنشر يونيو 19, 2007 أخي الحبيب / خبور السلام عليكم ورحمة الله وبركاته . أخي الحبيب أكرر جزيل شكري وامتناني لك على العمل الرائع الذي قمت به حسب احتياجي ، وسامحني فكرمك المعهدود يشجعني أن أطلب منك تعديل بسيط إن شاء الله في حدود علمك الذي أسأل الله أن يبارك لك فيه ‘ وقد قمت بعدة محاولات لعمل هذا التعديل ولم أنجح مع الأسف . أخي الحبيب في حدود معلوماتي الأكثر من ضعيفة قمت بتعدل بسيط على الكود الذي تفضلت بعمله مثل تعدي في عنواين ما يظهر بالرسائل MSG_BOX وفي مكان وضع النسخة الجديدة من الورقة وكذلك إضافة أن ينتقل إلى النسخة الجديدة مباشرة فتكون هي الورقة الفعالة بعد إتمام العملية وستلاحظ كل ذلك بالملف المرفق بالتعديلات ، وما ينقصني حتى لا أطيل عليك هو أن يظهر بالرسالة الأولي الخاصة بإدخال عنوان الورقة الجديدة وبنفس الحقل الذي من المفروض وضع الإسم فيه أتمنى أن يتم وضع إسم نفس الورقة المراد نسخها على أن يكون قابل للتعديل ، هذه واحدة أما الثانية والأخيرة إن شاء الله أتمنى أن يتم وضع النسخة الجديدة من الورقة المراد نسخها كآخر ورقة ضمن أوراق الملف بغض النظر عن موقع الورقة الأصلية وأن تكون هي الورقة الفعالة بعد إنهاء العملية . هذا وأكرر أسفي على كثرة طلباتي وأسأل الله أن يجزيك عني وعن جميع من يستفيدون من علمك وعملك المتميز دائماً كل الخير . تقبل تحياتي وشكري وامتناني . أخوكم أبو عبدالله ADD_SHEET.rar رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر يونيو 19, 2007 مشاركة قام بنشر يونيو 19, 2007 أخي أبو عبد الله سؤالك رائع ومفيد للجميع وأضم صوتي لصوتك :) بإنتظار الباشا خبور رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يونيو 20, 2007 مشاركة قام بنشر يونيو 20, 2007 للرفع . اللهم ارفعنا إلى منزلة تحبها وترضاها لنا وترضى بها عنا ..... آمين رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 20, 2007 مشاركة قام بنشر يونيو 20, 2007 (معدل) السلام عليكم ورحمة الله وبركاته الاخ ابو عبدالله (اكسيلجي) حفظه الله الاخ ابو عبدالله (الجزيرة) حفظه الله هل هذا ما تريدا قولا ان شاء الله اخوكم خبور ________1.rar تم تعديل يونيو 20, 2007 بواسطه خبور رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يونيو 20, 2007 مشاركة قام بنشر يونيو 20, 2007 (معدل) أخي الحبيب / خبور لا أجد من الكلمات ما يوفيك حقك من الشكر والامتنان على تلبية احتياجات إخوانك وأنا واحد منهم وبأعلى مستوى من الكفاءة والفاعلية ، الملف رائع إلى أبعد الحدود وقد وفيت وكفيت ، أسعدك الله في الدنيا والآخرة كما أسعدتني ، ومما تعلمنا منك قمت فقط بتعديلة صغيرة وطبعاً بعد إذنك وهي أن تكون الورقة النشطة بعد إنهاء العملية هي الورقة الجديدة ( المضافة ) وذلك فقط لاحتياجي لهذا الأمر ، وقد أرسلت الملف المرفق وبه هذا التعديل الصغير لعل أحد الأخوة يحتاجه بهذه الكيفية كذلك . أكرر لك كل الشكر والامتنان . أخي الحبيب أرسلت لك رسالة علي بريدك بال gmail حيث أنني أيضاً عندي عنوان بريدي عليه ، أتمنى أن تكون وصلتك وقرأتها ، وأتمنى أن تتاح لك الفرصة للرد علي وأشكرك مقدماً . تقبل تحياتي ودمت بخير وسعادة وعافية . أخوك أبو عبدالله copy_add_sheet.rar تم تعديل يونيو 20, 2007 بواسطه إكسيلجي رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 21, 2007 مشاركة قام بنشر يونيو 21, 2007 السلام عليكم ورحمة الله وبركاته الاخ / ابو عبدالله المحترم لم استلم الرسالة التي ارسلتها بالبريد شف فين رسلتها اخوك خبور رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يونيو 21, 2007 مشاركة قام بنشر يونيو 21, 2007 أخي الحبيب / خبور سامحني أخي الحبيب فقد حدث خطأ عند تسجيل عنوانك البريدي عند إرسال الرسالة وقد قمت بإصلاح العنوان وإعادة إرسالها على عنوانك الصحيح لذا تقبل اعتذاري وأتمنى أن تصلك الرسالة . أشكرك جزيل الشكر . أخوك أبو عبدالله رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 21, 2007 مشاركة قام بنشر يونيو 21, 2007 استلم يا صديقي ________2.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.