Ti sarai reso conto che la tabella nel range G4:M8 non serve a nulla
mentre è stata utilizzata il range AD7:AE27
molto più lineare e dove gli ambi sono corretti
ciao
Moderatori: Anthony47, Flash30005
raimea ha scritto:nel range G4/M8 vanno scritti i propri 21 numeri fortunati
Sub ColoraJ()
Dim Vc(8) As String
Dim Vn(8) As String
Application.ScreenUpdating = False
Application.Calculation = xlManual
Vc(1) = "Verde"
Vc(2) = "Rosso"
Vc(3) = "Arancio"
Vc(4) = "Giallo"
Vc(5) = "Marrone"
Vc(6) = "Viola"
Vc(7) = "Blu"
Vn(1) = 4
Vn(2) = 3
Vn(3) = 45
Vn(4) = 6
Vn(5) = 9
Vn(6) = 54
Vn(7) = 5
Sheets("Archivio UK49s").Select
UR1 = Range("B" & Rows.Count).End(xlUp).Row
Range("I3:I" & UR1).Interior.ColorIndex = xlNone
Range("I3:I" & UR1).Font.ColorIndex = 0
Range("K3:K" & UR1).ClearContents
For RR = 3 To UR1
NCol = Range("I" & RR).Value Mod 7
If NCol = 0 Then NCol = 7
Range("I" & RR).Interior.ColorIndex = Vn(NCol)
If NCol = 2 Or NCol = 5 Or NCol = 6 Or NCol = 7 Then Range("I" & RR).Font.ColorIndex = 2
Range("K" & RR).Value = Vc(NCol)
Next RR
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
ma per quanto riguarda colorare il jolly dove?
Sub ColoraJ()
Dim Vc(10) As String
Dim Vn(10) As String
Application.ScreenUpdating = False
Application.Calculation = xlManual
Vc(1) = "Verde"
Vc(2) = "Rosso"
Vc(3) = "Arancio"
Vc(4) = "Giallo"
Vc(5) = "Marrone"
Vc(6) = "Viola"
Vc(7) = "Blu"
Vn(1) = 4
Vn(2) = 3
Vn(3) = 45
Vn(4) = 6
Vn(5) = 9
Vn(6) = 54
Vn(7) = 5
Sheets("Archivio UK49s").Select
UR1 = Range("B" & Rows.Count).End(xlUp).Row
Range("k3:k" & UR1).Interior.ColorIndex = xlNone
Range("k3:k" & UR1).Font.ColorIndex = 0
Range("K3:K" & UR1).ClearContents
For RR = 3 To UR1
NCol = Range("i" & RR).Value Mod 7
If NCol = 0 Then NCol = 7
Range("k" & RR).Interior.ColorIndex = Vn(NCol)
If NCol = 2 Or NCol = 5 Or NCol = 6 Or NCol = 7 Then Range("k" & RR).Font.ColorIndex = 2
Range("K" & RR).Value = Vc(NCol)
Next RR
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
For RR = 3 To UR1
For RR = URI To UR1
'Range("k3:k" & UR1).Interior.ColorIndex = xlNone
'Range("k3:k" & UR1).Font.ColorIndex = 0
'Range("K3:K" & UR1).ClearContents
Sub RitAttCol()
Dim Vc(10) As String
Application.ScreenUpdating = False
Application.Calculation = xlManual
Sheets("Archivio UK49s").Select
URK = Range("K" & Rows.Count).End(xlUp).Row
For VV = 1 To 7
ContaR = 0
Vc(VV) = Sheets("Statistiche").Range("F" & 41 + VV).Text
For RR = URK To 3 Step -1
ContaR = URK - RR
If Range("K" & RR).Text = Vc(VV) Then
Sheets("Statistiche").Range("G" & 41 + VV).Value = ContaR
GoTo SaltaVV
End If
Next RR
SaltaVV:
Next VV
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
(considero che, se il colore sia uscito nell'ultima estrazione, il ritardo sia 0 )
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 59 ospiti