عدم أظهار الصفوف التي لاتوجد عليها حركة ( مبالغ بالأعمده c,d,e,f,..........

[رعد داود]

بسم الله الرحمن الرحيم

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

أرفق ملف وأريد عدم ظهور الحسابات التي لاتوجد فيها أرقام مدينه او دائنه في الأعمده

c,d,e,f .....

وذلك لعمل ميزان مراجعة للحسابات التي تطرأ عليها متغيرات بمرور الوقت بحسب القيود اليوميه

يومية.rar

[أبو حنــــين]

هل تقصد الصفوف او الاعمدة ؟

هذه المحاولة لاخفاء الصفوف الفارغة

الزر الاول يخفي الصفوف C و D عندما تكون فارغة

الزر الثاني يخفي الصفوف C أو D عندما تكون فارغة

الزر الثالث يرجع الصفوف مرئية

يومية1.rar

[رعد داود]

اشكرك أخي ابو حنين على الرد

الحاله الأولى هي التي تفيدني ولكن كيف يتم توسيع المدى ليتعدى الى العمود

k

مثلا" وتحديد الطباعه للحسابات التي عليها الحركات الفعليه

[أبو حنــــين]

غير الكود الموجود في الحالة الاولى بالكود التالي

Private Sub CommandButton1_Click()

With Application

.ScreenUpdating = False

    .EnableEvents = False

   For s = 1 To 400

   For t = 1 To 9

	 If Cells(s + 1, t + 2).Value = 0 And Cells(s + 1, 4).Value = 0 Then

	    Cells(s + 1, t + 2).EntireRow.Hidden = True

		    Else

		 Cells(s + 1, t + 2).EntireRow.Hidden = False

	   End If

	 Next

	 Next

   .ScreenUpdating = True

.EnableEvents = True

End With

End Sub

[أبو حنــــين]

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

[رعد داود]

اشكرك أخي ابو حنين ,,, لأضافة مجالات اخرى

If Cells(s + 1, 3).Value = 0 And Cells(s + 1, 4).Value = 0 And Cells(s + 1, 5).Value = 0 And Cells(s + 1, 6).Value = 0 And Cells(s + 1, 7).Value = 0 And Cells(s + 1, 8).Value = 0 Then

ولدي السؤال الأهم وجزاكم الله خير الجزاء وهو كيف ان نضيف لكود ترحيل البيانات من ورقة مثلا" الى ورقة الديلي ويقوم بعمل ترحيل تلقائي بحسب الحسابات في ورقة اكوانت

[أبو حنــــين]

لم افهم

هل تريد إضافة ورقة جديدة تكتب فيها البيانات ثم ترحل الى ورقة dailyd1ary

[رعد داود]

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

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

account

او نسميها ميزان المراجعه ,,, فالملاحظ في كود اخفاء الصفوف هو عمل تصفيه وهو بطئ وبالامكان عمل ذلك من خلال التصفيه التلقائيه والأمر الاخر هو طباعة هذه الورقه

[رعد داود]

للرفع

[بن علية حاجي]

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

أخي الكريم، هذا حل آخر باستعمال كود بسيط وُضع في كود حدث الورقة Accounts أي أنه يعمل تلقائيا بمجرد القيام بتغييرات على الملف أو حتى التنقل داخل الملف ودائما يقوم بالتحديث يقوم بإظهار كل الصفوف المخفية ثم يعيد مباشرة بإخفاء الصفوف التي ليست بها حركة....

والكود هو كما يلي:

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

    Application.ScreenUpdating = False

	    Cells.EntireRow.Hidden = False

	    For Each cell In [Plage]

		    If cell + cell.Offset(0, 1) = 0 Then cell.EntireRow.Hidden = True

	    Next

    Application.ScreenUpdating = True

End Sub

أخوك بن علية

وفي الملف المرفق تجد ملفين واحد لإكسيل 2003 والآخر للإصدارات التي بعده....

يومية.rar

[رعد داود]

الشكر لكم استاذي بن عليه ارجو توضيح معني هذا الكود وهو لايعمل عندي من نسخته لملفي

For Each cell In [Plage]

على كل حال ارفق لكم ملف يوضح المطلوب بصورة اوسع عن الملف السابق

وارجو المعذره للاطاله وتغيير الاسماء فالفكرة الاساس عمل ميزان مراجعه في ورقة account

وهنا البيانات من ورقة yaomea

365يومية.rar

[رعد داود]

الكود لايعمل معي عند نسخه ويظهر الخطأ عند الكود اعلاه

استاذي الكريم بن عليه مشكور لو تتفضل علينا

[أبو حنــــين]

ربما انك لم تحدد المجال :

من القائمة : إدراج -------> ثم الاسم --------> تعريف

و تكتب الكلمة : Plage

ثم تذهي الى الاسفل تجد : يشير الى

انسخ الدالة التالية هناك

=OFFSET(accounts!$C$2;;;COUNTA(accounts!$C:$C)-1)

[رعد داود]

شكرا على التوضيح من اي قائمه اخي ابو حنين انا أعمل على اوفس 2007

[رعد داود]

للرفع

[أبو حنــــين]

انا عندي 2003

وبالنسبة لـ 2003 نذهب الى الشريط الدي يحتوي على القوائم مثل : ملف ـ تحرير ـ عرض ـ ادراج .............

نختار كلمة ادراج ثم تكمل كما اسلفت لك الذكر

اما 2007 فالله اعلم

[رعد داود]

اخي واستاذي ابو حنين شكرا لمروركم

في ال2007 توجد قائمة insert

ولكن لاتحتوي الذي تفضلت به انا فقط اريد كيف اختار المدى وهل هو في ورقة acconts

[بن علية حاجي]

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

أخي الكريم، لإضافة نطاق مسمى في إكسيل 2007 أو 2010 نختار القائمة Formulas ثم من Names Manager نختار Define Name ونتبع الخطوات الموالية (اختيار الاسم، إدراج النطاق أو معادلة النطاق وغيرها)... راقب الرابط التالي لعله يفيدك في المطلوب http://www.myonlinetraininghub.com/excel-2007-named-ranges-explained ... والنطاق المختار يكون من ورقة Accounts...

قبل إنشاء الكود في حدث هذه الورقة يستحسن وضع كل معادلات الترحيل في ورقة Accounts لئلا يقوم الكود بإخفاء كل الصفوف ولا يمكنك إظهارها إلا بعد تعطيل... يمكن وضع الكود في Module وإنشاء زر لتنفيذ الكود وهذا يسمح لك بالتحكم في إظهار وإخفاء الصفوف التي ليست فيها حركة...

أرجو أني وفقت في الشرح ومعذرة على التأخر في الإجابة لخلل في النت عندي...

أخوك بن علية

[رعد داود]

الشكر وكل الشكر لكم اخي الفاضل وعذركم مقبول وقد التمسنا لكم عذرا" قبل ان تجاوبوا

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

والتجميع بالدالة sumif