Come modificare rapidamente la dimensione del carattere in base al valore della cella in Excel?
Modifica la dimensione del carattere in base a un altro valore di colonna
Modifica la dimensione del carattere in base al valore della cella e alla lunghezza del carattere
Modifica la dimensione del carattere in base a un altro valore di colonna
Per modificare la dimensione del carattere in base a un altro valore di colonna, ecco un codice VBA che può aiutarti.
1. Vai al foglio di cui desideri modificare la dimensione del carattere in base a un'altra colonna e premi Alt + F11 tasto contemporaneamente per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli, quindi incolla sotto VBA nel file Moduli. Vedi screenshot:
VBA: modifica la dimensione del carattere in base a un altro valore di colonna
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. Stampa F5 chiave, viene visualizzata una finestra di dialogo e seleziona le celle di cui desideri modificare la dimensione del carattere. Vedi screenshot:
4. Clic OK, quindi le celle nella colonna selezionata sono state regolate la dimensione del carattere in base ai valori nella colonna accanto.
Modifica la dimensione del carattere in base al valore della cella e alla lunghezza del carattere
D'altra parte, se si desidera modificare la dimensione del carattere in base al valore della cella o alla lunghezza del carattere, ad esempio, quando il valore della cella è maggiore di 10 o la lunghezza del carattere è superiore a 5, la dimensione del carattere cambia in 16, e il carattere cambia in Arial, altrimenti la dimensione del carattere è 11 e il carattere è Calibri come mostrato nell'immagine sottostante.
1. Stampa Alt + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice sottostante in Moduli script. Vedi screenshot:
VBA: modifica la dimensione del carattere in base al valore della cella o alla lunghezza del carattere
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. Stampa F5 chiave per eseguire il codice e i valori che sono maggiori di 10 o la lunghezza dei caratteri è superiore a 5 sono stati cambiati il loro carattere in Arial e la dimensione del carattere in 16.
Mancia: Nel codice sopra, puoi cambiare l'intervallo G2: B9 con gli altri come desideri.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
