Wie ändere ich die Zeilenhöhe basierend auf dem Zellenwert in Excel?
Um die Zeilenhöhe in einem Arbeitsblatt zu ändern, wenden die meisten von uns möglicherweise die Funktion "Zeilenhöhe" an, um die Höhe der ausgewählten Zeile festzulegen. Wenn Sie jedoch eine Liste mit Zahlen haben und jetzt die Zeilenhöhe basierend auf den Zellenwerten wie im folgenden Screenshot festlegen möchten, wie können Sie mit dieser Aufgabe in Excel umgehen?
Ändern Sie die Zeilenhöhe basierend auf dem Zellenwert mit VBA-Code
Ändern Sie die Zeilenhöhe basierend auf dem Zellenwert mit VBA-Code
Es gibt keine direkte Möglichkeit, mehrere Zeilenhöhen basierend auf dem Zellenwert gleichzeitig zu ändern. Mit dem folgenden VBA-Code können Sie diesen Job jedoch so schnell wie möglich beenden.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Ändern Sie die Zeilenhöhe basierend auf dem Zellenwert:
Sub rowheight()
'Updateby Extendoffice
Dim hgt As Variant
Dim WorkRng As Range
xTxt = ActiveWindow.RangeSelection.Address
Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
If H.Value > 15 Then
hgt = H.Value
H.EntireRow.Select
Selection.rowheight = hgt
End If
Next H
End Sub
3. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, die Zellen auszuwählen, für die Sie die Zeilenhöhe anhand der Zellenwerte festlegen möchten. Siehe Abbildung:
4. Und dann klick OK Schaltfläche, wurde die Zeilenhöhe um den Zellenwert wie folgt geändert:
Note: Im obigen VBA-Code, Wenn H.Wert> 15 Dann Gibt an, dass bei einem Zellenwert größer als 15 die Zeilenhöhe geändert wird. Wenn der Zellenwert kleiner als 15 ist, bleibt die Zeilenhöhe die Standardhöhe. Sie können es nach Bedarf ändern.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!