LEGGERE DATI DA UNA MATRICE

[piter123]

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]

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)

[Anthony47]

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.