أكاديمية الصقر للتدريب
FBConnect

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .

Preview




طلب كود لاخفاء خلايا فارغة عند الطباعة و اضهارها بعد الانتهاء

السلام على جميع الاخوة الافاضل اما بعد اريد في الملف المرفق عمل زر طباعة في الفورم تقوم بخفاء خلايا فارغة محددة ثم الطبا ..



05-09-2017 09:13 مساء
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 136
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 5
قوة السمعة : 503
الاعجاب : 0
 offline 
السلام على جميع الاخوة الافاضل اما بعد
اريد في الملف المرفق عمل زر طباعة في الفورم تقوم بخفاء خلايا فارغة محددة ثم الطباعة و بعد النتهاء من الطباعة تظهر مجددا ...ولكم مني جزيل الشكر لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  اخفاء خلايا عند الطباعة.rar   تحميل rar مرات التحميل :(15)
الحجم :(16.179) KB





05-09-2017 09:27 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif طلب كود لاخفاء خلايا فارغة عند الطباعة و اضهارها بعد الانتهاء
وعليكم السلام أخي الكريم زياد
جرب الكود التالي عله يفي بالغرض
Private Sub CommandButton1_Click()
    With Sheets("Feuil1")
        .Rows("5:7").Hidden = True
        .PrintOut
        .Rows("5:7").Hidden = False
    End With
End Sub




05-09-2017 10:51 مساء
مشاهدة مشاركة منفردة [2]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 136
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 5
قوة السمعة : 503
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب كود لاخفاء خلايا فارغة عند الطباعة و اضهارها بعد الانتهاء
شكرا استاذ ياسر الكود جيد ولكن لا يقوم بالمطلوب بالضبط حيث اريد اخفاء الخلايا من a3:c7 اذا كانت فارغة فقط اما اذا كانت فيها قيمة تبقى ظاهرة عند الطباعة وشكرا




06-09-2017 12:53 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif طلب كود لاخفاء خلايا فارغة عند الطباعة و اضهارها بعد الانتهاء
إذاً لابد من عمل حلقة تكرارية للنطاق .. إن شاء الله أحاول غداً التعديل على الكود لأن الوقت متأخر




06-09-2017 08:07 مساء
مشاهدة مشاركة منفردة [4]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 136
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 5
قوة السمعة : 503
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب كود لاخفاء خلايا فارغة عند الطباعة و اضهارها بعد الانتهاء
شكرا لك استاذ ياسر على تجاوبك مع الموضوع لقد بحثت و توصلت الى حل من خلال الكود التالي
Private Sub CommandButton1_Click()
With Sheets("Feuil1")
Dim cel As Range
For Each cel In Range("A3:b7")
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next
End With
  Sheets("Feuil1").Range("a1:m8").PrintOut
For Each cel In Range("A3:b7")
If cel = "" Then
cel.EntireRow.Hidden = False
End If
Next
End Sub




06-09-2017 08:44 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif طلب كود لاخفاء خلايا فارغة عند الطباعة و اضهارها بعد الانتهاء
تمام الله ينور أخي العزيز زياد
شيء جميل أن تتوصل للحل بنفسك .. هذا يعطيك فرحة أكثر بالحل وإن شاء الله بالتدريب ستجد مثل هذه الأكواد سهلة ويسيرة بالنسبة لك






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر jjebril
16 1737 YasserKhalil

الكلمات الدلالية
لاخفاء ، خلايا ، فارغة ، الطباعة ، اضهارها ، الانتهاء ،


 








اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:52 مساء

أعلن هنا
أعلن هنا
أعلن هنا