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

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


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

 

  • 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
رابط هذا التعليق
شارك

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

يعني مثلاً لو الصفحة هي صفحة "البطاقات الفردية" ودي أسندناها لمتغير باسم 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 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
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

  • 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