Condividi:        

progressivo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

progressivo

Postdi talento » 18/08/13 18:15

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.
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Sponsor
 

Re: progressivo

Postdi Anthony47 » 18/08/13 22:17

Si, penso si possa fare; per qualcosa in piu' dovresti pero' spiegare "piu' in dettaglio" quale e' la tua struttura dati e che cosa vuoi ottenere. Potrebbe anche essere utile uno screenshot, in aggiunta alla descrizione; per come fare guarda qui: viewtopic.php?f=26&t=80395#p466013

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: progressivo

Postdi talento » 19/08/13 07:46

datI++++++++++++progressivo
1+++++++++++++++1
2+++++++++++++++3
3+++++++++++++++6
4+++++++++++++++10
5+++++++++++++++15
6+++++++++++++++21
7+++++++++++++++28
8+++++++++++++++36
9+++++++++++++++45
10++++++++++++++55

ho provato con questo codice
Codice: Seleziona tutto
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
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: progressivo

Postdi talento » 19/08/13 13:58

[quote="Anthony47"]Si, penso si possa fare; per qualcosa in piu' dovresti pero' spiegare "piu' in dettaglio" quale e' la tua struttura dati e che cosa vuoi ottenere. Potrebbe anche essere utile uno screenshot, in aggiunta alla descrizione; per come fare guarda qui: viewtopic.php?f=26&t=80395#p466013
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: progressivo

Postdi talento » 19/08/13 14:09

[
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: progressivo

Postdi talento » 19/08/13 14:42

Mi scuso ho incasinato con messaggi .
Facendo ulteriori prove pur calcolando il progressivo mi esce il debug con:
errore di run-time 381
impossibile leggere la proprietà list
indice della matrice di proprietà non valido
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: progressivo

Postdi talento » 19/08/13 18:43

Prova e riprova questa è la mia soluzione

list con decimali

Codice: Seleziona tutto
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


list con numeri interi

Codice: Seleziona tutto
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
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: progressivo

Postdi Anthony47 » 19/08/13 21:58

Lieto che hai risolto da solo provando e riprovando...

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: progressivo

Postdi talento » 20/08/13 06:34

Anthony47 ha scritto:Lieto che hai risolto da solo provando e riprovando...

Altre soluzioni sarebbero interessanti.
Ciao
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: progressivo

Postdi Anthony47 » 21/08/13 00:30

Ehm... allora devo confessarti che non ho ancora capito.
La tua struttura dati di partenza e' una tabella di due colonne datI / progressivo (come descritto nel post del 19/08/13 08:46)? Se Si, puoi darne le coordinate (bastano quelle dell' intestazione); se No allora dovresti descrivere questa struttura.
Partendo da quei dati che cosa vuoi ottenere? (o in quale messaggio lo gia' hai descritto).

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: progressivo

Postdi talento » 26/08/13 19:37

Ho visto solo oggi il tuo intervento Anthony47.
Parliamo di listbox.
Con
Codice: Seleziona tutto
Private Sub Userform_Activate()
<<<<<<<<<< segue codice
mi compare la list box con la solo colonna dati
la seconda colonna progressivo non è altro che il progressivo della colonna dati
Per spiegarmi

A = dati
B = progressivo
1 = prima riga
2 = seconda riga ecc.
1B = 1A
2B = 1B+2A
3B = 2b+3A ecc.

Per fare questo ho usato il codice del post del 19/08/13 18:43

con
Altre soluzioni sarebbero interessanti.


ho inteso che c'è sempre da imparare con altre soluzioni.
Ciao
talento
Utente Junior
 
Post: 40
Iscritto il: 31/12/12 17:08

Re: progressivo

Postdi scossa » 26/08/13 19:42

talento ha scritto:Altre soluzioni sarebbero interessanti.


Secondo me, se allegassi un file di esempio, conforme e coerente con il tuo file reale, otterresti più facilmente qualche altra soluzione.
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 427
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: progressivo

Postdi Anthony47 » 27/08/13 01:52

In aggiunta al commento di Scossa (vedi sopra)

Anthony qualche giorno fa ha scritto: Partendo da quei dati che cosa vuoi ottenere?
Saro' di coccio, ma questo non l' ho ancora capito...
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "progressivo":


Chi c’è in linea

Visitano il forum: Nessuno e 35 ospiti