بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'كود اخفاء صف و عمود عند الطباعه'.
تم العثور علي 1 نتيجه
-
تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة اخفاء تلقائي للصفوف تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف إخفاء الصفوف والأعمدة الفارغة عند الطباعة فقط وبعد الطباعة يعود الوضع لما كان عليه HIDE_UNHIDE_EMPTY_ROWS_AND_COLUMNS_IF_PRINT.rar اخفاء الصفوف والأعمدة الفارغة HIDE_UNHIDE_EMPTY_ROWS_AND_COLUMNS.rar مشاركة اخرى من الفاضل أ / عادل حنفي الكود الذي به هو Private Sub CommandButton1_Click() With Sheets("Sheet1") With .UsedRange For i = 3 To 41 If .Cells(i, 8).Value <= "0" Then .Cells(i, 8).EntireRow.Hidden = True End If Next i End With End With End Sub و هذا الكود يعني انه بالورقة التي تسمي شيت1 بالصفوف من الصف الثالث و حتي الواحد والاربعون اذا كانت الخليه التي احداثيها الصف 3 العمود 8 او الصف الرابع العمود 8 وهكذا قيمتها اصغر من او تساوي صفر اذا تحقق هذا الشرط اخفاء الصف الذي به هذا الشرط محقق وهكذا لاخر صف وهو صف 41 مرفق الملف hide.rar و لا تنسونا من صالح الدعاء تحياتى