Ho una cella con contenuto di testo avvolto in Excel e voglio formattare la cella in modo che la sua altezza si adatti al contenuto che può estendersi su più righe. Come posso ottenere questo comportamento?
Da http://support.microsoft.com/kb/149663 &003
Per regolare l'altezza della riga per adattare tutto il testo in una cella, seguire questi passi:
Selezionare la riga.
In Microsoft Office Excel 2003 e nelle versioni precedenti di Excel, puntare su Riga nel menu Formato, quindi fare clic su AutoFit.
In Microsoft Office Excel 2007, fare clic sulla scheda Home, fare clic su Formato nel gruppo Celle, quindi fare clic su Altezza riga AutoFit.
Funziona anche quando tutte le righe sono selezionate
Si noti che l'autofit non funziona sulle celle fuse. Devi farlo manualmente.
Vedi questa risposta di Microsoft: Non puoi usare la funzione AutoFit per righe o colonne che contengono celle unite in Excel
Se non lo fa automaticamente, posizionare il cursore sulla piccola linea tra i numeri di riga (es: tra 1 e 2) e fare doppio clic, questo ridimensionerà la riga (direttamente sopra la piccola linea, nell'esempio: 1) in modo che tutto sia visibile (da un aspetto verticale).
L'unico modo per farlo funzionare come previsto è evidenziare l'intero foglio con CTRL-A, deselezionare il pulsante “Wrap Text” nella barra degli strumenti, quindi riselezionarlo. Nessun'altra impostazione cambia, ma ogni riga è ora l'altezza “corretta” per il suo contenuto.
Una soluzione VBA è quella di utilizzare i seguenti:
Call Application.ActiveCell.AutoFit
Ho creato il seguente codice VB per ridimensionare la riga di intestazione quando una cella all'interno di un intervallo (B2:B1500) perché i valori delle date superiori a 12/28/2014 farebbero sì che l'intestazione mostri un avviso che queste date, in un foglio orario, andrebbero nella settimana 1 del 2015:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an Action when they are changed.
Set KeyCells = Range("B2:B1500")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Change the height of the header row when one of the defined cdlls is changed
Rows("1:1").EntireRow.AutoFit
End If
End Sub