mostafa_27 قام بنشر فبراير 20, 2018 مشاركة قام بنشر فبراير 20, 2018 السلام عليكم وجدت كود اخفاء اعمدة لكن متجاورة H:I ابحث عن كود يخفى اكثر من عمود و غير متجاورين او بمعنى اصح ما هى الفاصله التى اضعها بدلا من : لاخفاء اكثر من عمود و غير متجاورين Private Sub CommandButton1_Click() CommandButton1.Caption = IIf(CommandButton1.Caption = "Hide", "Show", "Hide") Columns("H:I").Hidden = Not Columns("H:I").Hidden End Sub رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 20, 2018 مشاركة قام بنشر فبراير 20, 2018 الكود Sub hide_col() Range("B:C,F:G,J:J").EntireColumn.Hidden = True End Sub 1 رابط هذا التعليق شارك More sharing options...
mostafa_27 قام بنشر فبراير 20, 2018 الكاتب مشاركة قام بنشر فبراير 20, 2018 شاكر لك اخى لكن للاسف سليم ما يشتغل الكود اريد زر امر اضغط عليه يخفى و اضغط مره تانيه يظهروا رابط هذا التعليق شارك More sharing options...
سيد الأكرت قام بنشر فبراير 20, 2018 مشاركة قام بنشر فبراير 20, 2018 يا أستاذ مصطفى مع احترامي الكامل لشخصكم الكريم يجب عليك أن تنزل الناس على قدر منازلهم والأستاذ سليم من عمالقة المنتدى ومن الساعين دوما لمساعدة الأخرين ومن فريق الموقع المنوط به الرد على استفساراتنا ومطالبنا وأظن أنك تعلم أن أعضاء الفريق لهم مواصفات خاصة وأعذرنى فلم أستسغ منك ولم أحب أن تناديه باسمه مجردا . 2 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 20, 2018 مشاركة قام بنشر فبراير 20, 2018 السلام عليكم الاخ الكريم / mostafa_27 بارك الله فيك بعد اذن اخي الاستاذ الحبيب / سليم حاصبيا .. جزاه الله خيرا وعلي حسب فهمي لطلبك وباستخدام الكود المقدم من الاستاذ / سليم .. يكون الكود بالشكل التالي Private Sub CommandButton1_Click() CommandButton1.Caption = IIf(CommandButton1.Caption = "Hide", "Show", "Hide") If CommandButton1.Caption = "Hide" Then Range("H:I,K:K,N:N").EntireColumn.Hidden = True Else If CommandButton1.Caption = "Show" Then Range("H:I,K:K,N:N").EntireColumn.Hidden = False End If End If End Sub واليك ملف مرفق مطبق به الكود تقبل خالص تحياتي امرين مختلفين في زر وراحد - اظهار & اخفاء.rar 1 رابط هذا التعليق شارك More sharing options...
محمود الحربي قام بنشر فبراير 21, 2018 مشاركة قام بنشر فبراير 21, 2018 واذا حاب الغي صف وليس عامود رابط هذا التعليق شارك More sharing options...
mostafa_27 قام بنشر فبراير 27, 2018 الكاتب مشاركة قام بنشر فبراير 27, 2018 شكرا جدا اخى حمادة عمر رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 27, 2018 مشاركة قام بنشر فبراير 27, 2018 جزاك الله خيرا اخي الكريم تقبل خالص تحياتي 1 رابط هذا التعليق شارك More sharing options...
mostafa_27 قام بنشر فبراير 27, 2018 الكاتب مشاركة قام بنشر فبراير 27, 2018 الاستاذ سيد الأكرت الاستاذ الفاضل الكريم سليم حاصبيا ساعدنى كثيرا جدا و له فضل عليا و انا اعتذر ، فكان ذالك منى بدون قصد طبعا و انا ما قصدت الا انى اعتبره اخ اكرر اعتذارى و اسف انى تاخرت لانى الحين فقط رايت التعليق رابط هذا التعليق شارك 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.