Si può creare con un ciclo for una colonna di una list con il progressivo dei dati presi da altra colonna sempre della list.
Grazie.
Moderatori: Anthony47, Flash30005
Private Sub CommandButton1_Click()
Dim k As long
For k = 0 To listbox1.listcount -1
listbox1.list(0,2) = listbox1.list(0,1) 'rendo il primo elemento della colonna [b]dati[/b] al della colonna[b] progressivo[/b]
listbox1.list(k+1,2) = listbox1.list(k,2) +listbox1.list(k+1,1)
Next
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Dim k As long
For k = 0 To listbox1.listcount -1
listbox1.list(0,2) =Format(CDbl( listbox1.list(0,1)),"#,###.00") ' prima riga colonna PROGRESSIVO uguale a prima riga colonna DATI
listbox1.list(k+1, 2) = Format(CDbl(listbox1.list(k, 2)), +CDbl(listbox1.list(k+1, 1)), "#,###.00")
Next
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Dim k As long
For k = 0 To listbox1.listcount -1
listbox1.list(0,2) =CInt( listbox1.list(0,1)) ' prima riga colonna PROGRESSIVO uguale a prima riga colonna DATI
listbox1.list(k+1, 2) = CInt(listbox1.list(k, 2)) +CInt(listbox1.list(k+1, 1))
Next
End Sub
Anthony47 ha scritto:Lieto che hai risolto da solo provando e riprovando...
Private Sub Userform_Activate()
<<<<<<<<<< segue codice
Altre soluzioni sarebbero interessanti.
talento ha scritto:Altre soluzioni sarebbero interessanti.
Saro' di coccio, ma questo non l' ho ancora capito...Anthony qualche giorno fa ha scritto: Partendo da quei dati che cosa vuoi ottenere?
Torna a Applicazioni Office Windows
Eliminare da Codice : l'ultimo numero progressivo inserito n Autore: Maury170419 |
Forum: Applicazioni Office Windows Risposte: 6 |
Indirizzare le shapes con un numero no. Progressivo Autore: Maury170419 |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 35 ospiti