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

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

قام بنشر

أولا شاكر ليك لاهتمامك بالموضوع

ثانيا سيدي الفاضل

المطلوب الاول لم يتم انجازه كما اريد

فانا اشير لخلية النتيجة أي نتيجة التحليل وان لم يكن بها رقم فلا داعي لان يظهر التحليل كاملا في التقرير هذا ما وددت ان الفت انتباهك له

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

واخيرا شاكر لك كل الشكر

قام بنشر

السلام عليكم

===========

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

فى حالة تححق كل الشروط مجتمعة او منفردة

وللتحقق من طواعية الكود اختر اى حالة مما ذكرت

ثم اضغط ctrl+p وراقب ما يحدث ستجد بمجرد الضغط علىctrl+p

ان الصفوف المطلوبة اختفت ثم اكمل طباعتك

Private Sub Workbook_BeforePrint(Cancel As Boolean)


    Select Case Worksheets("كيما").Range("D25").Text

    Case "", "0.0"

        Worksheets("كيما").Rows("24:25").EntireRow.Hidden = True

    End Select

Select Case Worksheets("كيما").Range("D31").Text

    Case "", "0"

        Worksheets("كيما").Rows("39:45").EntireRow.Hidden = True

    End Select

Select Case Worksheets("كيما").Range("D33").Text

    Case "", "0"

        Worksheets("كيما").Rows("39:45").EntireRow.Hidden = True

    End Select

    Select Case Worksheets("كيما").Range("D35").Text

    Case "", "0"

        Worksheets("كيما").Rows("39:45").EntireRow.Hidden = True

    End Select

    Select Case Worksheets("كيما").Range("D37").Text

    Case "", "0"

        Worksheets("كيما").Rows("39:45").EntireRow.Hidden = True

    End Select

End Sub

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

قام بنشر

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

وأخص بالشكر استاذي الفاضل استاذ هشام علي مجهودة الرائع وللعلم بالشئ ليس اكثر فانا غير متخصص

في الاكسل ولكني من عشاقة ومحبين لحركاتة

وأخيرا أسأل الله ان يجمعنا علي محبتة وفي صحبة الحبيب صلي الله علية وسلم

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