|
Ciao
Forse non č chiara la domanda o o non c'č soluzione o nessuno sa rispondermi?
Vi pergo. aiutatemi
Provo a riscriverla:
Ho creato un combobox a colonne multiple. 9 per la precisione. ma non riesco a visualizzare l'intestazione delle colonne.
Public Sub InizializzaComboBoxBolle()
Dim lngRighe As Long
Dim lngRigheMatrice As Long
Sheets("Bolle").Activate
Range("a2").Select
lngRighe = 0
Do While Not IsEmpty(ActiveCell)
lngRighe = lngRighe + 1
ActiveCell.Offset(1, 0).Activate
Loop
ReDim arrBolle(lngRighe - 1, 8)
Range("a2").Select
For lngRigheMatrice = 1 To lngRighe
arrBolle(lngRigheMatrice - 1, 0) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 1) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 2) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 3) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 4) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 5) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 6) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 7) = ActiveCell.Value
ActiveCell.Offset(0, 1).Activate
arrBolle(lngRigheMatrice - 1, 8) = ActiveCell.Value
ActiveCell.Offset(1, -8).Activate
Next lngRigheMatrice
cmbNumeroBolla.ColumnHeads = True
cmbNumeroBolla.ColumnCount = 9
cmbNumeroBolla.ColumnWidths= "70;70;40;60;40;40;80;0;60"
cmbNumeroBolla.List() = arrBolle
End Sub
Dove arrBolle č il mio array
La combobox di per sč funziona correttamente ma la riga dove dovrebbe comparire l'intestazione dell colonne č sempre vuota.
Ho provato ad usare anche solo il comando
cmbNumeroBolla.ListFillRange = "bolle!A2:i28"
ma mi da l'errore
"Impossibile trovare il metodo o il membro dei dati"
ed evidenzia ListFillRange
Aiutoooooo
Ultima modifica effettuata da danlocat il 26/06/2009 alle 11:47 | 
