triste قام بنشر يونيو 7, 2005 قام بنشر يونيو 7, 2005 أخى الفاضل / محمد حجازى .. استخدمت الكود التالى ، الذى وجدته لك بردك على أحد الموضوعات و ذلك لإخفاء الصفوف التى لا تحتوى على قيم ، و كان موضع استخدامى له ، هو ميزان المراجعة الذى قمت بوضعه فى أولى مشاركاتى هنا بالمنتدى (قمت بهذا على سبيل التجربة فى النسخة الموجودة لدى و ليس النسخة التى وضعتها هنا) ، و كنت أرغب فى عدم طباعة الصفوف التى يتحقق بها إجتماع شرطين هما (عدم وجود حركة من أى نوع ، و كذلك أن يكون الرصيد صفر) و قد قمت بتجربة هذا فى ورقة العمل الأولى ، بعد تغيير الإسم من 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
محمد حجازي قام بنشر يونيو 8, 2005 قام بنشر يونيو 8, 2005 السلام عليكم ... طيب أرفق ملف وضع فيه ملاحظاتك لكي أتمكن من تعديله لك .
triste قام بنشر يونيو 10, 2005 الكاتب قام بنشر يونيو 10, 2005 أخى / محمد السلام عليكم ورحمة الله وبركاته،، أود أن أخبرك أنى - فى عملى - أتعامل مع أكثر من مشروع و لكل منهم حساباته و قوائمه المالية المستقلة ، و لعل هذا الميزان هو أصغر ميزان مراجعة أتعامل معه ،و هو أيضاً المتاح لى إرفاقه لك هنا الآن ، حيث يوجد موازين أخرى عدد الصفوف ال active الموجودة بها أضعاف هذا الميزان مما يجعلنى مضطرا لطباعتها على ورق A3 و بحجم خط صغير جدا إذ أننى أخشى إذا ما قمت بعمل HIDING لهذه الصفوف قبل الطباعة أن أخطئ بشأن أحدها ، بعبارة أخرى أود أن أفهم منك أخى الكريم - كيفية تطبيق القاعدة لتحقيق النتيجة المطلوبة سواء فى هذا الميزان أو غيره (علما بأنها - أى الموازين - و إن إختلفت فى عدد الصفوف فهى متماثلة فى الشكل و المضمون و عدد الأعمدة و منطق المعادلات) ، كما أرجو منك أن تشرح لى كيف يمكننى أن أضع الماكرو بداخل ال work book و كيف أجعله يعمل بالنسبة لجميع ال sheets الموجودة به ، و عددها 13 sheet . و المطلوب - بعبارة محددة - أخى الفاضل ، أن أى صف تكون القيم الموجودة فى الأعمدة (E ,F,I,J) جميعها = صفر ، و هذا شرط أساسى (يعنى الحركة المدينة و الحركة الدائنة خلال الشهر ، و الرصيد المدين و الدائن فى نهاية الشهر جميعهم يساووا الصفر) فهذا الصف (بأكمله) لا أريد أن يظهر ضمن الطباعة ، أما باقى الصفوف التى لا يتحق فيها هذا الشرط بالكامل فى الأربعة أعمدة مجتمعة فأريد لها أن تظهر ، (كلمة السر لفك الحماية عن المعادلات هى abunona شاكرا لك اهتمامك و مساهماتك الكريمة خالص تحياتى ، و بإنتظار ردك
محمد حجازي قام بنشر يونيو 10, 2005 قام بنشر يونيو 10, 2005 السلام عليكم ... هذا الملف معدل كما تريد وذلك بإضافة الشروط التي تريدها . ويمكنك التعديل على الشروط كما تشاء ، راجع الرابط التالي : 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 قام بنشر يونيو 11, 2005 الكاتب قام بنشر يونيو 11, 2005 (معدل) أقل كلمة يمكن أن أقولها لك : إنك عبقرى بالفعل ، و فى نفس الوقت كريم الخلق و الخصال ، لأن أمثالك ممن يعرفون العلم و يعلمونه قلائل جدا بارك الله فيك و أكرمك و أثابك بكل خير يا أخى / محمد . فقد جربت الملف و هو يعمل بشكل صحيح بنسبة 100% ، أما طبعا عن مسألة أن أفهم كيف فعلت هذا (فلست متأكدا أننى سأستطيع أن أفهم لأنه ليس لدى أوليات الvb ) و ما أدهشنى أن حجم الكود ليس كبيرا ، و هو أيضاً يجعلنى أتطلع لأن أفهم الفيجوال بيزيك يوما ما . خاصة و أنه بالفعل مكمل أساسى لكل ما لا تتيحه الدوال العادية فى الإكسيل. خالص تحياتى و تقديرى و شكرى العميق لك و اسمح لى أن أرجع لك مرة أخرى فى أى استفسار قد يطرأ :) تم تعديل يونيو 11, 2005 بواسطه triste
الردود الموصى بها