impostazioni listbox

Hai un problema con Excel?

Nuova discussione

impostazioni listbox
di mb (utente non iscritto) data: 17/06/2014 12:32:50
buon giorno ho una listbox, avrei bisogno di sapere quali solo le impostazioni da modificare e se è possibile visualizzare i dati con una griglia che separi i dati in righe e colonne
2 domanda è possibile ordinare la listbox ad esempio per fornitore in ordine alfabetico o le colonne degli importi in ordine crescente o decrescente

grazi
di lepat (utente non iscritto) data: 17/06/2014 12:47:02
non vedo listbox nel tuo file
di mb (utente non iscritto) data: 17/06/2014 13:35:14
prova a fare alt+F11 e vedrai che si apre vba con quanto impostato

...
di lepat (utente non iscritto) data: 17/06/2014 19:52:07
ti conviene utilizzare il controllo listview che premette tutto quello che chiedi
di lepat (utente non iscritto) data: 17/06/2014 20:19:33
un esempio di codice
h t t p://www.xl-central.com/fill-a-listview-on-a-userform.html
di mb (utente non iscritto) data: 17/06/2014 21:44:26
grazie vado a leggere

ci riaggiorniamo domani

buona serata
di mb (utente non iscritto) data: 17/06/2014 22:23:16
gentilissimo lepat ho applicato quanto da tesuggerito e sono riuscito a caricare la listwiev.

gentilmente mi potresti dare ancora una dritta per poter effettuare il punto 2 della mia domanda:

ordinare la colonna con i nomi
oppure ordinare la colonna degli importi per valore crescente o decrescente come si fa con le frecce A Z di excel

grazie

di lepat (utente non iscritto) data: 18/06/2014 07:56:33
non l'ho mai fatto, ma ho scritto su google "vba sort listview" ed ho trovato la soluzione, basta aggiungere le seguenti sub e poi cliccare sui nomi delle colonne

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Call LV_ColumnSort(ListView1, ColumnHeader)
End Sub

Public Sub LV_ColumnSort(ListViewControl As ListView, _
  Column As ColumnHeader)
 With ListViewControl
  If .SortKey <> Column.Index - 1 Then
   .SortKey = Column.Index - 1
   .SortOrder = lvwAscending
  Else
   If .SortOrder = lvwAscending Then
    .SortOrder = lvwDescending
   Else
    .SortOrder = lvwAscending
   End If
  End If
  .Sorted = -1
 End With
End Sub

di mb (utente non iscritto) data: 18/06/2014 10:02:10
grande lepat

ma quante ne sai
grazie per il grande aiuto
alla prossima

Vuoi Approfondire?