triste

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

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

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

أخى الفاضل / محمد حجازى .. استخدمت الكود التالى ، الذى وجدته لك بردك على أحد الموضوعات و ذلك لإخفاء الصفوف التى لا تحتوى على قيم ، و كان موضع استخدامى له ، هو ميزان المراجعة الذى قمت بوضعه فى أولى مشاركاتى هنا بالمنتدى (قمت بهذا على سبيل التجربة فى النسخة الموجودة لدى و ليس النسخة التى وضعتها هنا) ، و كنت أرغب فى عدم طباعة الصفوف التى يتحقق بها إجتماع شرطين هما (عدم وجود حركة من أى نوع ، و كذلك أن يكون الرصيد صفر) و قد قمت بتجربة هذا فى ورقة العمل الأولى ، بعد تغيير الإسم من 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

السلام عليكم و رحمة الله و بركاته أنا عضو جديد معكم بهذا المنتدى الراااااائع بحق ، و الذى اكتشفته بمحض المصادفة ، و التى كانت بالفعل مصادفة سعيدة جدا . حيث أسعدنى ما وجدته من علم غزير لدى الكثير من الأخوة ، و أفدت بالفعل من بعضها (و أخص بالذكر و الشكر الأستاذ / حسام نور ،و الأستاذ /محمد حجازى) ، بارك الله فيكم جميعا لما تتحلون به من العلم النافع و الرغبة الصادقة الحميمة لبذل يد العون و المساعدة لكل من يحتاجها . و قد رأيت أن أضع مساهمة متواضعة منى (رفق موضوعى) عسى أن تحوز رضاكم و إعجابكم . و إن شاء الله أستطيع تقديم المزيد فى هذا المنتدى الجميل . و موضوع مساهمتى هو برنامج - ميزان مراجعة باللغة العربيية حيث يقوم مستخدم البرنامج بما يلى : 1 - إدخال أرقام و أسماء الحسابات فى أوراق العمل (بعد عمل Grouping) لها . 2 - إدخال الأرصدة الإفتتاحية للسنة المالية التى سيعمل بها (و هى الأرصدة الختامية للعام السابق) و ذلك فى خانتى الرصيد الإفتتاحى لورقة عمل شهر يناير. 3 - يتم إدخال الحركة المدينة و / أو الدائنة قرين كل حساب (فى الشهر الجارى الذى تتم الحركة فيه) . 4- يقوم البرنامج بإظهار الفرق الناتج عن إدخال كل حركة فى الجانب الذى تقع فيه الزيادة ، حتى يتم الإنتهاء من إدخال القيد بشكل صحيح وفى هذه الحالة يختفى الفرق و الى يظهر أسفل مجموعى خانة الحركة الشهرية باللون الأحمر . 4-البرنامج يتسع لنحو إدخال 60 حساب ( و قابل للزيادة). 5- يقوم البرنامج بالترصيد مدين / دائن بشكل تلقائى حتى شهر ديسمبر. 6-يقوم البرنامج بتجميع الحركات التى يتم إدخالها على جميع الحسابات أولاً بأول خلال العام ، بحيث يتيح للمستخدم التعرف فى أى وقت على مجموع الحركة المدينة و الدائنة لأى حساب (تجدون هذا فى العمودين باللون الأزرق الفاتح) 7 - ورقة العمل رقم 13 هى مخصصة لإدخال الحركة الخاصة بتصفير حسابات الإيرادات و المصروفات ، للتأكد من إتمام عمل ذلك بشكل صحيح. 8- المعادلات محمية بكلمة سر (حتى لا تتعرض للمسح أو الكتابة عليها بطريق الخطأ) و كلمة السر هى 123 (واحد ثم إثنين ثم ثلاثة) . و أرجو أن يحوز البرنامج على رضاكم . و بإنتظار ردودكم و تعليقاتكم و أى استفسار أنا حاضر. (البرنامج بالمرفقات) تحياتى لكم جميعاً _____________________.zip