Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

LEGGERE DATI DA UNA MATRICE

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

LEGGERE DATI DA UNA MATRICE

Postdi piter123 » 19/04/08 10:04

Salve,

uso una scrollbar per incrementare una cella di excel.
A seconda del valore di questa cella che và da 1 a 4 devo far associare dei valori ad altre celle.
Una volta in basic (sono passati ormai tanti anni) mi sembrava si facesse così o qualcosa di simile, ovviamente in visual basic non mi funziona.

Dim MINSCALAY(4) As Double
Dim MAXSCALAY(4) As Double
Dim MINUNITSCALAY(4) As Double
Dim MAXUNITSCALAY(4) As Double

I = Range("B72") 'valore della cella variata dalla scrollbar (da 1 a 4)

READ MINSCALAY(I), MAXSCALAY(I), MINUNITSCALAY(I), MAXUNITSCALAY(I)

Range("AA16") = MINSCALAY(I)
Range("AA17") = MAXSCALAY(I)
Range("AA18") = MINUNITSCALAY(I)
Range("AA19") = MAXUNITSCALAY(I)


Data -500, 750, 100, 100
Data -1000, 1500, 250, 250
Data -2500, 4000, 500, 500
Data -5000, 7500, 1000, 1000
piter123
Utente Senior
 
Post: 190
Iscritto il: 07/11/07 18:31

Sponsor
 

Re: LEGGERE DATI DA UNA MATRICE

Postdi piter123 » 19/04/08 10:57

Ho risolto con un sistema poco nobile

Dim I As Integer
Dim SCALAY(11, 4) As Double

SCALAY(1, 1) = -500: SCALAY(1, 2) = 750: SCALAY(1, 3) = 100: SCALAY(1, 4) = 100
SCALAY(2, 1) = -1000: SCALAY(2, 2) = 1500: SCALAY(2, 3) = 250: SCALAY(2, 4) = 250
SCALAY(3, 1) = -2500: SCALAY(3, 2) = 4000: SCALAY(3, 3) = 500: SCALAY(3, 4) = 500
SCALAY(4, 1) = -5000: SCALAY(4, 2) = 7500: SCALAY(4, 3) = 1000: SCALAY(4, 4) = 1000
SCALAY(5, 1) = -10000: SCALAY(5, 2) = 15000: SCALAY(5, 3) = 2500: SCALAY(5, 4) = 2500
SCALAY(6, 1) = -15000: SCALAY(6, 2) = 20000: SCALAY(6, 3) = 2500: SCALAY(6, 4) = 2500
SCALAY(7, 1) = -25000: SCALAY(7, 2) = 40000: SCALAY(7, 3) = 5000: SCALAY(7, 4) = 5000
SCALAY(8, 1) = -50000: SCALAY(8, 2) = 75000: SCALAY(8, 3) = 10000: SCALAY(8, 4) = 10000
SCALAY(9, 1) = -75000: SCALAY(9, 2) = 100000: SCALAY(9, 3) = 10000: SCALAY(9, 4) = 10000
SCALAY(10, 1) = -100000: SCALAY(10, 2) = 150000: SCALAY(10, 3) = 20000: SCALAY(10, 4) = 20000
SCALAY(11, 1) = -150000: SCALAY(11, 2) = 200000: SCALAY(11, 3) = 20000: SCALAY(11, 4) = 20000


I = Range("B72")


Range("AA16") = SCALAY(I, 1)
Range("AA17") = SCALAY(I, 2)
Range("AA18") = SCALAY(I, 3)
Range("AA19") = SCALAY(I, 4)
piter123
Utente Senior
 
Post: 190
Iscritto il: 07/11/07 18:31

Re: LEGGERE DATI DA UNA MATRICE

Postdi Anthony47 » 19/04/08 22:19

Tutte le soluzioni che che raggiungono lo scopo hanno la stessa dignita'...

Senza macro avresti potuto usare in AA16 la formula
Codice: Seleziona tutto
=SCARTO($V$1;RIF.RIGA(V1)-RIF.RIGA($V$1);$B$72-1)

Poi copi da AA16 nelle celle sottostanti q.b. (10 celle?).
Questo avendo posizionato i dati che hai caricato in SCALAY(11,4) nel range V1:Y11

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "LEGGERE DATI DA UNA MATRICE":


Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti