الهوامش العلوية والسفلية في الخلايا

[الخطاب]

كيف أستطيع ضبط ارتفاع الخلية في الاكسل على النص تماما بدون زيادة من أعلى وأسفل؟

في بعض الخلايا أستخدم أمر Autofit row height فيصبح ارتفاع الخلية مساويا لارتفاع النص.

ولكن في خلايا أخرى عند استخدام نفس الأمر يكون هناك فراغ أعلى وأسفل النص في الخلية فأضطر الى تعديل الارتفاع يدويا.

مع أن تنسيق الخليتين واحد من حيث حجم الخط ونوعه.

هل هناك سبب لهذا الاختلاف؟

مثال.xlsm

[Ali Mohamed Ali]

تفضل

Sub Test()
ActiveSheet.UsedRange.EntireColumn.AutoFit
ActiveSheet.UsedRange.EntireRow.AutoFit
End Sub

أو يمكنك استخدام هذا الكود أيضاً

Option Explicit
Sub Auto_Fit()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Columns.AutoFit
sh.Rows.AutoFit
Next sh
End Sub

مثال.xlsm

[abouelhassan]

استاذ على حفظك الله بعد اذنك يمكن استخدام حدث change بدون زر فى حدث الصفحة 

ليصبح الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Columns.AutoFit
sh.Rows.AutoFit
Next sh

End Sub

مع الشكر

[Ali Mohamed Ali]

وبدون أكواد لا توجد سوى هذه الطريقة كما بالصورة , من قائمة Home

[الخطاب]

 شكرا وجزاكم الله خيرا