PDA

Visualizza versione completa : Aiuto con listbox e textbox di excel


andros-66
01-06-2009, 19.39.39
Salve a tutti;
premetto che sono novizio nelle programmazione di excel ed il relativo vba.
Ho fatto una piccola applicazione di fatture che uso nella mia ditta.
Seguendo i consigli e copiando il codice da un libro in mio possesso ho preso spunto per fare una user form che mi filtra le fatture emesse e le trascrive in listbox, il codice č il seguente:

Private Sub UserForm_Activate()
ListBox1.AddItem "Nr."
ListBox1.List(0, 1) = "Emissione"
ListBox1.List(0, 2) = "Cliente"
ListBox1.List(0, 3) = "Imponibile"
ListBox1.List(0, 4) = "Importo Iva"
ListBox1.List(0, 5) = "Totale Fattura"
End Sub


Private Sub CommandButton1_Click()
riga = 0
Range("k1") = CDate(TextBox1)
Range("l1") = CDate(TextBox2) 'inserisce i dati inseriti nelle text1 e 2 nelle celle
For y = 2 To 65000
If Range("c" & y) >= Range("k1") And Range("b" & y) <= Range("l1") Then 'li confronta
Range("c" & y).Select
' filtra i valori delle date inseriti e li riporta in listbox1
riga = riga + 1
PrintFatt.ListBox1.AddItem Range("b" & y)
PrintFatt.ListBox1.List(riga, 1) = Range("c" & y)
PrintFatt.ListBox1.List(riga, 2) = Range("d" & y)
PrintFatt.ListBox1.List(riga, 3) = Range("e" & y)
PrintFatt.ListBox1.List(riga, 4) = Range("f" & y)
PrintFatt.ListBox1.List(riga, 5) = Range("g" & y)

End If
Next
End Sub

Fin qui tutto bene e tutto funziona a meraviglia, ma vorrei inserire tre textbox che mi calcolino la somma deell'mponibile, importo iva e totale fattura. Al momento uso l'espediente di riportare i dati filtrati in un nuovo foglio e lasciando a tre celle da me stabilite il compito della somma; ma se possibile vorrei rendere l'applicazione pių elegante e dinamica, lasciando alla form i calcoli del caso, il tutto credo sia possibile e chiederei un aiuto con il codice da aggiungere.
Ho provato ad aggiungere alla fine del construtto lanciato dal click di command button 1, la seguente riga

'TextBox1.Value = CDbl(ListBox1.list(riga, 3)), funziona ma mi calcola solo il valore di una riga selezionata.
Pių di questo non arrivo a fare, potreste aiutarmi?
Grazie anticipate