مطلوب اخفاء الاعمدة التى اجمالى مدى معين بها يساوى صفر

[hsa100]

السلام عليكم

مطلوب اخفاء الاعمدة التى اجمالى مدى معين بها يساوى صفر

واشكر لكم اهتمامكم

hide column1.rar

[قطان]

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

أخي الحبيب

المطلوب بالمرفق

والسلام ختام

hide column1.rar

[ابو اسامة العينبوسي]

السلام عليكم

اخى قطان اسمح لى بهذا الكود

Sub Oval1_Click()

If Sheets(1).Shapes("Oval 1").TextFrame.Characters.Text = "ÇÎÝÇÁ ÇáÇÚãÏÉ" Then

Sheets(1).Shapes("Oval 1").TextFrame.Characters.Text = "ÇÙåÇÑ ÇáÇÚãÏÉ"

For i = 2 To 12

   If Cells(11, i) = 0 Then

   Columns(i).Hidden = True

   Sheets(1).Shapes("Oval 1").TextFrame.Characters.Text = "ÇÙåÇÑ ÇáÇÚãÏÉ"

   End If

Next

Else

ActiveSheet.Columns.Hidden = False

Sheets(1).Shapes("Oval 1").TextFrame.Characters.Text = "ÇÎÝÇÁ ÇáÇÚãÏÉ"

End If

End Sub

hide column2.rar

[hsa100]

اخوانى الكرام

قطان

ابو اسامة العينبوسي

اشكر لكم سرعة اهتمامكم

اخى الكريم ابو اسامة العينبوسي

عمل ممتاز وفكرة الاظهار والاخفاء ممتازة

واسمح لى بان اقوم بتعديل الكود لكى احافظ على استمرار ظهور العمود G فى حالة الاخفاء.

وشكرا لكما مرة اخرى.

تم تعديل أكتوبر 24, 2009 بواسطه hsa100

[قطان]

السلام عليكم

أخي أبو اسامة

اسمح لي أن أنحني أمام كمال الأفكار

فعلا أنا قمت بحل مشكلة اخفاء الأعمدة لكني نسيت الحاجة لإظهارها

فعلا استاذ وأهل المثل قالوا المالو كبير يشتري كبير

فلا غنى عن خبرائنا

والسلام ختام

[احمد السيد سليمان]

هل يمكن تطوير كود الاستاذ اسامة ليشمل كل من الاعمدة والصفوف التى اجمالى قيمتها تساوى صفر

تم تعديل أكتوبر 26, 2009 بواسطه hofn

[ابو اسامة العينبوسي]

السلام عليكم

ممكن

For i = 2 To 10

   x = Application.WorksheetFunction.Sum(Worksheets(1).Range(Cells(i, 2), Cells(i, 11)))

      If x = 0 Then Rows(i).Hidden = True

Next

hide column3.rar

تم تعديل أكتوبر 26, 2009 بواسطه ابو اسامة العينبوسي

[ابو اسامة العينبوسي]

السلام عليكم

لقد عدلت على الملف الاول

For i = 2 To 10

   x = Application.WorksheetFunction.Sum(Worksheets(1).Range(Cells(i, 2), Cells(i, 11)))

      If x = 0 Then Rows(i).Hidden = True

Next

[احمد السيد سليمان]

شكرا للاستاذ اسامة على مجهوداته

ولكن كيف يمكن تعديل الكود ليشمل مدى اكبر من الصفوف والاعمدة

او بمعنى اخر كيف يعمل الكود فى حالة ادراج صفوف واعمدة جديدة