abouelhassan قام بنشر ديسمبر 12, 2011 قام بنشر ديسمبر 12, 2011 السلام عليكم ورحمة الله اخوانى الاساتذة بحاجة لكود بقائمة منسدلة اختار منه الشهر فيتم اظهار عمود الشهر واخفاء باقى الاشهر فقط مرفق لحضرتكم ملف الاعمدة المظللة بالرمادى هى ما اريد تطبيق الكود عليها اما باقى الاعمدة فهى لا ينطبق عليها التصفية وتظل ظاهرة فى كل الاحوال احترامى وخالص الدعاء تقرير.rar
عبدالله المجرب قام بنشر ديسمبر 12, 2011 قام بنشر ديسمبر 12, 2011 السلام عليكم Sub Abu_Ahmed_Show() Application.ScreenUpdating = False Dim cl As Range Range("B1:M1").EntireColumn.Hidden = True Set mytrng = Range("Abu_Alhassn") For Each cl In mytrng If cl.Value = [R2].Value Then x = cl.Column: Exit For Next Cells(1, x).EntireColumn.Hidden = False End Sub جرب المرفق تقرير (1).rar
abouelhassan قام بنشر ديسمبر 12, 2011 الكاتب قام بنشر ديسمبر 12, 2011 الله الله الله والله بحبك فى الله استاذنا بس ممكن بعد اذنك تعديل بسيط لو احتجت ان اظهر الكل ولو امكن يعمل الكود على طول بدون الزر فقط القائمة اختارمنها فيتم التنفيذ الله يبارك فيك احترام وتقدير من كل قلبى
عبدالله المجرب قام بنشر ديسمبر 12, 2011 قام بنشر ديسمبر 12, 2011 السلام عليكم لتنفيذ الكود بعد الاختيار ضع هذا الكود في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Not Intersect(Target, Range("R2")) Is Nothing Then Dim cl As Range Range("B1:M1").EntireColumn.Hidden = True Set mytrng = Range("Abu_Alhassn") For Each cl In mytrng If cl.Value = Target.Value Then x = cl.Column: Exit For Next Cells(1, x).EntireColumn.Hidden = False End If Application.ScreenUpdating = True End Sub اما بخصوص الاظهار فبامكانك عمل هذا يدوياً عن طريق اختيار (تضليل من الاعلى ) للاعمدة ثم تختار اظهار ام تريدها في زر امر
محمد يحياوي قام بنشر ديسمبر 12, 2011 قام بنشر ديسمبر 12, 2011 اخي الحبيب ابو احمد حل جميل الاخ ابو الحسن اذا كنت تريد اظهار جميع الاعمدة عليك اولا اضافة الكود التالي في اول الكود لاخي ابو احمد On Error Resume Next ثم اضافة الكود التالي في اخر الكود ثم افراغ الخلية R2 If [R2].Value = "" Then Range("B1:M1").EntireColumn.Hidden = False End If
abouelhassan قام بنشر ديسمبر 12, 2011 الكاتب قام بنشر ديسمبر 12, 2011 (معدل) استاذ عبدالله المجرب ابا احمد فضلك الله على العباد وزادك كرما استاذ يحياوى احترام وتقدير بارك الله فيك احترام وتقدير من كل قلبى لكما اساتذتى تم تعديل ديسمبر 12, 2011 بواسطه abouelhssan
نضال321 قام بنشر نوفمبر 5, 2012 قام بنشر نوفمبر 5, 2012 مشكووووووووووووووووووور لصاحب هذا الموضوع وردود الاخوة مدير الموقع والمشرف
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.