[vba] semplice ma...

[ramset64]

Dim MemCumx(30) as long

For z = 1 To 30

MemCumx(z) = z


Next z

x = Application.WorksheetFunction.Match(Application.WorksheetFunction.Max(MemCumx()), MemCumx(), 0)

Da questo semplice codice mi aspetto che il valore x sia uguale a 30 ovvero il maggiore delle variabili MemCumx(1) - MemCumx(30) eppure mi viene sempre restituito 31.... dove cavolo sbaglio?

[ramset64]

Prima che qualcuno, giustamente, mi suggerisca che basta srivere Application.WorksheetFunction.Max(MemCumx()) per avere il valore massimo, specifico che a me serve individuare la z del valore massimo per poterlo comparare con altra tabella. :-)

[Flash30005]

Prova così

Codice: Seleziona tutto

Dim MemCumx(30) as long
For z = 1 To 30
MemCumx(z) = z
If z = 30 then goto saltaZ
Next z
saltaz:
x = Application.WorksheetFunction.Match(Application.WorksheetFunction.Max(MemCumx()), MemCumx(), 0)


Il problema sta nel fatto che il for next lavora benissimo ma quando ha raggiunto il valore massimo (30) il suo next z aggiunge 1 a 30 e il For non lo esegue più ma z è ormai al valore superiore da quello che ti aspettavi

ciao

[ramset64]

Ciao Flash, ho provato il tuo suggerimento (in realtà l'avevo già provato anche prima) ma continuo ad ottenere 31 ed in effetti non può essere quella da te suggerita la soluzione.
Continua ad essere questa la formula che non funziona:
x = Application.WorksheetFunction.Match(Application.WorksheetFunction.Max(MemCumx()), MemCumx(), 0)
mentre il semplice max della variabile ovvero:
Application.WorksheetFunction.Max(MemCumx())
restituisce correttamente 30, il problema sempre essere nella funzione Match.
Ciao

[Flash30005]

Beh tutta la routine For...Next non serve proprio a nulla, prova così

Codice: Seleziona tutto

Sub prova()
Dim MemCumx(30) As Long
x = Application.WorksheetFunction.Match(Application.WorksheetFunction.Max(MemCumx()), MemCumx())
MsgBox x
End Sub

L'errore penso sia dovuta alla funzione Match... Ma dove l'hai trovata? E cosa dovrebbe fare?

Ciao

[Anthony47]

Flash, credo che Ramset avesse posto un altro problema.

Per Ramset: l' equivoco nasce dal fatto che tu sei convinto di aver definito una matrice di 30 celle, ma la matrice certamente ne ha 31 perche' (credo) tu non hai impostato Option Base 1 e quindi la prima cella del tuo array e' MemCumx(0) mentre con MemCumx(30) fai riferimento alla trentunesima.
E la tua X cerca la posizione, non l' indice.

Quindi il mio suggerimento e' impostare Option Base 1 in testa al modulo, oppure usare usare
Dim MemCumx(1 To 30) As Long

Ciao

[ramset64]

Come al solito Anthony for ever.... ho ragione a chiamarlo magico.... grazie!!!!
Grazie anche a Flash ovviamente.
Ciao