vba listbox multicolumn aggiungi

Possibile duplicato:
Aggiunta di elementi in una Listbox con più colonne

Con MFC VC ++ ci sono due controlli, ListBox e ListCtrl . Ma con VBA sembra che abbiamo solo ListBox .

Voglio creare una listbox con 2 colonne (Company_ID, Company_Name).

Ecco cosa ho provato:

  1. Ho creato lstbox (controllo tipo ListBox)
  2. Tipo di origine riga = elenco valori
  3. Sto prendendo valore dall’utente da due caselle di modifica e quando l’utente fa clic su “aggiungi”, quindi dovrebbe essere aggiunto alla casella di riepilogo con 2 colonne.

Nella routine del codice VBA ho aggiunto le seguenti righe:

 lstbox.ColumnCount = 2 lstbox.AddItem (Company_ID) 

Il seguente codice non funziona che sembra essere correlato all’aggiunta del valore della colonna:

 lstbox.Column(1,lstbox.ListCount - 1) = Company_name 

Questo dà errore:

È richiesto l’errore di runtime “424”.

Qualcuno potrebbe aiutare con il codice vba da aggiungere alla listbox multi colonna.

Esempio semplificato (con contatore):

 With Me.lstbox .ColumnCount = 2 .ColumnWidths = "60;60" .AddItem .List(i, 0) = Company_ID .List(i, 1) = Company_name i = i + 1 end with 

Assicurati di avviare il contatore con 0 , non 1 per riempire una listbox.