فتحى ابوالفضل قام بنشر مارس 31, 2021 مشاركة قام بنشر مارس 31, 2021 السلام عليكم ورحمة الله و بركاتة كل عام و حضراتكم بخير مرفق ورقة اكسل عند طباعتها الاعمدة تملئ الورقة و هو المطلوب و عند حذف الاعمدة من العمود L الى العمود Q يكون مكانهم فارغ عند الطباعة ارغب في كود يقوم بتوسعة الاعمدة المتبقية من B إلى K تلقائياً بحيث تكون الورقة كاملة ممتلئة بالاعمدة الباقية ولا يوجد فراغ ابيض عند الطباعة المصنف1.xlsb رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أبريل 1, 2021 أفضل إجابة مشاركة قام بنشر أبريل 1, 2021 جرب هذا الملف Option Explicit Sub Show_hide() Dim S As Worksheet Dim i%, Ro% Set S = Sheets("Salim") With S Ro = .Cells(Rows.Count, 1).End(3).Row .Range("B1").Resize(, 17) _ .EntireColumn.Hidden = False For i = 2 To 16 Step 2 If .Cells(3, i) = vbNullString Then .Cells(3, i).Resize(, 2) _ .EntireColumn.Hidden = True End If Next .PageSetup.PrintArea = _ .Range("A2").Resize(Ro-1, 17).Address .PrintPreview End With End Sub '+++++++++++++++++++++++++++++++++++++++++++++ Sub show_Al_Col() Sheets("Salim").Range("B:Q").EntireColumn.Hidden = False End Sub الملف مرفق Fathi.xlsm 2 رابط هذا التعليق شارك More sharing options...
فتحى ابوالفضل قام بنشر أبريل 8, 2021 الكاتب مشاركة قام بنشر أبريل 8, 2021 الأخ الفاضل / سليم حاصبيا اولاً اعتذر عن التأخير في الرد لظروف خاصة ثانياً دائماً متميز و مبدع بأعمالك ثالثاًً كود جميل جدا و اقدر تعبك حضرتك فيه ولكن لي طلب اراه بسيط عند حضرتك عند اخفاء الاعمدة الفارغة و طباعة المستند يكون هناك فراغ ابيض عند الطباعة كالورقة المرفقة رقم 1 و المطلوب عند الاخفاء الاعمدة الفارغة يتسع عرض الاعمدة الممتلئة لتملئ الورقة كالمرفق 2 و جزاك الله خيرا 1.pdf 2.pdf رابط هذا التعليق شارك More sharing options...
فتحى ابوالفضل قام بنشر أبريل 15, 2021 الكاتب مشاركة قام بنشر أبريل 15, 2021 up رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.