Hide Zero Values of Printing

[Eid Mostafa]

_{السلام عليكم ورحمة الله وبركاته}

_{الأخوة الأعزاء}

 

_{بالملف المرفق قمت بإدراج موديول (Printing_Trial_Balance) وذلك لإخفاء الأسطر ذات القيم الصفرية فقط من الطباعة وذلك فى النطاقات المحددة التالية "AE5:AF177" & "AH5:AI177" & "AK5:AL177" & "AN5:AO177"}

 

_{ملحوظة : المطلوب هو إخفاء الأسطر ذات القيم الصفرية فقط وليست الفارغة وعلى أن يكون السطر قيمتة صفر فى جميع النطاقات المذكورة بأعلاة وليس فى نطاق واحد منهم فقط (مثال ذلك سطر رقم 18 ، وسطر 27).}

 

_{وأدرجت بة الكود التالى:-}

 

_{Sub Printing_Trial_Balance()
Dim Cel As Range
MsgBox ("You are now in the process set the page settings for printing")
Application.ScreenUpdating = False
W = ActiveSheet.UsedRange.Rows.Count
On Error Resume Next
Range("AE5:AF177" & "AH5:AI177" & "AK5:AL177" & "AN5:AO177" & W).AutoFilter Field:=1, Criteria1:="<>"
'''''''''''''''''
For Each Cel In Range("AE5:AO177")
    If Cel.Value = "" Then Cel.EntireColumn.Hidden = True
Next
''''''''''''''''
ActiveSheet.PrintPreview
Range("AO:AO").AutoFilter
Range("AE177:AO177").EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub}

 

_{ولكنة أتى بنتيجة غير تلك المرجوة.}

 

_{لذا أرجو منكم التكريم بتصحيح الكود ليأتى بالنتيجة المرجوة.}

 

 

_{خالص شكرى وتقديرى}

 _أخوكم

_{عيد مصطفى}

Hide Zero Values of Printing.rar

[Eid Mostafa]

UP

تم تعديل مارس 9, 2014 بواسطه Eid Mostafa

[أبوعيد]

جرب المرفق

تفضل

Hide Zero1.rar

[Eid Mostafa]

_{السلام عليكم ورحمة الله وبركاته}

 

_{أخى العزيز}

 

_{بداية أشكرك على إهتمامك بالأمر والرد على إستفسارى هذا}

 

_{بعد تجربة الملف لاحظت أن كود الطباعة يقوم بإخفاء الأسطر الفارغة أيضاً وليست ذات القيم الصفرية فقط ، وما أريدة هو إخفاء الأسطر ذات القيم الصفرية فقط مع الإبقاء على الأسطر الفارغة (أى تظهر بالطباعة)}

 

_{كذلك لاحظت أن الأمر يتم تنفيذة على مرحلتان الأولى وهى الطباعة ثم الثانية وهى إرجاع الأسطر التى تم إخفاؤها}

 

_{فهل بالإمكان الإبقاء على الأسطر كما هى وأن يكون التأثير فقط فى معاينة الطباعة (Print Preview) أى أن يقتصر عمل الكود فى مرحلة معاينة الطباعة فقط ودون المساس بالأسطر بعد الرجوع إليها مرة أخرى بعد الطباعة.}

 

_{أكرر لك شكرى مرة أخرى على إهتمامك هذا.}

 

_{خالص شكرى وتقديرى}

 _أخوك

_{عيد مصطفى}

تم تعديل مارس 9, 2014 بواسطه Eid Mostafa

[أبوعيد]

السلام عليكم

أخي العزيز لأني غير متخصص في المحاسبة فقد يخفى علي بعض الأمور فيها

فهمت من شرحك أنك لا تريد إخفاء الأسطر المكتوبة باللوم الأسود

وتريد إخفاء الأسطر المكتوبة باللون الأبيض إذا كانت صفرا

سوالي

هل النطاق الذي تكتب به ثابت ( يعني السطر الأخير هو 177 ) أم أنك يمكن أن تضيف عليه أسطرا جديدة حسب الحاجة ؟

خطوة خطوة وإن شاء الله نصل إلى  المطلوب

تفضل

Hide Zero2.rar

[Eid Mostafa]

_{السلام عليكم ورحمة الله وبركاته}

_{أخى العزيز / أبو عيد}

 

_{بداية أعتذر لك عن تأخرى فى الرد ولكن ذلك راجع لإنقطاع الإنترنت بالأمس ربما للظروف الجوية}

 

_{علماً بأنى كنت بصدد الإطلاع على ردك القيم هذا حينها.}

 

_{أخى العزيز كود الطباعة بردكم الأخير هذا أتى بالنتيجة التى كنت أرغب بها تماماً.}

 

_{لذا تقبل خالص شكرى وتقديرى لك مرة على إهتمامك بتعديل الكود بهذا الشكل الإحترافى ، والمرة الأخرى على إستيعابك للموضوع رغم عدم كونك غير متخصص بالمحاسبة وهذا مجهود أحييك علية.}

 

_{ورداً على إستفسارك بشأن ثبات النطاق من عدمه فأجيبك بأنه بالفعل قد يطرأ عليه تعديل سواء بالزيادة أو النقصان حسبما تقتضى الحاجة (مثال : إضافة حسابات جديدة أو حذف بعض الحسابات التى لم يعد هنالك حاجة لها).}

 

_{خالص شكرى وتقديرى على مجهودك الرائع هذا.}

 

 _أخوك

_{عيد مصطفى}

تم تعديل مارس 10, 2014 بواسطه Eid Mostafa