فتح وإغلاق الجدول استنادا إلى رقم في خلية

[ibra]

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

أريد المساعدة إن أمكن في فتح وإغلاق الجدول استنادا إلى رقم في الخلية ( G3 )

بحيث يعمل المايكرو تلقائيا بدون زر تشغيل

وشكرا لمساعدكم وجزاكم الله خيرا

تحليل لغة عربية.rar

تم تعديل يناير 8, 2013 بواسطه ibra

[حمادة عمر]

السلام عليكم

الاخ الفاضل / ibra

هل تقصد اغلاق الجدول بمعني اخفاؤه ( وان كان كذلك فما هي الصفوف المراد اخفاؤها هل رأس الجدول واسفله ام الصفوف الداخلية للجدول فقط )

ام انك تقصد غلق الجدول بمعني ( عدم مقدرة الادخال فيه نهائياً )

وما هي القيمة المطلوبة لتنفيذ الامر عندها في الخلية G3 ( ان الشرط هو اذاكانت القيمة صفر / او اذا كانت القيمة اكبر من صفر ) ام ماذا

ليمكن لكل من يستطيع مساعدتك ان يساعدك باذن الله

جزاك الله خيرا

[الـعيدروس]

بعد اذن اخي حماده عمر

حسب فهمي للطلب

حط الكود التالي في حدث الورقة

Private Const Rw As Integer = 7

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$G$3" Then

With Application

.EnableEvents = 0

.ScreenUpdating = 0

.Calculation = xlCalculationManual

Cells.EntireRow.Hidden = 0

Dim i

i = Cells(Rows.Count, 3).End(xlUp).Offset(-3, 0).Row

For R = i To Rw Step -1

If R - 6 = Target.Value Then Exit For

Range("A" & R).EntireRow.EntireRow.Hidden = True

Next

.EnableEvents = 1

.ScreenUpdating = 1

.Calculation = xlCalculationAutomatic

End With

End If

End Sub

[حمادة عمر]

السلام عليكم

الاستاذ القدير المبدع / ALIDROOS ( أبو نصار )

الف تحية وشكر واجلال لكم

ومثلك لايستأذن بل يأمر فأنت استاذنا ومعلمنا

وفكرة الكود رائعة لا تخرج الا من امثالك

وكنت اقوم بعمل كود ولكنه بالنسبة لاعمالكم فهو بدائي من الدرجة الاولي

حفظكم الله لأولادكم ولنا نحن تلاميذك من بعدهم

جزاك الله خيرا

[احمد فضيله]

اخي الحبيب ابو نصار

بارك الله فيك و جزاك كل خير

[ibra]

بعد اذن اخي حماده عمر

حسب فهمي للطلب

حط الكود التالي في حدث الورقة

Private Const Rw As Integer = 7

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$G$3" Then

With Application

.EnableEvents = 0

.ScreenUpdating = 0

.Calculation = xlCalculationManual

Cells.EntireRow.Hidden = 0

Dim i

i = Cells(Rows.Count, 3).End(xlUp).Offset(-3, 0).Row

For R = i To Rw Step -1

If R - 6 = Target.Value Then Exit For

Range("A" & R).EntireRow.EntireRow.Hidden = True

Next

.EnableEvents = 1

.ScreenUpdating = 1

.Calculation = xlCalculationAutomatic

End With

End If

End Sub

أشكرك أخي الكريم هذا هو المطلوب تماما

بارك الله فيكم جميعا وفي جهودكم الطيبة