Inserisci interruzione di riga nella cella avvolta tramite il codice

Question

È possibile inserire un'interruzione di riga in una cella avvolta tramite il codice VBA? (Simile a fare Alt - Enter durante l'immissione manuale dei dati)

ho impostare la proprietà Testo a capo della cella a True tramite codice VBA, e io sono l'inserimento dei dati in esso anche attraverso il codice VBA.

Answer 1

Sì. L'equivalente VBA di AltEnter è quello di utilizzare un carattere di riga:

ActiveCell.Value = "I am a " & Chr(10) & "test" 

Si noti che questa imposta automaticamente WrapText su True.

Proof:

Sub test() 
Dim c As Range 
Set c = ActiveCell 
c.WrapText = False 
MsgBox "Activcell WrapText is " & c.WrapText 
c.Value = "I am a " & Chr(10) & "test" 
MsgBox "Activcell WrapText is " & c.WrapText 
End Sub 

Answer 2

Si potrebbe anche usare vbCrLf che corrisponde al Chr(13) & Chr(10).

Answer 3

Sì, ci sono due modi per aggiungere un avanzamento riga:

1. Utilizzare la funzione esistente da VBA vbCrLf nella stringa che si desidera aggiungere un avanzamento riga, come ad esempio:

   Dim testo String

   text = "Ciao" & vbCrLf & "Mondo!"

   Worksheets (1) .Cells (1, 1) = testo

2. Utilizzare la funzione Chr() e passare i caratteri ASCII 13 e 10 per aggiungere un avanzamento riga, come mostrato sotto:

   Dim testo As String

   text = "Hello" & Chr (13) & Chr (10) & "Mondo!"

   fogli di lavoro (1) .Cells (1, 1) = testo

In entrambi i casi, si avrà la stessa uscita nella cella (1,1) o A1.

Answer 4

Basta fare Ctrl +Enter all'interno della casella di testo