حذف اعمدة تحدد من المستخدم

[عاطف عبد العليم محمد]

السلام عليكم ورحمة الله وبركاته

لو يتكرم علينا احد الاخوان 

اريد كود لحذف نطاق من الاعمدة  احدده في كل مرة استخدم الكود ( عن طريق msbox )  فيتم ادخال العمود الاول وليكن a  ثم يتم ادخال العمود الاخير  وليكن عمود d  فيتم حذف العمود a , b , c , d

وفقكم الله

تم تعديل يناير 1, 2018 بواسطه عاطف عبد العليم محمد

[سليم حاصبيا]

جرب هذا الملف

 الكود

Private Sub cmddel_Click()
Dim x$, y$

x = Application.InputBox("حدد العامود الاول", "Excel tel you", Type:=2)
y = Application.InputBox("حدد العامود الثاني", "Excel tel you", Type:=2)
 On Error GoTo 1
ActiveSheet.Columns.Hidden = False
'===================================
Range(Cells(1, x), Cells(1, y)).EntireColumn.Delete   'للحذف
'Range(Cells(1, x), Cells(1, y)).EntireColumn.Hidden = True ' للاخفاء
'===================================
Exit Sub
1:
ActiveSheet.Columns.Hidden = False
End Sub

استعمل احد السطرين (او الحذف او الاخفاء في الكود) وذلك بوضع فاصلة عليا بجانب السطر الذي لا تريده و ازالتها من السطر الاخر

الملف مرفق

 

hide_columns.rar

[عاطف عبد العليم محمد]

تمام  جزاك الله خيرا