logo

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



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





21-01-2020 08:58 صباحاً
السلام عليكم
لدي هذا الكود (منقول) للطباعة بدون فراغات اتمنى من الاساتذة شرح مبسط للكود لاني لم افهم خطواته وايضا عندما اضغط زر التنفيذ يتأخر قليل للطباعة لماذا

CODE
​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




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




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




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

Option Explicit

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






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




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




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

لدي فكرة هو ان تقوم بكتابة الكود يخفي جميع خلايا العمود الا الخلايا التي بها قيمة وبالتالي تعوض الاسثتناء الذي هو الخلايا الفارغة وعددها كبير بالخلايا التي بها قيمة وعددها صغير وبالتالي وقت قصير



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

زكاة العلم نشره
</pre>

look/images/icons/upload/awt6.gif كود طباعة جدول بدون فراغات
  25-01-2020 09:47 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2020
رقم العضوية : 17616
المشاركات : 63
الجنس :
تاريخ الميلاد : 1-1-1996
قوة السمعة : 146
الاعجاب : 0
<code>ما اجمل الاكسل فهو ممتع كأنه لعبة الغاز
اخي انت تطبع على الورق والورق يطبع صفوف محدودة حسب طول ارتفاعها
يعني
انك يجب ان تقوم بتحديد متغير وهو اول خلية في كل صفحة يعني اذا كانت الخلية فارغة لا يطبع الصفحة والمثال عندي انا كتبت هذاالكود رغم اني مبتدأ ههههه علما ان عدد صفحات الطباعة هو 10 وعلما أن ورقة الطباعة هي A5 سأرفق لك الكود</code>

<code>
CODE
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
</code>


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



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

زكاة العلم نشره
</pre>

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




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




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

زكاة العلم نشره
</pre>

اضافة رد جديد اضافة موضوع جديد



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

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









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

الساعة الآن 01:20 AM