ibra قام بنشر يناير 8, 2013 مشاركة قام بنشر يناير 8, 2013 (معدل) السلام عليكم ورحمة الله وبركاته أريد المساعدة إن أمكن في فتح وإغلاق الجدول استنادا إلى رقم في الخلية ( G3 ) بحيث يعمل المايكرو تلقائيا بدون زر تشغيل وشكرا لمساعدكم وجزاكم الله خيرا تحليل لغة عربية.rar تم تعديل يناير 8, 2013 بواسطه ibra رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 8, 2013 مشاركة قام بنشر يناير 8, 2013 السلام عليكم الاخ الفاضل / ibra هل تقصد اغلاق الجدول بمعني اخفاؤه ( وان كان كذلك فما هي الصفوف المراد اخفاؤها هل رأس الجدول واسفله ام الصفوف الداخلية للجدول فقط ) ام انك تقصد غلق الجدول بمعني ( عدم مقدرة الادخال فيه نهائياً ) وما هي القيمة المطلوبة لتنفيذ الامر عندها في الخلية G3 ( ان الشرط هو اذاكانت القيمة صفر / او اذا كانت القيمة اكبر من صفر ) ام ماذا ليمكن لكل من يستطيع مساعدتك ان يساعدك باذن الله جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 8, 2013 مشاركة قام بنشر يناير 8, 2013 بعد اذن اخي حماده عمر حسب فهمي للطلب حط الكود التالي في حدث الورقة 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 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 8, 2013 مشاركة قام بنشر يناير 8, 2013 السلام عليكم الاستاذ القدير المبدع / ALIDROOS ( أبو نصار ) الف تحية وشكر واجلال لكم ومثلك لايستأذن بل يأمر فأنت استاذنا ومعلمنا وفكرة الكود رائعة لا تخرج الا من امثالك وكنت اقوم بعمل كود ولكنه بالنسبة لاعمالكم فهو بدائي من الدرجة الاولي حفظكم الله لأولادكم ولنا نحن تلاميذك من بعدهم جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر يناير 8, 2013 مشاركة قام بنشر يناير 8, 2013 اخي الحبيب ابو نصار بارك الله فيك و جزاك كل خير رابط هذا التعليق شارك More sharing options...
ibra قام بنشر يناير 8, 2013 الكاتب مشاركة قام بنشر يناير 8, 2013 بعد اذن اخي حماده عمر حسب فهمي للطلب حط الكود التالي في حدث الورقة 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 أشكرك أخي الكريم هذا هو المطلوب تماما بارك الله فيكم جميعا وفي جهودكم الطيبة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.