it-swarm.dev

Come posso ottenere una cella in Excel per regolare automaticamente la sua altezza in modo che si adatti al contenuto del testo avvolto?

Ho una cella con contenuto di testo avvolto in Excel e voglio formattare la cella in modo che la sua altezza si adegui per adattarsi al contenuto che può estendersi su più righe. Come posso ottenere questo comportamento?

22
Manga Lee

Da http://support.Microsoft.com/kb/149663

Per regolare l'altezza della riga in modo che si adatti a tutto il testo in una cella, procedi nel seguente modo:

Seleziona la riga.

In Microsoft Office Excel 2003 e nelle versioni precedenti di Excel, scegliere Riga dal menu Formato e quindi fare clic su AutoFit.

In Microsoft Office Excel 2007, fare clic sulla scheda Home, fare clic su Formato nel gruppo Celle e quindi fare clic su Adatta altezza riga.

Funziona anche quando tutte le righe sono selezionate

24
vaichidrewar

Provare

Selezionare la colonna -> colonna del tasto destro del mouse -> Formato celle -> scheda Allineamento -> A capo testo

10
hyperslug

Notare che l'autofit non funziona sulle celle unite. Devi farlo manualmente.

Vedi questa risposta Microsoft:

Non è possibile utilizzare la funzionalità AutoFit per righe o colonne che contengono celle unite in Excel

4
abruti

Se non lo fa automaticamente, posiziona il cursore sulla linea più piccola tra i numeri di riga (es: tra 1 e 2) e fai doppio clic per ridimensionare la riga (direttamente sopra la linea piccola, nell'esempio: 1) in modo che tutto sia visibile (da un aspetto verticale).

2
Lance Roberts

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 di data sopra il 28/12/2014 farebbero in modo che l'intestazione mostri un avviso che queste date, in una scheda attività, andrebbe 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
0
Mickg01

Conosci macro? Inserisci il seguente codice

Application.ActiveCell.WrapText = True

all'interno della subroutine Worksheet_SelectionChange.

0
Toc

Una soluzione VBA deve utilizzare quanto segue:

 Call Application.ActiveCell.AutoFit
0
richardtallent

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. Non cambiano altre impostazioni, ma ogni riga è ora l'altezza "corretta" per il suo contenuto.

0
simpleuser