ايمن ريا قام بنشر مارس 31, 2013 مشاركة قام بنشر مارس 31, 2013 السلام عليكم ورحمة الله وبركاته الأخوة الأفاضل : برجاء التكرم بالاطلاع على المرفق والمساعدة فيه قدر الإمكان ، ولكم كل الشكر والتقدير . Hide Column.rar رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر مارس 31, 2013 مشاركة قام بنشر مارس 31, 2013 السلام عليكم كمحاولة ممكن ان تستبدله بهذا الكود (لكن مشكله عدم التراجع ما زالت قائمة) Private Sub Worksheet_Activate() On Error Resume Next If Range("k1").Value > 0 Then Columns("E").Hidden = False Else Columns("E").Hidden = True End If End Sub تحياتي رابط هذا التعليق شارك More sharing options...
ايمن ريا قام بنشر مارس 31, 2013 الكاتب مشاركة قام بنشر مارس 31, 2013 شكراً أخي الكريم / أحمد ، هذا ما أردت ، وكل الأمل فى الوصول لحل مشكلة عدم التراجع . رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 31, 2013 مشاركة قام بنشر مارس 31, 2013 السلام عليكم الشكر واصل لاخي احمد حفظه الله بهذا الكود تقريب لن تلاحظ اي اهتزاز Private Sub Worksheet_Calculate() On Error Resume Next If Range("k1").Value = 0 Then Columns("E").EntireColumn.Hidden = True Else Columns("E").EntireColumn.Hidden = False End If On Error GoTo 0 End Sub اما مشكلة عدم التراجع سببها تنفيذ الكود تحياتي رابط هذا التعليق شارك More sharing options...
ايمن ريا قام بنشر أبريل 1, 2013 الكاتب مشاركة قام بنشر أبريل 1, 2013 كل الشكر للأستاذ / عبد الله ، وأعتذر لعدم منطقية الطلب ، ولكنها الحاجة ، ولا يفتى ومالك فى المدينة . رابط هذا التعليق شارك 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.