Moderatori: Anthony47, Flash30005
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)
Sub prova()
Dim MemCumx(30) As Long
x = Application.WorksheetFunction.Match(Application.WorksheetFunction.Max(MemCumx()), MemCumx())
MsgBox x
End Sub
Torna a Applicazioni Office Windows
Consiglio acquisto notebook 10" per contabilità semplice Autore: teo78 |
Forum: Consigli per gli acquisti Risposte: 2 |
[EXCEL] ... Questa e' una domanda semplice..:-) Autore: rosy2 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 20 ospiti