MPC قام بنشر أكتوبر 30, 2019 مشاركة قام بنشر أكتوبر 30, 2019 يتطلب الامر احيانا اخفاء بعض الاعمدة وفقا لرأس (عنوان ) العمود مثل "تأخير صبحا" والتى تكون مكررة على اكثر من عمود خلال الشهر وذلك للحصول على تقرير معين وكتبت الاكواد التالية لذلك ولكن اشعر انها اقرب الى اليدوى فهل من طريقة افضل ()Sub Delay Sheets("sheet1").Visible = True Worksheets("sheet1").Activate Sheets("sheet1").Select Range("b:b,E:E,I:J,K:L,N:T,V:AB,AD:AJ,AL:AR,AT:AZ,BB:BH,BJ:BP,BR:BX,BZ:CF,CH:CN,CP:CV,CX:DD,DF:DL,DN:DT,DV:EB,ED:EJ,EL:ER,ET:EZ,FB:FH,FJ:FP,FR:FX,FZ:GF,GH:GN,GP:GV,GX:HD,HF:HL,HN:HT,HV:IB,ID:Ij,IL:IR,IT:IX,IZ:je").Select Selection.EntireColumn.Hidden = True End Sub رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 30, 2019 مشاركة قام بنشر أكتوبر 30, 2019 هات الملف (نموذج ما لا يزيد عن 5 صفوف) و خذ ما يدهش العالم 1 رابط هذا التعليق شارك More sharing options...
MPC قام بنشر أكتوبر 31, 2019 الكاتب مشاركة قام بنشر أكتوبر 31, 2019 Book-31-10-2019.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر نوفمبر 1, 2019 أفضل إجابة مشاركة قام بنشر نوفمبر 1, 2019 جرب هذا الكود Option Explicit Sub HID_COLUMNS() Dim I% Range(Cells(1, 5), Cells(1, 262)).EntireColumn.Hidden = True For I = 13 To 262 Step 8 Cells(1, I).EntireColumn.Hidden = False Next End Sub 3 رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر نوفمبر 1, 2019 مشاركة قام بنشر نوفمبر 1, 2019 ما شاء الله استاذ سليم جزاكم الله خير وجعله الله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
MPC قام بنشر نوفمبر 2, 2019 الكاتب مشاركة قام بنشر نوفمبر 2, 2019 أستاذى الكريم سليم حاصبيا تسلم ايدك وجعله الله فى ميزان حسناتك 👍 رابط هذا التعليق شارك 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.