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

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

Recommended Posts

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

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

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

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

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

صف 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

 

  • Like 2

شارك هذه المشاركه


رابط المشاركه
شارك

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

شارك هذه المشاركه


رابط المشاركه
شارك
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 في الكود 

 

  • Like 3

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

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

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

  • Like 2

شارك هذه المشاركه


رابط المشاركه
شارك
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

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

  • Like 2

شارك هذه المشاركه


رابط المشاركه
شارك
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

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

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

لو تقصد إن رقم آخر صف مش هيكون الإجمالي ممكن تعتمد على أمر آخر وهو قيمة الخلية في آخر صف (أعتقد إن فيه تسلسل من 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 في محرر الأكواد عشان تعد عدد الطلاب .. كل السبل تؤدي إلى روما ..

  • Like 3

شارك هذه المشاركه


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

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

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

 

  • Like 1

شارك هذه المشاركه


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

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

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

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

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان


  • المتواجدين الان   0 اعضاء متواجدين الان

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

×