BACHA22 قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 المطلوب في المرفقات gfshsh.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 (معدل) السلام عليكم ورحمة الله أخي الكريم، إن العمل المطلوب تجده في المرفق... عليك قراءة الملاحظات... بالنسبة للشرح حاولت أن أكون أكثر دقة فاعذرني إن لم يكن الشرح وافيا... أخوك بن علية ali_1.rar تم تعديل يوليو 20, 2010 بواسطه hben رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 السلام عليكم الأخ الكريم جرب المرفق - إن شاء الله - به ما طلبت دمت بخير أيسم إبراهيم gfshsh.rar رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 السلام عليكم عذرا أخي الأستاذ بن علية يبدو أننا كنا نجهز المطلوب في نفس الوقت لكن زيادة في الخير و لإثراء الموضوع دمت بخير أيسم إبراهيم رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 <P> Private Sub CommandButton1_Click()<BR>Range("A3").Select 'اختيار الخلية A3<BR> ActiveCell.FormulaR1C1 = "1" ' الخلية الاختارة سابقا قيمتها تساوي 1<BR> ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True<BR> ' بداية الطباعة<BR> Do ' نفذ الطباعة<BR> ActiveCell = ActiveCell + 1 ' بداية الإنتقال لطباعة الورقة الثانية بمقدار زيادة يساوي 1<BR> ActiveWindow.SelectedSheets.PrintOut ' تنفيذ طباعة الورقة التالية<BR> Loop Until ActiveCell.Value = Range("B3").Value 'الإستمرار في تنفيذ طباعة الورقة الثالثة ثم الرابعة ثم ....إلخ<BR>Range("A3").Select ' اختيار الخلية بعد الانتهاء<BR>End Sub</P> <P> <BR><FONT color=#9932cc size=5>الكود المستخدم و شرح مبسط له</FONT></P> رابط هذا التعليق شارك More sharing options...
أبو العقاب قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 ما شاء الله أكواد رائعة للغاية رابط هذا التعليق شارك More sharing options...
محمد 65 قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 (معدل) اخي الكريم وجدت هذا الكود الجميل للاستاذ يحياوي تستطيع ان تاخذ فكرة عن الموضوع رابط الموضوع تم تعديل يوليو 20, 2010 بواسطه med1973 رابط هذا التعليق شارك More sharing options...
BACHA22 قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 (معدل) شكرا لكم جميعا أكواد رائعة لكن عندي مشكل في المرفقات أريد طباعة شهادتين في ورقة واحدة أي عند الضغط على زر الطباعة يطبع شهادتين في صفحة واحدة يطبع الشهادة رقم 1 مع الشهادة رقم 2 و تستمر الطباعة على هذه الطريقة حتى النهاية أرجو وضع كود لذلك ali.rar تم تعديل يوليو 21, 2010 بواسطه BACHA22 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 السلام عليكم ورحمة الله أخي الكريم، لا يوجد أي مشكلة في ذلك، قمت ببعض التغييرات على الصفحة من ناحية التنسيقات والتخريج واستعملت الكود الذي استعملته في رد سابق مع تغيير طفيف جدا... وانتظر أخي الكريم أيسم (الذي أسلم عليه سلاما حارا) ليدلي بدلوه في المسألة باستعمال الكود الذي وضعه (وأعتقد أن هذا الكود أحسن من الكود الذي وضعته)... إليك بالملف المرفق وفيه المطلوب... بن علية ali_3.rar 1 رابط هذا التعليق شارك More sharing options...
BACHA22 قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 (معدل) شكرا لك لكن هناك مشكل تم تعديل يوليو 21, 2010 بواسطه BACHA22 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 السلام عليكم ورحمة الله أخي الكريم، لم أغير في الكود سوى السطر : For I = 1 To Range("A1") بالسطر For I = 1 To Range("A1") Step 2 و Step 2 تعني بالخطوة 2 أي : عوض أن يقوم الكود بتغيير القيمة I بالقيم 1 ، 2 ، 3 ، 4 ... يكون التغيير بالقيم: 1 ، 3 ، 5 ، 7 وهكذا... وفي ورقة الشهادتين جعلت الشهادة الأولى تتعلق بالخلية A3 التي تأخذ قيم I والشهادة الثانية تتعلق بالخلية I3 التي وضعت فيها الصيغة التالية = A3 + 1 وبالتالي لو أخذ I القيمة 1 فقيمة الخلية A3 هي 1 وقيمة الخلية I3 هي 2 وبالتالي نستخرج في صفحة واحدة الشهادتين 1 و 2، وإذا أخذ I القيمة الموالية له وهي 3 تأخذ الخلية A3 القيمة 3 والخلية I3 تأخذ القيمة 3 + 1 أي 4 ونكون بالتالي قد استخرجنا الشهادتين 3 و 4 في الصفحة نفسها وهكذا... والله أعلم رابط هذا التعليق شارك More sharing options...
BACHA22 قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 (معدل) شكرا لك الكود يعمل بشكل جيد هناك خطأ كان في ملفي و بارك الله فيك و جزاك الله تم تعديل يوليو 21, 2010 بواسطه BACHA22 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 السلام عليكم ورحمة الله شكرا لك لكن الكود لا يطبع شهادتين معا نلاحظ التغيير في الشهادة الأولى فقط أريد أن يطبع شهادتين معا في ورقة واحدة مثلا الشهادة رقم 1 في الجهة اليمنى مع الشهادة رقم2 في الجهة اليسرى ورقم 3 مع 4 و رقم5 مع 6 حتى النهاية أي في الورقة المطبوعة تخرج شهادتين أخي الكريم، الكود معي يعمل جيدا دون أي مشكل... المشكل عندك يمكن أن يكون في إحدى الحالتين التاليتين: - إما أن يكون "أمان الماكرو" مرتفعا في البرنامج قم بتخفيضه عن طريق : أدوات Outils / ماكرو Macro / أمان Sécurité / منخفض Bas - وإما أن نكون طريقة الحساب يدوية إجعلها آلية عن طريق: أدوات Outils / خصائص Options / حساب Calcul / تلقائي Automatique والله أعلم رابط هذا التعليق شارك More sharing options...
BACHA22 قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 شكرا لك الخطأ كان عندي الكود يعمل بشكل جيد بارك الله فيك رابط هذا التعليق شارك More sharing options...
BACHA22 قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 (معدل) تم تصحيح الخطأ تم تعديل يوليو 21, 2010 بواسطه BACHA22 رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 السلام عليكم الأخوة الأعزاء وانتظر أخي الكريم أيسم (الذي أسلم عليه سلاما حارا) ليدلي بدلوه في المسألة باستعمال الكود الذي وضعه الله يسلمك و يعافيك بكل خير أخي الأستاذ بن علية (وأعتقد أن هذا الكود أحسن من الكود الذي وضعته) هذا تواضع العلماء الكبار أخي BACHA تفضل المرفق يطبع شهادتين في صفحة واحدة مع تعديل بسيط على الكود دمتم جميعا بخير أيسم إبراهيم gfshsh.rar رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 أخي العزيز / بن علية عمل رائع بارك الله فيك . تقبل تحياتي أبو عبدالله رابط هذا التعليق شارك More sharing options...
BACHA22 قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 (معدل) بارك الله فيكم تم تعديل يوليو 21, 2010 بواسطه BACHA22 رابط هذا التعليق شارك More sharing options...
myyasser قام بنشر يوليو 28, 2010 مشاركة قام بنشر يوليو 28, 2010 بارك الله فيكم رابط هذا التعليق شارك 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.