طريقة اخفاء صفوف عند الطباعة بناء علي قيمة خلية

[ايهاب الغريب]

الاخوة الافاضل بعد السلام عليكم ورحمة الله وبركاته

اريد تطبيق حدث الخلية رقم (D25 ) في المثال ( اخفاء صفوف معينة عند الطباعة ) علي الخلايا :-

D14

D16

D18

D20

D22

D24

D26

D28

D30

D32

D34

D36

D38

D40

D42

D44

D46

D48

في ورقة كيميا في الملف 1

وهو اخفاء الصفين الذي يحتوي علي الخليه اذا كانت قيمتها = صفر او خالية تماما من اي قيمة والصف الاعلي منه

ولو في الامكان تعليمي كيف تكون الطريقة اكون شاكر كل الشكر

اخفاء صفوف معينة عند الطباعة.rar

1.rar

[الـعيدروس]

السلام عليكم

شرح الملف عكس طرحك

جرب هذا الكود

Option Explicit

Option Base 1

Private Const Ali As String = "D24:D25"

Private Const A_1 As String = "D31:D37"

Sub test()

On Error Resume Next

Dim M As Range, M_1 As Range

Set M = Range(Ali): Set M_1 = Range(A_1)

If [D25] = "" Or [D39] = "" And [D41] = "" And [D43] = "" And [D45] = "" Then

ALI_HID_C ورقة10, Union(M, M_1)

End If

End Sub

Sub ALI_HID_C(ALI_SH As Worksheet, SH_A As Range)

    Dim F_ALI() As Variant

    Dim Cell As Range

    Dim I As Integer

With Application

    .ScreenUpdating = False

    .EnableEvents = False

    ReDim Preserve F_ALI(SH_A.Cells.Count)

    For Each Cell In SH_A

	    I = I + 1

	    F_ALI(I) = Cell.Rows

    Next Cell

	    SH_A.Rows.Hidden = True

	    .ScreenUpdating = True

	    ورقة10.PrintPreview

	    .ScreenUpdating = False

	    I = 0

    For Each Cell In SH_A

	    I = I + 1

	    Cell.Rows.Hidden = False

    Next Cell

    .ScreenUpdating = True

    .EnableEvents = True

End With

End Sub

[ايهاب الغريب]

استاذ عباد

تمت تجربة الكود ولم يحدث اي تغيرات

لو ممكن تطبقه علي المرفق ولك كل الشكر

تم تعديل أكتوبر 11, 2012 بواسطه ايهاب الغريب

[الـعيدروس]

استبدل السطر الثاني بهذا

هذا المدى حسب طلبك

Private Const A_1 As String = "D39:D45"

[أبو حنــــين]

حسب فهمي لما هو موجود في الملف و بعد اذن اخواني الاساتذة

جرب هذا الكود

Private Sub CommandButton1_Click()

If Range("D25") = 0 Or Range("D25") = Empty Then

Rows("24:25").Hidden = True

	 Else

Rows("24:25").Hidden = False

End If

'*************************************************************************************

If Range("D31") = 0 Or Range("D33") = 0 Or Range("D35") = 0 Or Range("D37") = 0 Then

Rows("31:37").Hidden = True

	 Else

Rows("31:37").Hidden = False

End If

Activewindow.SelectedSheets.PrintPreview

End Sub

[ايهاب الغريب]

يا اخونا الافاضل

لا يوجد ولا كود منهم يعمل المطلوب

وربما يكون هذا عيب مني شخصيا في التطبيق

فرجاء منكم ان تجربوه اولا حتي تعم الفائدة

وجزاكم الله خيرا

[أبو حنــــين]

الملف يعمل عندي بشكل طبيعي مثل ما ذكرت من شروط

جرب المرفق

Book1.rar

[ايهاب الغريب]

استاذ ابوحنين

ليس هذا هو المرفق المطلوب التعديل عليه

وايضا ليست هذة هي الطريقة المطلوبة

ولكن المطلوب هو

اذا كانت قيمة الخلية = صفر او خالية من اي قيمة يتم حذف الصفين المحتوي علي هذة الخلية والصف اللي فوقية فقط

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

شكرا لك

المرفق المطلوب التعديل عليه

1.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، في الملف المرفق تجد الكود الذي يجيب على مطلوبك مطبق على الورقة "كيميا" يقوم بإخفاء صفين (الصف والصف الذي تحته وليس الذي فوقه وقد تم إضافة الصف 49 بارتفاع صغير) من السطر 14 إلى السطر 49 حسب مضمون خلايا العمود D في الصفوف الزوجية من 14 إلى 49 (أي الصفوف 14، 16، 18، 20، ...) ويقوم بطباعة الورقة بعد إخفاء الصفوف حسب الشروط المطلوبة ثم يعيد إظهار كل الصفوف التي تم إخفاؤها من الصف 14 إلى الصف 49... أرجو أن يكون هذا المطلوب أو جزء منه...

أخوك بن علية

1.rar

تم تعديل أكتوبر 12, 2012 بواسطه بن علية حاجي

[ايهاب الغريب]

وعليكم السلام ورحمة الله وبركاته ( أخي بن علية )

اولا تسلم ايدك ولكن

الكود يعمل علي كل خلية علي حدة بمعني لوحزفت خليتين او اكثر لشخص واحد فيطبع نسخ بعدد الخلايا المحزوفة مع العلم انه مطلوب طباعة تقرير واحد بدون الصفوف المحزوفة وان كانت كلها محزوفة فليطبع ورقة واحدة ايضا

اخيرا شكرا لك

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، أعتذر لك على هذا الخطأ في الكود، لم أنتبه أني وضعت أمري الطباعة وإعادة إظهار الصفوف المخفية بين أمري FOR و NEXT لذا يقوم الكود بطباعة التقرير عدة مرات حسب عدد الصفوف التي تحقق الشروط المطلوبة في النطاق D14:D49 (الصفوف التي أرقامها زوجية)... وبالتالي قمت بتعديل الكود بوضع أمري الطباعة وإعادة إظهار الصفوف المخفية بعد الانتهاء من عملية إخفاء كل الصفوف في النطاق السابق بالشروط المطلوبة... أرجو هذه المرة أني قد وفقت في المطلوب...

أخوك بن علية

1.rar

تم تعديل أكتوبر 12, 2012 بواسطه بن علية حاجي

[ايهاب الغريب]

السلام عليكم ورحمة الله

أخي الكريم انت رائع

لي طلب اخير ان شاء الله ان يتم هذا الحدث بدون زرار للطباعة وبدون اي ازرار

يعني بمجرد الطباعة من الملف العادي يتم تفعيل الكود

جزاكم الله خيرا ولك كل الشكر

[محمد بن بشير]

شيء مفيد 

خاصة عند طباعة تقرير و به فراغات تملأ أحيانا فتطبع و عند عدم الحاجة إليها تنسق الورقة لطباعتها بالشكل المطلوب

 

 

شكرا لمجهوداتكم