|
Ciao, Matteo. nella prima opzione escludi una volta per tutte un numero fisso
Sub main() r=1 For es=EstrazioneFin-10 To EstrazioneFin Scrivi For p= 1 To 5 a=Estratto(es,r,p) If a<>6 Then Scrivi Format2(a)&" ",0,0 End If next next
End Sub
nella seconda opzione escludi di volta in volta il numero che vuoi che puoi variare ad ogni estrazione Sub main() r=1 For es=EstrazioneFin-10 To EstrazioneFin esc=InputBox(" escludi",,5) If esc="" Then Exit sub Scrivi For p= 1 To 5 a=Estratto(es,r,p) If a<>6 Then Scrivi Format2(a)&" ",0,0 End If next next
End Sub
Se non ho inteso, fammi sapere.
Edited by Cinzia28 - 20/6/2021, 20:23
|