اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

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

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

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

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

 

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
قام بنشر

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

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

تقبل تحياتي

قام بنشر
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