العربي_الحر قام بنشر أبريل 21, 2005 مشاركة قام بنشر أبريل 21, 2005 (معدل) السلام عليكم اخواني اهل الخبره يوجد ملف مرفق الملف اريد منكم جزاكم الله خيرا وضع الماكرو الخاص بالازار الخاصه ب GO للذهاب الى SHEET المطلوب HOME للعوده الى الصفحه الرئيسيه PRINT لطباعه الصفحه SAVE (وان يكون المستخدم هو من يحدد اسم الملف المراد حفظه اي ملف اخر غير الرئيسي المستخدم ) جزاكم الله خير وجعل ذلك في ميزان حسناتكم تم تعديل أبريل 21, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر أبريل 21, 2005 مشاركة قام بنشر أبريل 21, 2005 السلام عليكم ... بالنسبة للخيار Go : فقط وضح أخي الكريم ماذا تقصد في المرفق. هل سيتم الانتقال بالاعتماد على بيانات الجدول؟ أم ماذا؟ بالنسبة لباقي الخيارات : بسيطة إن شاء الله ، فقط وضح ما تريد ونحن جاهزون لإعطاءك الأكواد المطلوبة. بالتوفيق رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر أبريل 21, 2005 الكاتب مشاركة قام بنشر أبريل 21, 2005 كنت اتمنى ان تكون انت اخي محمد اول من يرد علي والخير طبعا في بقية الاعضاء نعم اخي محمد والجدول اسفل زر GO يوضح الى اي SHEET سيتم الانتقال حسب الخيارات المختاره في الاعلى RED WHITE TOYOTA 1ST 3RD NISSAN 2ND 4TH 1ST 2ND 3RD 4TH اسماء SHEET هي IF TOYOTA RED GO TO SHEET "1ST IF TOYOTA WHITE GO TO SHEET "3RD وهكذا فقط عند الضغط على GO والشكر مقدما لك ولكل اعضاء ومشرفي المنتدى الرائع رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر أبريل 22, 2005 مشاركة قام بنشر أبريل 22, 2005 السلام عليكم ... جرب المرفق التالي: 16834.zip رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر أبريل 23, 2005 الكاتب مشاركة قام بنشر أبريل 23, 2005 (معدل) جزاك الله خير الجزاء واحسن اليك والى والديك ورضي الله عنك وجعل ذلك في ميزان حسناتك تم تعديل أبريل 23, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر أبريل 23, 2005 الكاتب مشاركة قام بنشر أبريل 23, 2005 اخي محمد اذا كان في امكانيه لحفظ اخر SHEET يعمل عليه المستخدم فقط تكون الامور ممتازه جدا لانني اعمل برنامج مكون من 10 SHEET و حفظها كلها WORKBOOK صعب شوي واكرر شكري العميق لك رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر أبريل 24, 2005 مشاركة قام بنشر أبريل 24, 2005 السلام عليكم ... جرب التعديل التالي: عملت على جعل البرنامج يحفظ الورقة بنفس اسمها و في نفس مسار الملف الأصلي ، و إذا كنت تريد تحديد اسم الورقة أو مسارها بنفسك فأخبرني لأعدل لك الكود. 16834_New.zip رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر أبريل 25, 2005 الكاتب مشاركة قام بنشر أبريل 25, 2005 (معدل) جزاك الله خير واشكر على مجهودك الرائع ومتابعتك لي نعم اريد تحديد الاسم والمسار اذا تكرمت مع الشكر والعرفان العربي_الحر تم تعديل أبريل 25, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر أبريل 26, 2005 مشاركة قام بنشر أبريل 26, 2005 السلام عليكم ... جرب التعديل التالي: 16834_New1.zip رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر مايو 23, 2005 الكاتب مشاركة قام بنشر مايو 23, 2005 (معدل) اخي الكريم محمد حاولت ان اطبق الموديل الاخير على هذا الملف ولكن لم استطيع الرجاء المساعده وهذا هو الملـــــــــــــــــــف الرجاء المساعده جزاك الله كل خير تم تعديل مايو 23, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر مايو 26, 2005 مشاركة قام بنشر مايو 26, 2005 السلام عليكم ... بالنسبة للمايكرو الموجود في المرفق السابق ، لم يعمل لسبب بسيط و هو أنك لم تقم بتغيير دليل Workbooks إلى اسم الملف الجديد. مرفق المثال المعدل : ANT_001T.rar رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر مايو 26, 2005 الكاتب مشاركة قام بنشر مايو 26, 2005 (معدل) جزاك الله كل خير اخي حجازي ولكن انا مبتدا في مجال الكود ممكن تشرحلي كيف (لم تقم بتغيير دليل Workbooks إلى اسم الملف الجديد.) علمني الصيد افضل من ان تعطيني سمكه :( وشكرا لك تم تعديل مايو 26, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر مايو 28, 2005 مشاركة قام بنشر مايو 28, 2005 السلام عليكم ... دليل الـ Workbooks هو عبارة عن الاسم أو الرقم الذي يميز ورقة العمل ، مثال : Sheets("Sheet2").Range("A5").Value = 5 Sheets(2).Range("A5").Value = 5 لاحظ أن كل من Sheet2 و 2 هو عبارة عن دليل لورقة العمل ، ولكن الفرق بينهما يكمن في أننا استعنا باسم ورقة العمل Sheet2 في الكود الأول و بترتيبه ضمن أوراق العمل 2 في الكود الثاني ، وذلك طبعاً من أجل الإشارة إلى الورقة المطلوبة. و بالنسبة لباقي الكود ، ستجد شرحاً عن كود مشابه له في الرابط التالي : http://www.officena.net/ib/index.php?showtopic=6292 رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر مايو 28, 2005 الكاتب مشاركة قام بنشر مايو 28, 2005 (معدل) بارك الله بك وجعلك ذخرا للمنتدى اخي حجازي فانت فعلا تعمل لاجل العمل و لخدمه المنتدى والاعضاء وليس لتسجيل ردود فحسب كما يفعل بعض المشرفين في كثير من المنتديات تم تعديل مايو 28, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر يونيو 5, 2005 الكاتب مشاركة قام بنشر يونيو 5, 2005 (معدل) اخي الكريم هل من الممكن ان يفتصر امر الطباعه على الورقه الاولى من الشيت فقط سواء اكان هناك بيانات في الورقه الثانيه ام لا. يعني PRINT CURRENT PAGE وشكرا مقدما تم تعديل يونيو 5, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر يونيو 7, 2005 مشاركة قام بنشر يونيو 7, 2005 السلام عليكم ... بدل الإجراء التالي : Sub MyPrint() ActiveSheet.PrintOut Copies:=1, Collate:=True End Sub إلى : Sub MyPrint() Sheets("HOME").PrintOut Copies:=1, Collate:=True End Sub رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر يونيو 9, 2005 الكاتب مشاركة قام بنشر يونيو 9, 2005 بارك الله فيك اخي محمد وكثر من امثالك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها