Hoe snel de tekengrootte wijzigen op basis van de celwaarde in Excel?
Wijzig de lettergrootte op basis van een andere kolomwaarde
Wijzig de lettergrootte op basis van de celwaarde en tekenlengte
Wijzig de lettergrootte op basis van een andere kolomwaarde
Om de lettergrootte te wijzigen op basis van een andere kolomwaarde, kan hier een VBA-code u helpen.
1. Ga naar het blad waarvan u de lettergrootte wilt wijzigen op basis van een andere kolom, en druk op Alt + F11 toets gelijktijdig te openen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak vervolgens onder VBA in het Module. Zie screenshot:
VBA: verander de lettergrootte op basis van een andere kolomwaarde
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. druk op F5 key, verschijnt er een dialoogvenster en selecteert u de cellen waarvan u de lettergrootte wilt wijzigen. Zie screenshot:
4. klikken OK, en vervolgens is de tekengrootte van de cellen in de geselecteerde kolom aangepast op basis van de waarden in naast de kolom.
Wijzig de lettergrootte op basis van de celwaarde en tekenlengte
Als u daarentegen de tekengrootte wilt wijzigen op basis van de eigen waarde of tekenlengte van de cel, bijvoorbeeld wanneer de celwaarde groter is dan 10, of de tekenlengte groter is dan 5, dan verandert de tekengrootte in 16, en het lettertype verandert in Arial, anders is de lettergrootte 11 en is het lettertype Calibri zoals onderstaand screenshot.
1. druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak onderstaande code in Module script. Zie screenshot:
VBA: verander de lettergrootte op basis van de celwaarde of tekenlengte
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. druk op F5 sleutel om de code uit te voeren, en de waarden die groter zijn dan 10 of tekenlengte is meer dan 5 zijn veranderd hun lettertype in Arial en lettergrootte naar 16.
Tip: In bovenstaande code kunt u bereik G2: B9 naar anderen wijzigen zoals u wilt.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
