Wie kann man die Schriftgröße in Excel schnell an den Zellenwert anpassen?
Ändern Sie Schriftgröße basierend auf dem Wert einer anderen Spalte
Ändern Sie Schriftgröße basierend auf dem Zellenwert und der Zeichenlänge
Ändern Sie Schriftgröße basierend auf dem Wert einer anderen Spalte
Um die Schriftgröße basierend auf dem Wert einer anderen Spalte anzupassen, finden Sie hier einen VBA-Code, der Ihnen dabei hilft.
1. Wechseln Sie zu dem Arbeitsblatt, in dem Sie die Schriftgröße basierend auf einer anderen Spalte anpassen möchten, und drücken Sie gleichzeitig Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie dann den folgenden VBA-Code in das Modul ein. Siehe Screenshot:
VBA: Ändern Sie Schriftgröße basierend auf dem Wert einer anderen Spalte
Sub fontchange()
'UpdatebyExtendoffice20160614
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells that you want to change font size:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
MsgBox "Only can select one column", vbInformation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Font.Size = xCell.Offset(, 1).Value
Next
Application.ScreenUpdating = True
End Sub
3. Drücken Sie die F5-Taste – es erscheint ein Dialogfeld. Wählen Sie dort die Zellen aus, deren Schriftgröße Sie ändern möchten. Siehe Screenshot:
4. Klicken Sie auf OK, und die Zellen in der ausgewählten Spalte passen nun ihre Schriftgröße entsprechend den Werten in der benachbarten Spalte an.
Ändern Sie Schriftgröße basierend auf dem Zellenwert und der Zeichenlänge
Wenn Sie die Schriftgröße basierend auf dem Zellenwert oder der Zeichenlänge anpassen möchten – beispielsweise auf Größe 16 und Schriftart Arial, sobald der Zellenwert größer als 10 oder die Zeichenlänge größer als 5 ist –, wird andernfalls die Schriftgröße auf 11 und die Schriftart auf Calibri gesetzt, wie im folgenden Screenshot gezeigt.
1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Skript ein. Siehe Screenshot:
VBA: Ändern Sie Schriftgröße basierend auf dem Zellenwert oder der Zeichenlänge
Private Sub Worksheet_Calculate()
'UpdatebyExtendoffice20160614
Dim xCell As Range
For Each xCell In Range("G2:H9")
With xCell
If Len(.Text) > 5 Or Val(.Value) > 10 Then
.Font.Name = "Arial"
.Font.Size = 16
Else
.Font.Name = "Calibri"
.Font.Size = 11
End If
End With
Next
End Sub
3. Drücken Sie die F5-Taste, um den Code auszuführen. Die Werte, die größer als 10 sind oder eine Zeichenlänge von mehr als 5 aufweisen, wurden bereits in Arial geändert und ihre Schriftgröße auf 16 gesetzt.
Tipp: Im obigen Code können Sie den Bereich G2:B9 beliebig in einen anderen Bereich ä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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins