كود صغير جدا و لكن مفيد جدا_AUTO fit_تغير عرض العمود طبقا للنص و الرقم

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة    

 

تم ارفاق كود الحل من الفاضل _ ا /الشيباني1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not OldRng Is Nothing Then
       OldRng.EntireColumn.AutoFit
   End If
   Set OldRng = Target
End Sub

 

مرفق الملف

 

___.zip

 

 و لا تنسونا من صالح الدعاء

تحياتى

 

تم تعديل ديسمبر 7, 2016 بواسطه جلال الجمال_ابو أدهم

[za.wlid14]

بارك الله فيك منور

[جلال الجمال_ابو أدهم]

za.wlid14

اخى الفاضل جزاك الله خيرا

تحياتى