Come modificare rapidamente la dimensione del carattere in base al valore di una cella in Excel?
Modifica Dimensione carattere in base al valore di un'altra colonna
Modifica Dimensione carattere in base al valore della cella e alla lunghezza dei caratteri
Modificare Dimensione carattere in base al valore di un'altra colonna
Per modificare la dimensione del carattere in base al valore di un'altra colonna, ecco un codice VBA che fa al caso tuo.
1. Passa al foglio in cui desideri modificare la dimensione del carattere in base a un'altra colonna e premi contemporaneamente Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice VBA riportato di seguito nel Modulo. Vedi screenshot:
VBA: Modifica Dimensione carattere in base al valore di un'altra 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. Premi F5: si aprirà una finestra di dialogo. Seleziona le celle di cui desideri modificare la dimensione del carattere. Vedi screenshot:
4. Fai clic su OK e le celle nella colonna selezionata avranno la dimensione del carattere regolata in base ai valori nella colonna adiacente.
Modificare Dimensione carattere in base al valore della cella e alla lunghezza dei caratteri
Se desideri modificare la dimensione del carattere in base al valore della cella stessa o alla lunghezza del testo — ad esempio, quando il valore è maggiore di 10 oppure la lunghezza del testo supera i 5 caratteri — la dimensione del carattere diventa 16 e il tipo di carattere Arial; in tutti gli altri casi, la dimensione è 11 e il carattere è Calibri, come mostrato nello screenshot seguente.
1. Premi Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nello script del Modulo. Vedi screenshot:
VBA: Modifica Dimensione carattere in base al valore della cella o alla lunghezza dei caratteri
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. Premi F5 per eseguire il codice; i valori maggiori di 10 o con una lunghezza superiore a 5 caratteri avranno il font modificato in Arial e la dimensione del carattere impostata su 16.
Suggerimento: Nel codice precedente, puoi sostituire l'intervallo G2:B9 con qualsiasi altro intervallo desideri.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi