Anthony47 ha scritto:Tasto dx sul tab col nome del foglio su cui lavori, scegli Visualizza codice; copia questa macro e incollala nel frame vuoto di dx:
- Codice: Seleziona tutto
Private Sub Worksheet_Calculate()
Application.Calculation = xlManual
If [F1] = 100 Then Exit Sub ' oppure Then MsgBox (100!)
Calculate
End Sub
Poi premi 1 volta F9 e vedi che succede. Ti lascia il "ricalcolo" settato in
Manuale, ripristina tramite Strumenti /Opzioni (o con una macro auoregistrata)
Ciao
Ciao Antony sono andato su Strumenti /Opzioni ...calcolo ... automatico e OK ma non riesco a ripristinare la situazione iniziale cioè dopo la prima volta che ha trovato 3 num che sommati davono 100 non sono riuscito più a ripetere l'esperimento inoltre il valore in F1 100 è un esempio, in verità è un valore 1 che a sua volta è legato ad altre formule e significa che altre situazioni si sono verificate per cui mi vanno bene quei tre numeri e premendo F9 questo deve continuare a proporre sempre nuove terzine fino a quando in F1 appare 1 è un modo per vedere se diciamo in 100 estrazioni del lotto quali sono i tre numeri che si ripetono in un tempo ragionevole li controllo con delle formule che al verificarsi delle quali se si verificano fanno apparire 1 in F1 e la macro si blocca proponendomi la terzina diciamo che in quell'arco di estrazioni mi ha dato fino allora una certa periodicità .
Fin ora ho fatto questo con una macro ma pensavo che fosse più veloce farlo con quest'altro sistema, non so se sono stato chiaro saluti papiriof