Replace su colonna Array

Hai un problema con Excel?

Nuova discussione

Replace su colonna Array
di franco (utente non iscritto) data: 11/10/2016 20:33:29
Questo codice preso sul sito per caricare una listbox è davvero veloce ma ha un limite: la formattazione delle colonne.
Volendo formattare la colonna 4 dell' ArraY ho provato con
4 = Replace(Replace(4,Chr(10," "),Chr(13)," "))
ma non funziona.

Private Sub UserForm_Initialize()

Set sh = ThisWorkbook.Worksheets("foglio1")

 With sh.Range("A2:I" & sh.Range("A" & sh.Rows.Count).End(xlUp).Row)
     4 = Replace(Replace(4,Chr(10," "),Chr(13)," ")) 
        ar = Application.Index(.Value, Evaluate("row(1:" & .Rows.Count & ")"), Array(1, 2, 3, 4, 5, 6, 7, 8, 9))
    End With

 'Settaggio di alcune proprietà della ListBox1
    With Me.ListBox5
        'Numero di colonne
        .ColumnCount = 9
        'Larghezza delle colonne
     '   .ColumnWidths = " "
        .List = ar
     End With
End Sub

di patel data: 12/10/2016 08:26:55
la riga 4 = Replace(Replace(4,Chr(10," "),Chr(13)," ")) non ha senso e il quesito che poni non è chiaro, allega un file di esempio funzionante e spiega bene cosa vuoi ottenere
di alfrimpa data: 12/10/2016 09:14:18
E soprattutto cosa intendi per "formattazione delle colonne"?

Quale aspetto devono avere le colonne della Listbox?

Aggiungo che (a quanto ne so) la Listbox ha limitatissime (se non nessuna) possibilità di formattazione; da questo punto di vista è molto più versatile il controllo Listview.

Alfredo

Vuoi Approfondire?