ناصر سعيد قام بنشر فبراير 22, 2017 مشاركة قام بنشر فبراير 22, 2017 جزاكم الله خيرا لكل ماتقدمونه من أعمال تقربا لله المطلوب : كود يظهر اعمده متجاوره محدده...او اعمده غير متجاوره محدده في الصفحه ... وباقي اعمده الصفحه مخفيه وبارك الله لكم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 22, 2017 مشاركة قام بنشر فبراير 22, 2017 جرب هذا الكود يمكنك تحديد الاعمدة من خلاله Sub hide_some_columns() Sheets("sheet1").Columns.Hidden = True Range("b1,c1,d1,r1").EntireColumn.Hidden = False End Sub رابط هذا التعليق شارك More sharing options...
عبدالباري البنا قام بنشر فبراير 22, 2017 مشاركة قام بنشر فبراير 22, 2017 (معدل) السلام عليكم ورحمة الله وبركاته بعد اذن أستاذنا الكبيرسليم حاصبيا محاوله أخرى أتمنى ان تفى بالغرض اخفاء واظهار أعمدة1.rar تم تعديل فبراير 22, 2017 بواسطه عبدالباري البنا رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر فبراير 22, 2017 الكاتب مشاركة قام بنشر فبراير 22, 2017 الاستاذ سليم حفظك الله كودك متميز ولكن عند التجربه لايظهر امامي الاعمده المختارة وانما لابد من تريك الاسكرول بار اللي تحت عشان تظهر الاعمده امامي ... لو لها حل الاستاذ عبد الباري حفظك الله كودك متميز ولكن تخيل فيه اسماء اعمده كتيره ... هل الفورمه تستطيع انها تاتي بكل اسماء الاعمده ثانيا اسماء الاعمده عندما اغيرها لاتتجدد الاسماء حفظكم الله ورعاكم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 22, 2017 مشاركة قام بنشر فبراير 22, 2017 1 ساعه مضت, ناصر سعيد said: الاستاذ سليم حفظك الله كودك متميز ولكن عند التجربه لايظهر امامي الاعمده المختارة وانما لابد من تريك الاسكرول بار اللي تحت عشان تظهر الاعمده امامي ... لو لها حل الاستاذ عبد الباري Sub hide_some_columns() Sheets("sheet1").Columns.Hidden = True Range("b1,c1,d1,r1").EntireColumn.Hidden = False Range("b1").Select End Sub حفظك الله كودك متميز ولكن تخيل فيه اسماء اعمده كتيره ... هل الفورمه تستطيع انها تاتي بكل اسماء الاعمده ثانيا اسماء الاعمده عندما اغيرها لاتتجدد الاسماء حفظكم الله ورعاكم اضف الى الكود هذا السطر ليصبح هكذا 1 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر فبراير 22, 2017 الكاتب مشاركة قام بنشر فبراير 22, 2017 الله يسعد ايامك استاذ سليم Sub hide_some_columns() Sheets("sheet1").Columns.Hidden = True Range("b1,c1,d1,r1").EntireColumn.Hidden = False Range("b1").Select End Sub 1 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر فبراير 23, 2017 الكاتب مشاركة قام بنشر فبراير 23, 2017 عند تطبيقه على ملف لم يتم المراد والمرفق موجود ارجو تضبيطه الملف للمحترم سليم حاصبيا.rar رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر فبراير 23, 2017 الكاتب مشاركة قام بنشر فبراير 23, 2017 للرفع رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 23, 2017 مشاركة قام بنشر فبراير 23, 2017 33 دقائق مضت, ناصر سعيد said: للرفع بدل الى هذا الكود Sub hide_some_columns() With Sheets("sheet1") .Columns.Hidden = True .Range("a1,b1,c1,g1").EntireColumn.Hidden = False Application.Goto Reference:=.Range("b1") End With Sheets("sheet2").Activate End Sub رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر فبراير 23, 2017 الكاتب مشاركة قام بنشر فبراير 23, 2017 Sub hide_some_columns() With Sheets("sheet1") .Columns.Hidden = True .Range("a1,b1,c1,g1").EntireColumn.Hidden = False Application.Goto Reference:=.Range("b1") End With Sheets("sheet1").Activate 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.