كود لعمل احتواء تلقائى لجميع الاعمدة بالملف

[قنديل الصياد]

كود لعمل احتواء تلقائى لجميع الاعمدة بالملف

Sub kandeel()
Cells.Select
Selection.Columns.AutoFit
End Sub

كود لعمل احتواء تلقائى لعمود واحد فقط

Sub kandeel()
 Columns("C:C").EntireColumn.AutoFit  
End Sub

مرفق ملف به التطبيق على جميع الاعمدة

 

احتواء تلقائى لجميع الاعمدة.rar

[حسين شاكر]