توسيع الخلية لاحتواء النص تلقائيا

[حسين مامون]

اخوتي في الله

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

من فظلكم اريد كود يجعل خلايا العمودb مطاطية

يعني عدم خروج النص من الخلية

تحياتي

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

اليك هذا الماكرو

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
 Target.Columns.AutoFit
End Sub

 

[حسين مامون]

جزاك الله خيرا استاذ سليم حاصبيا