Come modificare l'altezza della riga in base al valore della cella in Excel?

Per modificare l'altezza della riga in un foglio di lavoro, la maggior parte di noi può applicare la funzionalità Altezza riga per impostare l'altezza della riga selezionata. Tuttavia, se hai un elenco di numeri e ora vuoi impostare l'altezza della riga in base ai valori delle celle come mostrato nella seguente schermata, come potresti gestire questa attività in Excel?
Modifica l'altezza della riga in base al valore della cella con il codice VBA
Modifica l'altezza della riga in base al valore della cella con il codice VBA
Non esiste un modo diretto per modificare più altezze di riga in base al valore della cella contemporaneamente, ma, con il seguente codice VBA, può aiutarti a completare questo lavoro il più rapidamente possibile.
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: modifica l'altezza della riga in base al valore della cella:
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. Quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di selezionare le celle per le quali desideri impostare l'altezza della riga in base ai valori della cella, vedi screenshot:
4. E poi clicca OK pulsante, l'altezza della riga è stata modificata dal valore della cella come segue:
Note::Nel codice VBA sopra, Se H.Value> 15 Allora indica che se il valore della cella è maggiore di 15, l'altezza della riga verrà modificata; se il valore della cella è minore di 15, l'altezza della riga rimarrà quella predefinita. Puoi modificarla a seconda delle tue esigenze.
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!