اذهب الي المحتوي
أوفيسنا

طباعة الشهادات كلها بأمر واحد


الردود الموصى بها

السلام عليكم ورحمة الله وبركاته
اخوانى الأفاضل
هذا الموضوع أرسله لي أحد الإخوة (رجب محمد مرسي) وأحببت أن يشارك فيه من أراد ومن له مشكلة مماثلة
 
يسأل أخونا قائلا
===================================================
انا جديد في التعامل مع اكسل فلا اسطيع التعامل بشكل مناسب مع اكواد ومعادلات اكسل ..
ولله الحمد انا اعرف عمل كود طباعة شهادة ةاحدة وذلك من خلال record macro
هل يمكن طباعة جميع الشهادات عن طريق record macro ام لابد من كتابة الماكرو وهذ ما لا اعرفة لانة يحتاج الى vba
الرجاء شرح خطوة خطوة في كيفية عمل ذلك عن طريق
record macro
او اي شئ يكون مفيد بعيدا عن الاكواد ووجع الاكواد 
========================================================
 
وردا عليه أقول
نحتاج أخي في هذه الحالة إلي كود بسيط من 5 أسطر فقط
وستجد بالمرفق ماتريد 
مع شيت بآخر الملف به شرح الكود

تفضل المرفق

شيت كنترول2.zip

  • Like 2
رابط هذا التعليق
شارك

استاذ طارق محمود

 

اكثر من ممتاز وسهولة رائعه

 

ممكن يتم عمل اتنين كومبوبوكس مرتبطين مع بعض زى ما حضرتك عامل بس على الفورم

رابط هذا التعليق
شارك

السلام عليكم

الاستاذ القدير /  طارق محمود

بارك الله فيك

وجعلك دائما في عون الجميع

مبدع دائما ... وشروحات راائعة

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

 

 

0b1yX.gif

رابط هذا التعليق
شارك

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

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

تقبل مني فائق الاحترام والتقدير

13255022188.gif

 

رابط هذا التعليق
شارك

 

السلام عليكم ورحمة الله وبركاته
اخوانى الأفاضل
هذا الموضوع أرسله لي أحد الإخوة (رجب محمد مرسي) وأحببت أن يشارك فيه من أراد ومن له مشكلة مماثلة
 
يسأل أخونا قائلا
===================================================
انا جديد في التعامل مع اكسل فلا اسطيع التعامل بشكل مناسب مع اكواد ومعادلات اكسل ..
ولله الحمد انا اعرف عمل كود طباعة شهادة ةاحدة وذلك من خلال record macro
هل يمكن طباعة جميع الشهادات عن طريق record macro ام لابد من كتابة الماكرو وهذ ما لا اعرفة لانة يحتاج الى vba
الرجاء شرح خطوة خطوة في كيفية عمل ذلك عن طريق
record macro
او اي شئ يكون مفيد بعيدا عن الاكواد ووجع الاكواد 
========================================================
 
وردا عليه أقول
نحتاج أخي في هذه الحالة إلي كود بسيط من 5 أسطر فقط
وستجد بالمرفق ماتريد 
مع شيت بآخر الملف به شرح الكود

تفضل المرفق

 

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

رابط هذا التعليق
شارك

السلام عليكم

ارجو ان تشرح لي مرة اخرى بس هذة المرة تكون من خلال الصور في كل خطوة او ملف فدىو

 

 

 

عفوا أخي الحبيب

ولكن لابد أن تعلم أنني لم أسجل الماكرو عن طريق record macro

فالطريقة أو التكنيك المستخدم (أقصد به الحلقة) لابد أن تكون علي علم بها أولا

 ولذلك  ، لن يجدي الفيديو أو الصور إن لم تكن ملما ببعض الأوامر والحيل في الفيجوال بيزيك (أقل القليل)

أنصحك بقراءة أي دورة في الفيجوال بيزيك (أسبوع علي الأكثر وستجد حالك مختلف كثيرا)

 

إبحث أخي في المنتدي عن تعليم فيجوال بيزيك

ستجد عشرات المواضيع

مثل

http://www.officena....p?showtopic=206

أو

http://www.officena....showtopic=32470

أو

http://www.officena....showtopic=33308

أو

http://www.officena....entry217747

أو

http://www.officena....323&hl=دورة

 

تحياتي وأتمني أراك معنا كثيرا إن شاء لله

رابط هذا التعليق
شارك

إخواني وأحبائي وأساتذتي الكرام

 

 
basem said
مجدى يونس
خالد القدس
حمادة عمر
عباس السماوي
هانى ابو ادهم
ragab65
ابومازن محمود
 

كل من مر وعلق أو لم يعلق

لكم مني جزيل الشكر والإحترام

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

كود الأدبي بعد التعديل مع شرح

Sub Macro2()
LR = Sheet8.[C9999].End(xlUp).Row
                                        'في Sheet8
                                        'ستجد أن العمود F ليس به
                                        'بيانات وإنما البيانات بالعمود C
                                        ' لذلك استبدلتهما
                                       
For r = 7 To LR Step 3 ' Step 3 بدلا من Step 4
                                        'لأن الشهادات هنا 3 بالصفحة والأخري 4
                                       
    [A6] = Sheet8.Cells(r, 1) '   [A6] بدلا من [A7]
                                            ' لأن الخلية الخضراء هنا هي
                                            'A6
                                            
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End Sub
رابط هذا التعليق
شارك

  • 2 weeks later...
  • 1 year later...
  • 1 year later...

البشمهندس / طارق محمود

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

تسلم الايادى والعقول الجميلة والنيرة ياباشا ربنا يباركلك ويزيدك علما اللهم امين 

بالطبع كود رائع مثلك يابشمهندس

ولكن هل ممكن اضافة لهذا الكود امر يكون وظيفة هذا الامر عندما مثلا نقوم بطباعة مثلا 10 ورقات تعطى رسالة بأنه تم طباعة 10 ورقات وعندما يتم الضغط على الرسالة يتم طباعة 10 ورقات التاليين  وهكذا . 

أو امر يعطى مثلا بين كل تكرار لطباعة ورقة الشهادة ترك مثلا ثانية من الوقت او 2 ثانية .

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

فانا اريد عمل اى امر يعمل نوع من التوازن بين سرعة التكرار وترك مساحة للطابعةتطبع وتأخذ الطابعة وقت للطباعة حتى لاتعطل الطابعة عند الطباعة .

انا شاكر لسيادتك على هذا الكود يابشمهندس وكالعادة أعمالك كلها رائعة 

اجمل المنى وارق التهانى لشخصكم الكريم 

وشكرا 

تم تعديل بواسطه فضل حسين
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information