it-swarm.asia

كيفية جعل Excel "Autofit Row Height" ميزة autofit فعلا ارتفاع الصف؟

بالنسبة لكل جيل من برامج Excel التي يمكنني تذكرها (بما في ذلك 2010 ، الذي أستخدمه الآن) ، تفشل ميزات "صف الحجم التلقائي" في Excel في بعض الأحيان في تغيير حجم الصف تلقائيًا عندما تحتوي الخلية على نص ملفوف. عندما يعمل بشكل صحيح ، يتم الكشف عن النص بالكامل ولا توجد مساحة إضافية أسفل السطر الأخير من النص. عندما يفشل ، فإنه يضيف مساحة إضافية أسفل النص. ومما زاد الطين بلة ، ما تراه ليس دائما ما تحصل عليه ، أي النص الذي يبدو على ما يرام على الشاشة يتم قطع عند طباعة. يمكنك أيضًا الحصول على مقاسات مختلفة بناءً على ما إذا كنت في حالة تصغير/تصغير أو بالحجم الفعلي.

حالة اختبار بسيطة:

لماذا توجد فجوة في سطر واحد بعد النص الموجود في الخلية A1 ولكن ليس في A2؟

(لإعادة الإنتاج: اضبط عرض العمود A إلى 17.14 (125 بكسل) ، والتفاف النص ، وأعلى محاذاة الخلية.)

(لقد قمت بالتأكد من أنني قمت بتطبيق Auto Fit Row Height على كلا الصفين. مستوى التكبير هو 100٪.)

Auto Fit fails for the first row, succeeds for the second

هل هناك أي علاج معروف لذلك دون اللجوء إلى ضبط ارتفاع الصف يدويًا (وهو أمر غير عملي لأكثر من حفنة من الصفوف)؟

85
devuxer

طريقة وجدتها للتو (تمديد المنشور السابق قليلاً):

  • حدد الورقة بأكملها.
  • تغيير حجم عمود أوسع قليلاً (نظرًا لأن الورقة بأكملها محددة ، ستصبح جميع الأعمدة أوسع)
  • انقر نقرًا مزدوجًا فوق فاصل الصف - سيتم تثبيت ارتفاع الصف تلقائيًا
  • انقر نقرًا مزدوجًا فوق فاصل أعمدة - سيتم عرض عروض الأعمدة تلقائيًا

فويلا!

101
Nick Carrington

Excel WYSIWYG ليس هو الأفضل. في صورتك ، "القط". بالكاد يتسلل إلى السطر الخامس. إذا قمت بتقليل نسبة التكبير/التصغير إلى أي شيء أقل من 100٪ (99٪ على سبيل المثال.) ثم "القط". يتم لف الآن إلى السطر السادس. أعتقد أن Excel يحاول الاحتواء التلقائي بطريقة تضمن أن كل شيء يكون دائمًا مرئيًا بصرف النظر عن مستوى التكبير/التصغير.

ليست هذه هي المشكلة الوحيدة التي ستواجهها مع ميزة AutoFit. بالإضافة إلى ذلك ، لن تتطابق دائمًا الطريقة التي تطبع بها خلية ملفوفة بكلمة مع ما تراه على الشاشة. خذ المثال الخاص بك وتغيير الخط إلى Courier مع ترك الحجم في 11.

Changed font to Courier

كما ترى ، فإن الخلية A1 تظهر أنها تعطى 1.5 خطوط إضافية. انظر الآن إلى معاينة قبل الطباعة ، "قطة". مخفي تماما.

print preview of same file

في تجربتي ، Excel لديه هذه المشكلة مع بعض الخطوط وأحجام الخطوط أكثر من غيرها. Courier أسوأ من Courier New ، حجم 11 عمومًا أسوأ من 10 أو 12. (لماذا اختاروا الحجم 11 كإعداد افتراضي جديد ، ليس لدي أي فكرة.)

13
mischab1

كتبت للتو ماكرو صغير لهذا الغرض. لقد قمت بتعيين مفتاح اختصار له (Ctrl-Shift-J) ويعمل مثل السحر بالنسبة لي.

Sub ArrangeTable()
'set proper column width and row height for the current region
    With Selection.CurrentRegion
        .Columns.ColumnWidth = 200
        .Columns.EntireColumn.AutoFit
        .Rows.EntireRow.AutoFit
    End With
End Sub

لجعل هذا متاحًا بشكل دائم ، يمكنك بسهولة إنشاء وظيفة إضافية للتنزيل تلقائيًا:

  • إنشاء وحدة نمطية في مصنف فارغ جديد ولصق الرمز ،
  • عيّنه مفتاح الاختصار الذي تريده ،
  • ثم Save As ، Add-in ، إلى المجلد %appdata%\Microsoft\Excel\XLSTART
    وبهذه الطريقة ، سيتم تحميله بشكل غير مرئي في كل مرة تبدأ فيها تشغيل Excel.
2
Patrick Honorez

أنا أيضًا تحملت هذا الخطأ الصغير الذي يصرف الانتباه جدًا لسنوات عديدة. ليس لدي أي حل بديل ، باستثناء التلاعب بعرض الصف الخاص بالخلية التي تحتوي على معظم النص ، وفي النهاية سوف يتراجع البرنامج ويعرض النص بشكل صحيح.

0
Andrew Buchanan

في بعض الأحيان هناك الطريقة النووية لإصلاح سوء التصرف التلقائي.

ما أقوم به هو نسخ النص من كل خلية ولصق البيانات في المفكرة ، ثم احذف الصف. بعد ذلك ، قمت فورًا بنسخ وإدراج صف فارغ ولكن له نفس التنسيق والسلوك الجيد مثل الصف الذي تم حذفه. (يجب نسخ الصف بأكمله وإدراجه باستخدام أزرار الصف الأيسر.)

بمجرد الانتهاء من ذلك ، يجب عليك العودة وإدراج النص من المفكرة في كل خلية. (استعمال F2 أو قم بتنشيط وضع التحرير لكل خلية قبل إدراج النص.) إنه ألم ، لذلك هو الملاذ الأخير ، خاصة بالنسبة لأوراق العمل الواسعة.

هذا هو الحل الوحيد في بعض الأحيان ، حيث تكمن المشكلة في البرنامج نفسه.

0
Paul

أنا لم اختبر هذا بدقة ولكن كان يعمل بالنسبة لي. بشكل أساسي ، سيتم ضبط جميع الأوراق تلقائيًا ثم الرجوع إليها وتعيين عرض العمود على العرض الأصلي ، إلا إذا تم تمديده بواسطة الضبط التلقائي. لم يكن لدي سوى 10 أعمدة وأكثر من 1000 صف ، لذا اضبط الكود حسب الحاجة.

Sub ResizeCells()
    Dim sheetCounter As Integer
    Dim rowCounter As Integer
    Dim colCounter As Integer
    Dim totalWidth As Double
    Dim oldColWidths(1 To 10) As Double

    For sheetCounter = 1 To ThisWorkbook.Sheets.Count
        ActiveWorkbook.Worksheets(sheetCounter).Select
        totalWidth = 0

        ' Extend the columns out to 200
        For colCounter = 1 To 10
            oldColWidths(colCounter) = Cells(1, colCounter).ColumnWidth
            totalWidth = totalWidth + oldColWidths(colCounter)
            Cells(1, colCounter).ColumnWidth = 200
        Next

        For rowCounter = 4 To 1000
            If Cells(rowCounter, 1).Value <> "" Or Cells(rowCounter, 2).Value <> "" Or Cells(rowCounter, 3).Value <> "" Then
                Rows(rowCounter & ":" & rowCounter).EntireRow.AutoFit
            End If
        Next

        ' do autofit
        For colCounter = 1 To 10
            Cells(1, colCounter).EntireColumn.AutoFit
        Next

        ' reset to original values if current width is less than the original width.
        For colCounter = 1 To 10
            If Cells(1, colCounter).ColumnWidth < oldColWidths(colCounter) + 0.25 Then
                Cells(1, colCounter).ColumnWidth = oldColWidths(colCounter)
            End If
        Next
    Next
End Sub
0
Dan Williams

هناك مقال كيلو بايت حول هذا الموضوع "يقترح" (وهو متناثر بشكل غير مقبول ، بأسلوب Microsoft الكلاسيكي) أنه إذا قمت بتعيين ارتفاع الصف في أي وقت مضى ، فإن إعداد الإعداد التلقائي للارتفاع التلقائي يختفي دائمًا لهذا الصف من ورقة العمل هذه. الصفوف التي لم تلمسها سوف تعمل بشكل جيد على الرغم من ذلك.

بينما يمكنك إعادة تعيين عرض الأعمدة باستخدام إعداد "العرض القياسي" في عام 2003 (2007 تصميم madman: التغيير إلى "العرض الافتراضي") ، لكنهم نسوا (مرة أخرى) (ومرة أخرى) وضع ذلك في الصفوف. لذلك يبدو دائم لا مفر منه. هذا يعني أنه إذا كان لديك ارتفاع افتراضي يبلغ 15 ، وقمت بإنشاء ورقة وتعيين جميع الارتفاعات إلى 12 ، فقد قمت بالتخليص التلقائي تلقائيًا.

0
GatesIsAntichrist

في بعض الحالات ، قد تكون مشكلة المساحة الزائدة في بعض الصفوف بعد استدعاء "احتواء تلقائي لارتفاع الصف" هي أن العمود المخفي قد لف النص في تلك الصفوف.

0
BobO

لدي Excel 2010. لقد وجدت أن هذه المشكلة حدثت لي عندما لم يكن إعداد Zoom الخاص بي 100٪. ما دمت أنا بنسبة 100٪ ، لا أحصل على النص من خلال ميزة الاحتواء التلقائي للأعمدة والصفوف

0
Kevin Morin

هناك حل سهل:

1) حدد جميع الصفوف التي تريد تنسيقها تلقائيًا (إذا كانت كتلة كبيرة انقر فوق الأول ثم اضغط على Shift + End و Shift + Down)

2) انقر بزر الماوس الأيمن فوق التحديد ، تنسيق الخلايا ، علامة التبويب محاذاة ، قم بإلغاء تحديد التفاف النص.

أتمنى أن يساعدك هذا ؛)

0
Pedro