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

طباعة قائمة منسدلة


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

بالملف المرفق شهادة للطلاب . قمت بعمل قائمة منسدلة لاستدعاء أسماء الطلاب 

حين يتم استدعاء طالب تظهر درجاتة في الشيت 

ثم اقوم بطباعة الشهادة 

لكن كل مرة افتح القائمة المنسدلة واختار الطالب التالى ثم امر الطباعة 

 هل هناك طريقة ايسر للطباعة

بعمل ماكرو مثلا وقد حاولت فيه لكن الأمر لم يفلح

لكم جزيل الشكر

 

1A first.rar

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

السلام عليكم

تفضل الملف المرفق وفيه ماكرو لطباعة كل الشهادات... تمت بعض التعديلات على بعض التنسيقات (معادلة التسمية name1a، نطاق الطباعة)... تم حفظ الملف بصيغة .xlsb لأجل الماكرو...

بن علية

1A first.rar

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

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

قد وفرت علينا جهد ووقت 

سلمت يداك 

ولو امكن شرح كيفية عمل هذا الماكرو

شكرا جزيلا قد فهمت طريقة عمل الماكرو بخبرتى الضئيلة 

 ولكنى لم استطع  فهم التسمية 

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

  • 1 month later...
On ٢٨‏/١٢‏/٢٠١٦ at 11:01 AM, بن علية حاجي said:

السلام عليكم

تفضل الملف المرفق وفيه ماكرو لطباعة كل الشهادات... تمت بعض التعديلات على بعض التنسيقات (معادلة التسمية name1a، نطاق الطباعة)... تم حفظ الملف بصيغة .xlsb لأجل الماكرو...

بن علية

1A first.rar

 

On ٢٨‏/١٢‏/٢٠١٦ at 10:05 AM, emanellethey7 said:

بالملف المرفق شهادة للطلاب . قمت بعمل قائمة منسدلة لاستدعاء أسماء الطلاب 

حين يتم استدعاء طالب تظهر درجاتة في الشيت 

ثم اقوم بطباعة الشهادة 

لكن كل مرة افتح القائمة المنسدلة واختار الطالب التالى ثم امر الطباعة 

 هل هناك طريقة ايسر للطباعة

بعمل ماكرو مثلا وقد حاولت فيه لكن الأمر لم يفلح

لكم جزيل الشكر

 

1A first.rar

السلام عليكم

نرجو من الأخ 

بن علية حاجي

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

لحيث وأنني أريد عمل نفس الكود على ملف أكسل مشابه 

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

Sub Printing()
    'تعريف متغير من النوع رقم صحيح لاستخدامه في الحلقة التكرارية
    Dim i As Long
    
    'حلقة تكرارية من الرقم 1 وهو رقم أول طالب
    'ونهاية الحلقة التكرارية هو عدد إجمالي الطلاب
    'حيث يتم الحصول على هذا العدد من خلال إجمالي صفوف النطاق
    'يمكن الإطلاع على النطاق من خلال [name1a] المسمى
    'حيث يمثل [Name Manager] ثم [Formulas]التبويب
    'والنطاق ديناميكي أي يتغير بإضافة طلاب جدد [D3:D26] النطاق
    For i = 1 To [name1a].Rows.Count
    
        'في ورقة العمل المراد طباعتها ستتغير في كل حلقة تكرارية [D3] الخلية
        'حيث تم استخدام الدالة إندكس للحصول على الطلاب بالترتيب
        'في أول حلقة تكون قيمة المتغير تساوي 1 فيأتي بالطالب رقم 1
        'وفي الحلقة التالية تتغير قيمة المتغير لتصبح 2 فيأتي بالطالب رقم 2 وهكذا
        [D3] = Application.Index([name1a], i)
        
        'بمجرد تغير الطالب يتم إعطاء أمر بطباعة الورقة النشطة
        ActiveSheet.PrintOut Copies:=1
    
    'الانتقال للحلقة التالية أي الطالب التالي
    Next i
    
    'في نهاية المطاف يتم إرجاع قيمة الخلية لتساوي اسم أول طالب
    [D3] = Application.Index([name1a], 1)
End Sub

 

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

أخى فى الله

وأستاذى القدير // ياسر خليل أبو البراء

جزيتم عنا خير الخير

شرحكم للكود أكثر من واف ورائع ويدل على شخصيتكم الراقية 

 

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

جزاكم الله خيراً أخي الغالي محمود الشريف

ومشكور على كلماتك الطيبة والرقيقة في حقي .. تقبل وافر تقديري واحترامي

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

وجزيت خيراً بمثل ما دعوت لي أخي العزيز محمد الدسوقي

الفضل لله ثم للأخ الغالي بن علية  ، حيث أنه صاحب الكود الرائع والممتاز في تأدية المطلوب ، وما قمت به إلا توضيح لطالب الموضوع ليتمكن من التعديل على الكود في حالة أن تم تغير هيكلة الملف 

تقبل تحياتي

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

22 hours ago, ياسر خليل أبو البراء said:


    'تعريف متغير من النوع رقم صحيح لاستخدامه في الحلقة التكرارية
    
    'حلقة تكرارية من الرقم 1 وهو رقم أول طالب
    'ونهاية الحلقة التكرارية هو عدد إجمالي الطلاب
    'حيث يتم الحصول على هذا العدد من خلال إجمالي صفوف النطاق
    'يمكن الإطلاع على النطاق من خلال [name1a] المسمى
    'حيث يمثل [Name Manager] ثم [Formulas]التبويب
    'والنطاق ديناميكي أي يتغير بإضافة طلاب جدد [D3:D26] النطاق
    
        'في ورقة العمل المراد طباعتها ستتغير في كل حلقة تكرارية [D3] الخلية
        'حيث تم استخدام الدالة إندكس للحصول على الطلاب بالترتيب
        'في أول حلقة تكون قيمة المتغير تساوي 1 فيأتي بالطالب رقم 1
        'وفي الحلقة التالية تتغير قيمة المتغير لتصبح 2 فيأتي بالطالب رقم 2 وهكذا
        
        'بمجرد تغير الطالب يتم إعطاء أمر بطباعة الورقة النشطة
    
    'الانتقال للحلقة التالية أي الطالب التالي
    
    'في نهاية المطاف يتم إرجاع قيمة الخلية لتساوي اسم أول طالب

 

مشكور جدا ً على هذا الشرح الوافي  ونسأل الله أن يجعل ذلك في ميزان حسناتك 

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

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