بخصوص إخفاء السطور

[triste]

أخى الفاضل / محمد حجازى ..

استخدمت الكود التالى ، الذى وجدته لك بردك على أحد الموضوعات و ذلك لإخفاء الصفوف التى لا تحتوى على قيم ، و كان موضع استخدامى له ، هو ميزان المراجعة الذى قمت بوضعه فى أولى مشاركاتى هنا بالمنتدى (قمت بهذا على سبيل التجربة فى النسخة الموجودة لدى و ليس النسخة التى وضعتها هنا) ، و كنت أرغب فى عدم طباعة الصفوف التى يتحقق بها إجتماع شرطين هما (عدم وجود حركة من أى نوع ، و كذلك أن يكون الرصيد صفر) و قد قمت بتجربة هذا فى ورقة العمل الأولى ، بعد تغيير الإسم من sheet1 إلى JANUARY ، و كذلك قمت بتغيير النطاق ليصبح (Range("C5:j65" ، و لكن ظهرت لى رسالة تفيد وجود خطأ ما .

ألتمس مساعدتك أخى الكريم ، علما بأنه و إن كان لى دراية بمعادلات الإكسيل ، فليس لى أى خبرة على الإطلاق بالفيجوال بيزيك و الأكواد ... إلخ ، و أول تعامل لى مع هذه الأمور كان من خلال هذا المنتدى

الكود :

Sub MyPrint()

Application.ScreenUpdating = False

With Sheets("Sheet1")

With .Range("A4:F3249")

.Sort Key1:=.Cells(1, 2), Order1:=xlAscending

For i = 1 To .Rows.Count

If Application.WorksheetFunction.CountIf(.Rows(i), "") >= 6 Then

.Rows(i).Hidden = True

End If

Next i

End With

.PrintOut

.Rows.Hidden = False

End With

Application.ScreenUpdating = True

End Sub

و هذا ما لصقته بعد التعديل ( علماً بأن ما أفعله هو أن أضغط F11 ثم أقوم بعمل PASTE ثم أقوم بالخروج و اختيار الماكرو الذى تكون و أضغط RUN)

Sub MyPrint()

Application.ScreenUpdating = False

With Sheets("JANUARY")

With .Range("C5:J65")

.Sort Key1:=.Cells(1, 2), Order1:=xlAscending

For i = 1 To .Rows.Count

If Application.WorksheetFunction.CountIf(.Rows(i), "") >= 6 Then

.Rows(i).Hidden = True

End If

Next i

End With

.PrintOut

.Rows.Hidden = False

End With

Application.ScreenUpdating = True

End Sub

 

[محمد حجازي]

السلام عليكم ...

طيب أرفق ملف وضع فيه ملاحظاتك لكي أتمكن من تعديله لك .

[triste]

أخى / محمد

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

 أود أن أخبرك أنى - فى عملى - أتعامل مع أكثر من مشروع و لكل منهم حساباته و قوائمه المالية المستقلة ، و لعل هذا الميزان هو أصغر ميزان مراجعة أتعامل معه ،و هو أيضاً المتاح لى إرفاقه لك هنا الآن ، حيث يوجد موازين أخرى عدد الصفوف ال active الموجودة بها أضعاف هذا الميزان مما يجعلنى مضطرا لطباعتها على ورق A3 و بحجم خط صغير جدا إذ أننى أخشى إذا ما قمت بعمل HIDING لهذه الصفوف قبل الطباعة أن أخطئ بشأن أحدها ، بعبارة أخرى أود أن أفهم منك أخى الكريم - كيفية تطبيق القاعدة لتحقيق النتيجة المطلوبة سواء فى هذا الميزان أو غيره (علما بأنها - أى الموازين - و إن إختلفت فى عدد الصفوف فهى متماثلة فى الشكل و المضمون و عدد الأعمدة و منطق المعادلات) ، كما أرجو منك أن تشرح لى كيف يمكننى أن أضع الماكرو بداخل ال work book و كيف أجعله يعمل بالنسبة لجميع ال sheets الموجودة به ، و عددها 13 sheet .

و المطلوب - بعبارة محددة - أخى الفاضل ، أن أى صف تكون القيم الموجودة فى الأعمدة

(E ,F,I,J) جميعها = صفر ، و هذا شرط أساسى (يعنى الحركة المدينة و الحركة الدائنة خلال الشهر ، و الرصيد المدين و الدائن فى نهاية الشهر جميعهم يساووا الصفر) فهذا الصف (بأكمله) لا أريد أن يظهر ضمن الطباعة ، أما باقى الصفوف التى لا يتحق فيها هذا الشرط بالكامل فى الأربعة أعمدة مجتمعة فأريد لها أن تظهر ، (كلمة السر لفك الحماية عن المعادلات هى abunona

 

شاكرا لك اهتمامك و مساهماتك الكريمة

خالص تحياتى ، و بإنتظار ردك

[محمد حجازي]

السلام عليكم ...

هذا الملف معدل كما تريد وذلك بإضافة الشروط التي تريدها .

ويمكنك التعديل على الشروط كما تشاء ، راجع الرابط التالي :

http://www.officena.net/ib/index.php?showtopic=8249

كما يمكنك تعميم الكود ليشمل الورقة النشطة وذلك عن طريق استبدال السطر :

With Sheets("JANUARY")

بالسطر:

With ActiveSheet

ملاحظة : لقد أرفقت كلمة المرور بالكود كما ستلاحظ ، وبالتالي لا داعي لفك حماية الورقة يدوياً.

أما بالنسبة عن تطبيق الكود ، راجع الروابط التالية:

http://www.officena.net/ib/index.php?showtopic=4624

http://www.officena.net/ib/index.php?showtopic=2407

TRIAL_BALANCE_2001.rar

[triste]

أقل كلمة يمكن أن أقولها لك : إنك عبقرى بالفعل ، و فى نفس الوقت كريم الخلق و الخصال ، لأن أمثالك ممن يعرفون العلم و يعلمونه قلائل جدا

بارك الله فيك و أكرمك و أثابك بكل خير يا أخى / محمد .

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

خالص تحياتى و تقديرى و شكرى العميق لك

و اسمح لى أن أرجع لك مرة أخرى فى أى استفسار قد يطرأ :)

تم تعديل يونيو 11, 2005 بواسطه triste