اريد عمل زر طباعة اجمالي لكل ارقام الجلوس

[mod71]

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

السادة المجترمين عباقرة الاكسيل الملف المرفق نزلته من هذا المنتدي ( جزي الله خيرا صاحبه الاصلي الذي لا اتذكره ) و اجريت عليه بعض التعديلات 

واريد ان اضع  زر طباعة لطباعة كل ارقام الجلوس او لطباعة كشوف النداء لكل المدرسة او غلاف كل لجنة بدلا من اكرر فى كل مره الضغط علي زر الطباعة 

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

 سجل اعجاب بهذا

صف 1 أرقام الجلوس2017.rar

[ياسر خليل أبو البراء]

وعليكم السلام

جرب الكود التالي
 

Sub Test()
    Dim sh As Worksheet
    Dim i As Long
    
    Set sh = Sheets("بطاقة فردية")
    For i = 1 To 410 Step 2
        sh.Range("M3").Value = i
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next i
End Sub

 

[mod71]

بارك الله فيك استاذنا الكبير/ ياسر خليل  و جزاكم الله كل الخير

[ياسر خليل أبو البراء]

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

تقبل تحياتي

[ناصر سعيد]

Sub Test()
    Dim sh As Worksheet
    Dim i As Long
    
    Set sh = Sheets("بطاقة فردية")
    For i = 1 To 410 Step 2
        sh.Range("M3").Value = i
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next i
End Sub

كود مفيد .. جزاك الله كل خير استاذ ياسر

الرقم 400 متغير .. ممكن لو سمحت تخليه مرن ياخد العدد من  الصفحه الخارجيه

[ياسر خليل أبو البراء]

وجزيت خيراً بمثل ما دعوت لي أخي الكريم ناصر

حددت العدد في الكود لوجود بيانات أسفل البيانات الأخرى

عموماً إذا كنت تريد أن يكون مرتبط بآخر صف به بيانات في عمود محدد وليكن العمود الأول

استبدل الرقم 140 بالسطر التالي

Cells(rows.count,1).end(xlup).row

حيث يقوم هذا الجزء بجلب رقم آخر صف به بيانات في العمود الأول .. إذا أردت عمود آخر قم باستبدال الرقم 1 في السطر السابق برقم العمود المطلوب ..

 

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

بفرض أن لديك في الورقة المسماة "Sheet1" في الخلية G5 القيمة المطلوبة ولتكن 410 

سيتم الإشارة إلى ورقة العمل يليها الإشارة للخلية المطلوبة بهذا الشكل

Sheets("Sheet1").Range("G5").Value

ويستخدم هذا الجزء في هذه الحالة بدلاً من الرقم 410 في الكود 

 

[ناصر سعيد]

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

1 ساعه مضت, ياسر خليل أبو البراء said:

Cells(rows.count,1).end(xlup).row

كده هاتعد الصفوف في صفحه البطاقه واللا في اي صفحه ؟

[ياسر خليل أبو البراء]

قم بالإشارة للصفحة المطلوبة قبل بداية السطر

يعني مثلاً لو الصفحة هي صفحة "البطاقات الفردية" ودي أسندناها لمتغير باسم sh ..فنضع الـ sh قبل بداية السطر المطلوب جلب رقم آخر صفحة في الورقة المعنية

sh.Cells(rows.count,1).end(xlup).row

[ناصر سعيد]

Sub Test()
    Dim sh As Worksheet
    Dim i As Long
    
    Set sh = Sheets("بطاقة فردية")
    For i = 1 To sh.Cells(Rows.Count, 2).End(xlUp).Row _
    Step 2
        sh.Range("M3").Value = i
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next i
End Sub

هل هيصبح الكود بهذا الشكل ؟

[ياسر خليل أبو البراء]

تمام الله ينور عليك أخي الكريم ناصر

أحسنت

[ناصر سعيد]

Sub Test()
    Dim sh As Worksheet
    Dim i As Long
    
    Set sh = Sheets("بطاقة فردية")
    For i = 1 To sh.Cells(Rows.Count, 2).End(xlUp).Row _
    Step 2
        sh.Range("M3").Value = i
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next i
End Sub

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

[ياسر خليل أبو البراء]

لو تقصد إن رقم آخر صف مش هيكون الإجمالي ممكن تعتمد على أمر آخر وهو قيمة الخلية في آخر صف (أعتقد إن فيه تسلسل من 1 إلى 410 مثلاً) ..

فلو كان رقم آخر صف 400 مثلاً : حاجة من الاتنين يا إما تزود 10 على رقم آخر صف عشان توصل لإجمالي الطلاب بالشكل دا

For i = 1 To sh.Cells(Rows.Count, 2).End(xlUp).Row + 10 Step 2

يا إما تجيب قيمة الخلية في آخر صف بالشكل دا

For i = 1 To sh.cells(sh.Cells(Rows.Count, 2).End(xlUp).Row,1).value Step 2

أو طريقة تالتة إنك تستخدم دالة Countif في محرر الأكواد عشان تعد عدد الطلاب .. كل السبل تؤدي إلى روما ..

[أبوهديل]

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

[ناصر سعيد]

2 ساعات مضت, ياسر خليل أبو البراء said:

(أعتقد إن فيه تسلسل من 1 إلى 410 مثلاً) ..

التسلسل في صفحة غير صفحه الطباعة اخي الكريم

 

[ياسر خليل أبو البراء]

لا يهم المهم أن تكون نهاة السلسلة تساوي إجمالي عدد الطلاب المطلوب 

ويمكن بأي طريقة الحصول عليه كما أوضحت

[ناصر سعيد]

4 ساعات مضت, ياسر خليل أبو البراء said:

For i = 1 To sh.Cells(Rows.Count, 2).End(xlUp).Row + 10 Step 2

الله يحفظك .. اليس هذا السطر لايجاد عدد الصفوف الموجود بها بيانات في صفحه بطاقه فرديه ؟

تجيب العدد الاجمالي منين !

[ياسر خليل أبو البراء]

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

حاول ترفق ملف كنموذج مصغر لما تريده بالضبط لربما يكون أفضل في فهم المطلوب ..