الاكسيل : ترجمة دوال الاكسل من الانجليزية الى الفرنسية Translate English to French

 بسم الله الرحمن الرحيم 

اهلا بكم متابعى موقع عالم الاوفيس

درس جديد من دروس الاكسل VBA 

 اخفاء الاعمدة الفارغة والخالية من البيانات عند طباعة التقارير 

اليومية

كثير منا من يكون فى عملة يتعامل مع بعض الجداول التى تحتوى على بعض البيانات مل بيانات العملاء وبيانات الموردين او الاصناف او غير ذلك 

ولو اردنا ان نقوم بطباعة البيانات وعندننا بعض الاعمدة الفارغة والخالية من البيانات ونريد ان نقوم بتجاهل هذة الاعمدة الفارغة عند الطباعة 

كيف نقوم بذلك 

نقوم بذلك من خلال كود VBA سهل وبسيط 

من خلال هذا الكود نقوم بعمل حلقة تكرارية For each ومن خلال يقوم باختبار جميع الخلايا الموجودة داخل النطاق للتاكد من انها يوجد بها بيانات .

فى حالة وجد انها لا تحتوى على بيانات يقوم باخفاء العمود بالكامل وبعد ذلك يقوم بطباعة التقرير 

الكود المستخدم

Sub printwithoutblankecolumn()

Application.ScreenUpdating = False

Dim cell As Range, rng As Range, lr As Integer

On Error Resume Next

lr = Cells(Rows.Count, 1).End(xlUp).Row

Set rng = Range("a4:g" & lr)

 For Each cell In rng

If cell.Value = "" Then

 cell.EntireColumn.Hidden = True

End If

Next

 Range("a1:g" & lr).PrintPreview

Cells.Columns.Hidden = False 

Application.ScreenUpdating = True

 End Sub

لمشاهدة شرح الفيديو 

لتحميل ملف العمل من هنا