Moderatori: Anthony47, Flash30005
[L’estensione rar è stata disattivata e non puó essere visualizzata.]
Sub Ambi()
Application.ScreenUpdating = False
For I = 1 To 60
CA = 13
For K = 6 To 10
Z = 1
While K + Z < 12
Cells(CA, I) = Cells(K, I)
Cells(CA + 1, I) = Cells(K + Z, I)
Z = Z + 1
CA = CA + 3
Wend
Next
CA = 13
Next
Application.ScreenUpdating = True
End Sub
[L’estensione zip è stata disattivata e non puó essere visualizzata.]
Data I II III IV V VI J Star
15/11/2008 5 7 13 40 52 84 37 21
13/11/2008 15 17 24 31 80 86 52 48
11/11/2008 6 10 22 48 61 65 58 70
08/11/2008 3 31 33 37 52 54 17 42
06/11/2008 24 26 31 39 49 81 89 29
04/11/2008 6 28 32 39 57 85 47 51
03/11/2008 16 21 33 42 52 66 19 75
30/10/2008 2 25 26 41 55 75 59 15
28/10/2008 5 9 50 80 82 88 89 18
[L’estensione rar è stata disattivata e non puó essere visualizzata.]
Sub due()
Dim I As Integer, J As Integer, K As Integer, L As Integer, M As Integer, N As Integer
Dim Cn2 As Integer, Cn3 As Integer, Cn4 As Integer, Punti As Integer
'Application.ScreenUpdating = False
'Application.Calculation = xlManual
For I = 1 To 584
Sheets("Foglio2").Range("A1").Offset(I, 1).Range("A1:F1").Copy
Range("A23").PasteSpecial Paste:=xlPasteValues, OPERATION:=xlNone, SKIPBLANKS _
:=False, Transpose:=False
For J = 1 To 6
Punti = Application.WorksheetFunction.CountIf(Range("A15:BH15"), J)
If Punti > 0 Then Range("max").Offset(0, J).Value = Range("max").Offset(0, J).Value + Punti
Next J
'Application.ScreenUpdating = True
'Application.ScreenUpdating = False
Next I
End Sub
Fonte: http://it.wikipedia.org/wiki/Superenalotto#RecordIl SuperEnalotto è il gioco d'azzardo a premi più difficile al mondo di tutti i tempi (l'Euromillions, che distribuisce pure premi molto ricchi, è giocato su meno numeri); centrare 6 numeri, ciascuno tra 1 e 90, rappresenta il record assoluto di probabilità matematica inferiore a tutti i giochi del mondo di questa tipologia, da sempre.
Torna a Applicazioni Office Windows
Modidica Formula Somma I Riferimenti Autore: Francesco6918 |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Formula per proporzionare un numero Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
formula che conta erroneamente celle "vuote" Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 99 ospiti