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

    • محمد طاهر

      الكلمات المفتاحية   10 يون, 2017

      السلام عليكم الأخوة الكرام ، عند إضافة موضوع جديد يرجي الحرص على تحديد الكلمات المفتاحية فى الخانة تحت العنوان و هذا سيساهم فى تدعيم خاصية البحث و ربط الموضوع بالمواضيع الجديدة لتعم الفائدة برجاء الاهتمام بهذا الامر
  • 0
mod71

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

السؤال

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

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

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

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

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

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

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


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

16 اجابات علي هذا السؤال

  • 0

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

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

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

 

2 اشخاص اعجابات بهذا

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


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

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

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


رابط المشاركه
شارك
  • 0
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 متغير .. ممكن لو سمحت تخليه مرن ياخد العدد من  الصفحه الخارجيه

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


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

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

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

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

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

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

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

 

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

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

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

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

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

 

3 اشخاص اعجابات بهذا

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


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

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

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

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

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

1 شخص اعجاب بهذا

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


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

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

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

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

2 اشخاص اعجابات بهذا

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


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

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

2 اشخاص اعجابات بهذا

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


رابط المشاركه
شارك
  • 0
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 شخص اعجاب بهذا

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


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

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

3 اشخاص اعجابات بهذا

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


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

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

2 اشخاص اعجابات بهذا

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


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

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

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

 

1 شخص اعجاب بهذا

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


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

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

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

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


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

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

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

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

1 شخص اعجاب بهذا

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


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

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

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

1 شخص اعجاب بهذا

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


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

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

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

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

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


سجل حساب جديد

تسجيل دخول

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


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

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

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