اذهب الي المحتوي
أوفيسنا

كود طباعة


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

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

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

مع شكري لكم

رابط هذا التعليق
شارك

دعنا نفترض 

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

وعدد الاعمدة 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

بالتوفيق 

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

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

  • Haha 1
رابط هذا التعليق
شارك

  • أفضل إجابة
في ١‏/٨‏/٢٠٢١ 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

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information