كود طباعة

[محمد صغير شعبان]

السلام عليكم ورحمة الله وبركاته اخواني الكرام احتاج إلى مساعدتكم

احتاج كود للطباعة بحيث يتجاوز او يخفي او يحذف الصفوف والاعمدة الفارغة في الشيت ويطبع فقط الاعمدة والصفوف التي بها بيانات وبعد الطباعة تعود الصفوف والاعمدة الى الجدول كما كانت 

مع شكري لكم

[أ / محمد صالح]

دعنا نفترض 

إذا كان الصف الذي يخبر ان العمود فارغ هو الصف الأول 

وعدد الاعمدة 10

يمكنك استدعاء هذا الكود قبل الطباعة

Sub hideblank()
For n = 1 To 10
If Cells(1, n) = "" Then Columns(n).Hidden = True
Next n
End Sub

وهذا الكود لإظهار الأعمدة المخفية 

Sub showblank()
For n = 1 To 10
If Columns(n).Hidden Then Columns(n).Hidden = False
Next n
End Sub

بالتوفيق 

[محمد صغير شعبان]

شكرا على الاجابة

لقد ذكرت اخفاء واظهار الاعمدة ولم تذكر اخفاء واظهار الصفوف وحددت مدى معين 10 اعمده والمطلوب مدى غير محدد وايضا الصفوف 

[مهند محسن]

محمد ابو اكرم 

ولما لم تقم انت من البداية برفع ملف توضيحى لما تريد تجنباً لكل هذا ... وتجنباً لإهدار الوقت دون داعى

 

[أ / محمد صالح]

في ١‏/٨‏/٢٠٢١ at 17:07, محمد ابو اكرم said:

شكرا على الاجابة

لقد ذكرت اخفاء واظهار الاعمدة ولم تذكر اخفاء واظهار الصفوف وحددت مدى معين 10 اعمده والمطلوب مدى غير محدد وايضا الصفوف 

يا أخي الكريم

كل هذا افتراض منا لأنك لم ترفع ملفا أو تحدد ما تحتاجه تمام التحديد

من يعرف أساسيات البرمجة ب vba يعرف أنه يمكنك تحديد أي عدد من الأعمدة بكتابته بدلا من 10

ويعرف أيضا أنه لإخفاء الصفوف نغير كلمة columns إلى rows

ويعرف أيضا أن cells تحتاج إلى رقم الصف ثم رقم العمود وتغيير مكان العداد n هو الذي يحدد اتجاه الإخفاء

فلو كانت n في الرقم الثاني قهي تمثل العمود وإذا وضعتها في الرقم الأول فهي تمثل الصف

وهذا الكود ربما يفيدك

Sub hideblank()
For n = 1 To 10
If Cells(1, n) = "" Then Columns(n).Hidden = True
Next n
For n = 1 To 10
If Cells(n, 1) = "" Then Rows(n).Hidden = True
Next n
End Sub
Sub showblank()
Columns("a:j").Hidden = False
Rows("1:10").Hidden = False
End Sub

أرجو أن يكون الأمر قد اتضح

وفي الأخير أرجو من الله أن يتقبل تطوعي هذا في حل مشكلات الآخرين سواء قدروا أو لم يقدروا