|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
01-06-2009, 19.39.39 | #1 |
Newbie
Registrato: 01-06-2009
Messaggi: 1
|
Aiuto con listbox e textbox di excel
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 |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
Aiuto per excel | Hanger.85 | Office suite | 1 | 21-01-2009 22.59.47 |
Aiuto con Excel! | nike2cc | Office suite | 3 | 23-11-2007 13.36.59 |
Aiuto su Excel | MEGS | Office suite | 2 | 08-09-2006 09.52.13 |
[VBA] VBA in Excel - ListBox | Gabry | Programmazione | 4 | 05-10-2005 23.39.26 |
VBA in Excel, filtrare dati in una Listbox | Gabry | Programmazione | 0 | 01-12-2004 18.22.22 |