Aktualisieren Sie das Makro, um jede Zeilenhöhe um X Pixel zu erweitern


0

Dies funktioniert gut, um alle Zeilen auf 25 Pixel zu setzen.

Sub sbChangeRowHeightMulti()
Rows("3:1000").RowHeight = 25
End Sub

Aber ich möchte die vorhandene Zeilenhöhe nehmen und 10 hinzufügen.

Also so etwas wie dieser Pseudocode:

Sub sbChangeRowHeightMulti()
Rows("3:1000").RowHeight = Rows(x).RowHeight + 10
End Sub

Ist das möglich? Ich habe versucht, die Syntax dafür herauszufinden, aber kein Glück.

Antworten:


1

Leider gibt es keine einfache Möglichkeit, dies zu tun. Genau wie in Excel selbst gibt es keine Möglichkeit, mehrere Zeilen auszuwählen und die Zeilenhöhe durch Ziehen / Festlegen in Schritten der einzelnen Höhen festzulegen.

Die einfachste Lösung besteht darin, alle Zeilen zu durchlaufen:

Option Explicit
'v0.1.0
Sub sbChangeRowHeightMulti()
  Application.ScreenUpdating = False
    Dim rowRow As Range
    For Each rowRow In Rows("3:1000")
      rowRow.RowHeight = rowRow.RowHeight + 10
    Next rowRow
  Application.ScreenUpdating = True
End Sub

-3

Versuche dies:

Sub sbChangeRowHeightMulti()
Rows("3:1000").RowHeight = Rows("3:1000").RowHeight + 10
End Sub

Haben Sie etwas Besonderes getan, damit das funktioniert? Das funktioniert bei mir nicht. Bitte antworten Sie nicht in Kommentaren; Bearbeiten Sie Ihre Antwort, um sie klarer und vollständiger zu gestalten.
Scott

@Scott Antworte in Kommentaren, weil ich meiner Antwort an dieser Stelle nichts hinzuzufügen habe: Vielleicht habe ich die Frage falsch verstanden. Ich habe nichts Besonderes getan, um es zum Laufen zu bringen. Die vorhandene Zeilenhöhe der angegebenen Zeilen wird um 10 erhöht. War das nicht die ursprüngliche Frage?
Wysiwyg

(1) Ich denke, wir sind uns einig über die Bedeutung der Frage (obwohl Ihre Aussage etwas ungenau ist, bin ich mir nicht sicher, ob Sie und ich dasselbe denken). (2) Ich bin ein bisschen verwirrt. Ich dachte, als ich gestern deine Antwort getestet habe, hat das nichts gebracht. Ich habe es erneut getestet und es macht definitiv etwas, also war ich gestern (bestenfalls) schlampig. (3) Ihre Antwort scheint darin zu bestehen Rows("3").RowHeight + 10, die Höhe jeder Zeile auf diesen Wert zu berechnen und festzulegen. Ich glaube, die Frage lautet, der Höhe jeder Zeile eine Konstante hinzuzufügen,… (Fortsetzung)
Scott

(Fortsetzung) ... Wenn also die aktuellen Höhen 15, 21, 27, 33, ... sind, werden sie in 25, 31, 37, 43, ... geändert. ( Nach dem erneuten Lesen der Frage gebe ich zu, dass sie unklar ist. Beachten Sie jedoch, dass robinCTS sie genauso interpretierte wie ich.) Ihre Antwort würde sie in 25, 25, 25, 25, ... ändern. (4) Sie haben offensichtlich bemerkt, dass jemand Ihre Antwort abgelehnt hat. Es war nicht ich. Also glaubt jemand anders als ich, dass deine Antwort falsch ist.
Scott
Durch die Nutzung unserer Website bestätigen Sie, dass Sie unsere Cookie-Richtlinie und Datenschutzrichtlinie gelesen und verstanden haben.
Licensed under cc by-sa 3.0 with attribution required.