Excel 2010-Format

Ich mache zweimal pro Woche eine Präsentation mit Excel und muss wissen, wie ich alle meine Zeilen verkleinern kann, ohne kleiner als 60.00 (80 Pixel) zu werden? Einige Zeilen enthalten mehr Informationen als andere, daher muss ich durch 1500 Zeilen scrollen und die Zeilen finden, deren Größe geändert werden muss. Ich kann die Zellen nicht sperren, da sich die Informationen jedes Mal, wenn ich mein Arbeitsblatt aktualisiere, ständig ändern.

microsoft-excel microsoft-excel-2010 Anthony
quelle

Willkommen in SU. Welche Excel-Version verwenden Sie und was haben Sie bisher ausprobiert?

CharlieRB

@CharlieRB der Titel enthält die Excel-Version.

Brad Patton

Duh. Ja, das ist sicher. LOL

CharlieRB

Antworten:

Diese Antwort setzt voraus, dass Sie wissen, wie Sie Code hinzufügen ThisWorkbook im VBA-Explorer ( Alt + F11 ) und wie man Makros ausführt.

Nicht sicher, welche Version Sie verwenden, aber dieser Code wurde 2010 getestet. Mit diesem VBA wird ein Makro erstellt, mit dem Sie die Zeilen auf Zeilenumbruch formatieren und dann die Zeilenhöhe überprüfen können. Wenn es nicht mindestens 60 ist, wird es auf 60 gesetzt.

Sub SetRowHeight()
    For Each c In Range("A1:D1500") 'set this range to match your sheet
        c.EntireRow.WrapText = True
        If c.RowHeight < 60 Then c.RowHeight = 60
    Next c
End Sub

Hinweis: Die Spaltenbreite wird dadurch nicht geändert.

CharlieRB
quelle

Nur neugierig, aber würde das nicht unnötigerweise viermal über den Bereich iterieren (einmal pro Spalte)? Intuitiv Range("A1:A1500") scheint eine bessere Wahl zu sein.

a CVn

Ich denke, diese beiden Vorschläge werden die Zeilen 60 ergeben, oder? Ich möchte 60 in allen Zeilen mit Ausnahme der Zeilen, die größer als 60 sein müssen. Ich möchte sehen, ob ein Makro dies tut, um mich davon abzuhalten, alle 1500 Zeilen zu betrachten, um die 50 zu finden, die größer als 60 sein müssen.

Anthony

@Anthony Hiermit wird überprüft, ob die Zeile mindestens 60 ist. Wenn sie bereits größer ist, wird sie in Ruhe gelassen.

CharlieRB

@ MichaelKjörling Was ist, wenn Zellen eingepackt werden müssen, die nicht eingepackt sind? A1:A1500? Das würde funktionieren, wenn sich die Daten nur in der ersten Spalte befinden. Um die Zellen mit viel Text umbrechen zu können, muss der größere Bereich berücksichtigt werden. Offensichtlich muss der Benutzer den Bereich einstellen.

CharlieRB

Sie können in die obere linke Zelle klicken, um alle Zeilen und Spalten in der Arbeitsmappe auszuwählen

Select All

Die in der Cells Abschnitt der Multifunktionsleiste wählen Sie die Format Dropdown-Liste:

Format

Sie können entweder alle Zeilen automatisch anpassen oder die Row Height Dialog zum Einstellen einer expliziten Höhe.

Brad Patton
quelle