Moderatori: Anthony47, Flash30005
Public Cippa As Long
Sub RiceviValore(Valore) 'All'interno di File1
Cippa = Valore
Debug.Print "BBB", Valore
End Sub
Public PippoL As Long 'All'interno di File2
Sub EsportaValore() 'All'interno di File1
PippoL = 33
Application.Run "'FILE1_Xyz.xlsm'!RiceviValore", PippoL
End Sub
Suppongo volessi dire "in un File con vari Fogli e vari Moduli vba"In un file e diverse cartelle, diversi moduli
Detto così mi si e' surriscaldato il neurone di sinistra a cercare di capire il pensiero che c'e' dietro la frase...ho creato un for e mi servo della variabile che sta in Pippo
detto e scritto così la variabile che sta in Pippo fa funzionare il For?
Public QualsiasiNome
'..
'..
Dim Best(1 To 4) 'Matrice di appoggio
Best(3) = 999 'Usato per "differenza tra cercato e calcolato"
For I = MinI To MaxI
For J = MinJ To MaxJ
Range("A1") = I 'varia i parametri A1 e B1
Range("B1") = J
Call CalcolaValore 'calcola il risultato della simulazione
If Abs(Result - ValoreAtteso) < Best(3) Then 'Controlla se l'errore e' il piu' basso
Best(1) = I 'Se Sì, salva i parametri e il risultato
Best(2) = J 'Best(1) e (2) contengono I e J
Best(3) = Abs(Result - ValoreAtteso) 'Best(3) contiene l'errore tra Cercato e Calcolato
Best(4) = Result 'Best(4) contiene il valore Calcolato
End If
If Result = ValoreAtteso Then Exit For 'Se Tovato=Cercato allora termina
Next J
If Result = ValoreAtteso Then Exit For 'idem
Next I
Debug.Print Best(1), Best(2), Best(4) '"Stampa" nella finestra Immediata il miglior risultato
Public Result as Double 'il tipo=double ipotizza che il risultato sia un numero con decimali
Torna a Applicazioni Office Windows
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
File batch per copiare file selezionato da menu contestuale Autore: valle1975 |
Forum: Programmazione Risposte: 3 |
Visitano il forum: Nessuno e 20 ospiti