أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تجميع العديد من الملفات في ملف واحد اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود طباعة جدول بدون فراغات

السلام عليكم لدي هذا الكود (منقول) للطباعة بدون فراغات اتمنى من الاساتذة شرح مبسط للكود لاني لم افهم خطواته وايضا عندم ..



21-01-2020 08:58 صباحا
oilman852
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
قوة السمعة : 19
الاعجاب : 0
 offline 
السلام عليكم 
لدي هذا الكود (منقول)  للطباعة بدون فراغات اتمنى من الاساتذة شرح مبسط للكود لاني لم افهم خطواته وايضا عندما اضغط زر التنفيذ يتأخر قليل للطباعة لماذا
 
​Sub printer()
Application.ScreenUpdating = False
  With Sheets("قاعدة البيانات")
    With .UsedRange
      For i = 1 To .Rows.Count
        If .Cells(i, 1).Value = "" Then
          .Cells(i, 1).EntireRow.Hidden = True
        End If
      Next i
    End With
    .PrintPreview
    .Rows.Hidden = False
  End With
  Application.ScreenUpdating = True

End Sub




22-01-2020 07:59 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif كود طباعة جدول بدون فراغات
وعليكم السلام أخي الكريم
الكود يقوم بعمل حلقة تكرارية للصفوف للنطاق المستخدم حيث يقوم باختبار الخلية في العمود الأول فإذا كانت فارغة يقوم بإخفاء الصف ثم بعد ذلك يقوم بمعاينة الورقة بعد الحلقات التكرارية ثم بعد إغلاق المعاينة يتم إظهار الصفوف مرة أخرى ..
كفكرة ولن أستطيع تنفيذها لضيق الوقت قم بعمل فلترة على العمود الأول وإزالة الفراغات بإزالة علامة الصح بجانب الخيار Blanks .. هذا كل ما في الأمر ولا أعتقد أن الأمر يحتاج لكود في هذه الحالة




22-01-2020 09:40 صباحا
مشاهدة مشاركة منفردة [2]
oilman852
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
قوة السمعة : 19
الاعجاب : 0
 offline 
look/images/icons/i1.gif كود طباعة جدول بدون فراغات
شكرا استاذ ياسر ولكن لماذا عندما انفد هذا الامر يأخذ وقت من 10 الى 15 ثانية للتنفيذ ؟؟؟




22-01-2020 04:07 مساء
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 492
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3816
الاعجاب : 65
 offline 
look/images/icons/i1.gif كود طباعة جدول بدون فراغات
لا أعلم ما لزوم الحلقات التكرارية في هذا الكود
الكود باختصار

Option Explicit

Sub P_preview()
  With Sheets("قاعدة البيانات")
    .UsedRange.Columns(1).SpecialCells(4). _
     EntireRow.Hidden = True
    .PrintPreview
    .Rows.Hidden = False
  End With
End Sub






22-01-2020 11:06 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif كود طباعة جدول بدون فراغات
أحسنت أخي وحبيبي سليم بارك الله فيك وجزاك الله خيراً




24-01-2020 09:59 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif كود طباعة جدول بدون فراغات
أخي الكريم ارفق ملف ليطلع عليه الأعضاء ويقوموا بالتجربة ..




25-01-2020 09:16 صباحا
مشاهدة مشاركة منفردة [6]
جنان السبيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2020
رقم العضوية : 17616
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 1-1-1996
قوة السمعة : 137
الاعجاب : 5
 offline 
look/images/icons/i1.gif كود طباعة جدول بدون فراغات
السلام عليكم ورحمة الله وبركاته
اخي المشكل عندك او ان الكود ينفذ على خلايا العمود بكامله EntireRow.Hidden = True يعني 1048576 خلية وهذا عدد هائل يحتاج وقت وفقا لمواصفات جهاز الكمبيوتر لديك لذى من الافضل ان تحدد الرينج لتطبيق هدا الكود يعني عدد خلايا اقل وبالتالي وقت اقل
لدي فكرة هو ان تقوم بكتابة الكود يخفي جميع خلايا العمود الا الخلايا التي بها قيمة وبالتالي تعوض الاسثتناء الذي هو الخلايا الفارغة وعددها كبير بالخلايا التي بها قيمة وعددها صغير وبالتالي وقت قصير



توقيع :جنان السبيل

يتم اكتساب المعرفة من خلال التجربة ، كل شيء آخر هو مجرد معلومات.
البرت اينشتاين

زكاة العلم نشره


25-01-2020 09:47 صباحا
مشاهدة مشاركة منفردة [7]
جنان السبيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2020
رقم العضوية : 17616
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 1-1-1996
قوة السمعة : 137
الاعجاب : 5
 offline 
look/images/icons/upload/awt6.gif كود طباعة جدول بدون فراغات
ما اجمل الاكسل فهو ممتع كأنه لعبة الغاز
اخي انت تطبع على الورق والورق يطبع صفوف محدودة حسب طول ارتفاعها
يعني
انك يجب ان تقوم بتحديد متغير وهو اول خلية في كل صفحة يعني اذا كانت الخلية فارغة لا يطبع الصفحة والمثال عندي انا كتبت هذاالكود رغم اني مبتدأ ههههه علما ان عدد صفحات الطباعة هو 10 وعلما أن ورقة الطباعة هي A5 سأرفق لك الكود
Sub print_if()
Dim PrintArea As Variant
If [A291] <> 0 Then
PrAr = "$A$7:$F$296"  'A7:F296 p10
ElseIf [A262] <> 0 Then
PrAr = "$A$7:$F$267"  'A7:F267 p9
ElseIf [A233] <> 0 Then
PrAr = "$A$7:$F$238"  'A7:F238 p8
ElseIf [A204] <> 0 Then
PrAr = "$A$7:$F$209"  'A7:F209 p7
ElseIf [A175] <> 0 Then
PrAr = "$A$7:$F$180"  'A7:F180 p6
ElseIf [A146] <> 0 Then
PrAr = "$A$7:$F$151"  'A7:F151 p5
ElseIf [A117] <> 0 Then
PrAr = "$A$7:$F$122"  'A7:F122 p4
ElseIf [A88] <> 0 Then
PrAr = "$A$7:$F$93"  'A7:F93 p3
ElseIf [A59] <> 0 Then
PrAr = "$A$7:$F$64"  'A7:F64 p2
Else
PrAr = "$A$7:$F$35"  'A7:F35 p1
End If
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = PrAr
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
MsgBox ("ok !")
End Sub

 
وارجو من الخبراء بالمندى ان يعطوني رأيهم في هذا الكود المتواضع
ارائكم تحفزني وشكرا لكم على سهركم على هذا المنتدى



توقيع :جنان السبيل

يتم اكتساب المعرفة من خلال التجربة ، كل شيء آخر هو مجرد معلومات.
البرت اينشتاين

زكاة العلم نشره


25-01-2020 07:53 مساء
مشاهدة مشاركة منفردة [8]
oilman852
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
قوة السمعة : 19
الاعجاب : 0
 offline 
look/images/icons/i1.gif كود طباعة جدول بدون فراغات
استاذ جنان لو كان النطاق من A1 إلى j200 ممكن تضيفه إلى على الكود إلى انا وضعته لاني لم أعرف كيف اكتبه




27-01-2020 05:23 مساء
مشاهدة مشاركة منفردة [9]
جنان السبيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2020
رقم العضوية : 17616
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 1-1-1996
قوة السمعة : 137
الاعجاب : 5
 offline 
look/images/icons/i1.gif كود طباعة جدول بدون فراغات
اخي اذهب الى ThisWorkbook وضع فيه هذا الكود
Private Sub Workbook_Open()
    '--- عندما يفعل هذا الملف يحدد لك نطاق العمل ---
    Sheets("قاعدة البيانات").ScrollArea = "A1:K202"
End Sub
 
  ScrollArea.png   تحميل png ScrollArea.png مرات التحميل :(2)
الحجم :(81.069) KB
 




توقيع :جنان السبيل

يتم اكتساب المعرفة من خلال التجربة ، كل شيء آخر هو مجرد معلومات.
البرت اينشتاين

زكاة العلم نشره




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طباعة فواتير لجدول كامل dabas
3 672 YasserKhalil

الكلمات الدلالية
استفسار ، بخصوص ، طباعة ، جدول ، بدون ، فراغات ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 04:40 مساء

أعلن هنا
أعلن هنا
أعلن هنا