الخطاب قام بنشر نوفمبر 17, 2020 مشاركة قام بنشر نوفمبر 17, 2020 كيف أستطيع ضبط ارتفاع الخلية في الاكسل على النص تماما بدون زيادة من أعلى وأسفل؟ في بعض الخلايا أستخدم أمر Autofit row height فيصبح ارتفاع الخلية مساويا لارتفاع النص. ولكن في خلايا أخرى عند استخدام نفس الأمر يكون هناك فراغ أعلى وأسفل النص في الخلية فأضطر الى تعديل الارتفاع يدويا. مع أن تنسيق الخليتين واحد من حيث حجم الخط ونوعه. هل هناك سبب لهذا الاختلاف؟ مثال.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر نوفمبر 17, 2020 أفضل إجابة مشاركة قام بنشر نوفمبر 17, 2020 تفضل 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 4 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر نوفمبر 17, 2020 مشاركة قام بنشر نوفمبر 17, 2020 استاذ على حفظك الله بعد اذنك يمكن استخدام حدث 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 مع الشكر 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر نوفمبر 18, 2020 مشاركة قام بنشر نوفمبر 18, 2020 وبدون أكواد لا توجد سوى هذه الطريقة كما بالصورة , من قائمة Home 1 رابط هذا التعليق شارك More sharing options...
الخطاب قام بنشر نوفمبر 18, 2020 الكاتب مشاركة قام بنشر نوفمبر 18, 2020 شكرا وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها