Vediamo se posto bene quest'immagine........
Uploaded with ImageShack.us
Come fare per farla venire più grande?
Moderatori: Anthony47, Flash30005
Sub speedc1()
Dim VArr
Dim I As Integer, J As Integer, M As Integer, N As Integer
'"M" è = da 1 a 90---- "N" è = a "M" + 1 ma sempre fino a 90 (sono i 2 elementi dell'ambo)
Dim Ctr As Integer, Ambi As Integer, LastR As Long
'
TargAm = [al1]
Range("AK4:AM1000").Clear 'pulisce l'intervallo dove si piazzeranno gli ambi trovati che abbiano le caratteristiche
'giuste cioè siano usciti in un numero maggiore di quello indicato nella cella "AL1" TargAm = [AL1]
LastR = Cells(Rows.Count, 2).End(xlUp).Row
VArr = Range("J7:N" & LastR).Value ' " J7 " è la cella d'inizio " N "& LastR cioè 5 colonne fino all'ultima riga(variabile)
aaaa = UBound(VArr, 1)
For M = 1 To 90 ' "M" è il primo elemento dell'ambo
' Application.ScreenUpdating = False
For N = M + 1 To 90 ' "N" è il secondo elemento dell'ambo
Ambi = 0 'per adesso gli ambi sono ZERO
For I = 1 To UBound(VArr, 1)
Ctr = 0
For J = 1 To 5
If VArr(I, J) = M Then Ctr = Ctr + 1
If VArr(I, J) = N Then Ctr = Ctr + 1
Next J
If Ctr = 2 Then Ambi = Ambi + 1
Next I
If Ambi > TargAm Then 'se "Ambi" è in un numero maggiore di quello indicato nella cella "AL1" TargAm = [AL1] Allora....
NRow = Cells(Rows.Count, "AK").End(xlUp).Offset(1, 0).Row
Cells(NRow, "AK") = M: Cells(NRow, "AL") = N: Cells(NRow, "AM") = Ambi
End If
Next N
' Application.ScreenUpdating = True
Next M
End Sub
Flash30005 ha scritto:Quindi?
Flash30005 ha scritto:Siamo qui
gorgioa ha scritto:Ciao Papirof
ho letto questo tuo post
ma non vedo il link per scaricare il file.
Siccome mi piace tanto la tua ricerca potresti indicarmi come scaricarlo
ciao
P.s mi piace davvero tanto
Torna a Applicazioni Office Windows
Classi e radici quadrate applicate ai 90 numeri del lotto. Autore: nelson1331 |
Forum: Applicazioni Office Windows Risposte: 8 |
cercare e prelevare 128 estraz del lotto Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 6 |
Questo progetto (dedicato al lotto), si puo' realizzare ? Autore: nelson1331 |
Forum: Applicazioni Office Windows Risposte: 18 |
Visitano il forum: Nessuno e 37 ospiti