| | Post: 86 | Registrato il: 04/01/2004
| Città: TREVISO | Utente Junior | 2007 | | OFFLINE | |
|
24/01/2024 11:09 | |
Ciao, non essendo capace vi chiedo se è possibile in Vba
avere un codice che faccia quanto segue:
Nel foglio "Ruota1" e nella schermata delle estrazioni
evidenziare una coppia di numeri uguali sortita nella medesima posizione non importa se abbiamo 61-80 su una ruota
e su sull'altra 80-61 l'importante rispettare che siano uguali considerando tutte le ruote l'importante la posizione delle coppie di numeri.
ho evidenziato nella schermata di esempio un caso che riguarda la ruota di Torino e Venezia.
Allego file excel.
Grazie come sempre del vostro aiuto [Modificato da saxson 24/01/2024 11:13] |
|
| | Post: 3.704 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
24/01/2024 11:37 | |
ciao
a me non è chiaro anche perchè di giochi ne so poco
Dovresti precisare un po' meglio cosa intendi per posizione etc etc
l'esempio che hai fatto è chiaro ma (per me) non esaustivo
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 86 | Registrato il: 04/01/2004
| Città: TREVISO | Utente Junior | 2007 | | OFFLINE | |
|
24/01/2024 11:47 | |
Ciao Dodo, grazie per l'intervento
cercherò di essere più chiaro:
Come puoi vedere nel foglio Ruota1 precisamente in alto a sx del foglio
Troviamo l'estrazione del lotto
Per ogni ruota ha 5 estratti es Torino 80-28-52-61-24 Venezia 61-55-18-90-21 le posizioni estrattive sono 1,2,3,4,5
Quello che chiedo io è evidenziare la cella in rosso quando troviamo due coppie di numeri uguali
nell'esempio summenzionato abbiamo a Torino come a Venezia nella stessa posizione l'ambo uguale formato dalla coppia 61-80
La stessa medesima cosa va fatta su tutte le ruote quindi quando verifica la coppia uguale non importa quale ruota ma l'importante che
sia nella stessa posizione estrattiva come non importa se su una ruota abbiamo 80-61 e sull'altra 61-80 importante che siano stessi numeri.
Spero di essere stato chiaro. |
| | Post: 3.705 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
24/01/2024 12:01 | |
ciao
mi hai rispiegato 80 e 61 e si era capito....
Mi devi fare 2/3 esempi alternativi perchè continuo a non capire....colpa mia naturalmente
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 87 | Registrato il: 04/01/2004
| Città: TREVISO | Utente Junior | 2007 | | OFFLINE | |
|
24/01/2024 12:17 | |
Spostandoti col cursore all'estrazione del 20/1/24 noterai sulla ruota di Cagliari e Nazionale la coppia 79-51
entrambi sortiti in 1 e 5 posizione estrattiva.
in data 19/1/24 sulla ruota di Genova e Napoli abbiamo la coppia uguale 25-2
In data 30/12/23 sulle ruote di Bari e Palermo abbiamo la coppia uguale 86-4 sortita in 4 e 5 posizione.
|
| | Post: 88 | Registrato il: 04/01/2004
| Città: TREVISO | Utente Junior | 2007 | | OFFLINE | |
|
24/01/2024 12:17 | |
Spostandoti col cursore all'estrazione del 20/1/24 noterai sulla ruota di Cagliari e Nazionale la coppia 79-51
entrambi sortiti in 1 e 5 posizione estrattiva.
in data 19/1/24 sulla ruota di Genova e Napoli abbiamo la coppia uguale 25-2
In data 30/12/23 sulle ruote di Bari e Palermo abbiamo la coppia uguale 86-4 sortita in 4 e 5 posizione.
|
| | Post: 3.706 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
24/01/2024 12:36 | |
ciao...ho capito
la vedo complicata.....comunque: solo coppie??
saluti
[Modificato da dodo47 24/01/2024 12:40] Domenico
Win 10 - Excel 2016 |
| | Post: 89 | Registrato il: 04/01/2004
| Città: TREVISO | Utente Junior | 2007 | | OFFLINE | |
|
24/01/2024 13:24 | |
si, sono molto rari i casi in cui possono esserci delle terzine duplicati |
| | Post: 3.707 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
24/01/2024 17:00 | |
ciao
"sembra" che la montagna abbia partorito un topolino.....
Prova
saluti
Sub tester()
Range("D5:H15").Interior.Color = 16777164
For r = 5 To 15
For j = 4 To 8
For c = j + 1 To 8
n1 = Cells(r, j)
n2 = Cells(r, c)
For r1 = r + 1 To 15
If Cells(r1, j) = n1 And Cells(r1, c) = n2 _
Or Cells(r1, j) = n2 And Cells(r1, c) = n1 Then
Cells(r, j).Interior.ColorIndex = 3
Cells(r, c).Interior.ColorIndex = 3
Cells(r1, j).Interior.ColorIndex = 3
Cells(r1, c).Interior.ColorIndex = 3
End If
Next r1
Next c
Next j
Next r
End Sub [Modificato da dodo47 24/01/2024 17:01] Domenico
Win 10 - Excel 2016 |
| | Post: 90 | Registrato il: 04/01/2004
| Città: TREVISO | Utente Junior | 2007 | | OFFLINE | |
|
24/01/2024 18:12 | |
ciao dodo47
Cosa dire...........Grazieeeeeeee Infinite |
| | Post: 1.067 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Veteran | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
24/01/2024 18:13 | |
ciao Domenico
perchè a me viene così ?
sembrava che l'op cercasse 2 coppie, una su ogni rigo
devo aver sbagliato io qualcosa, fa niente
sì, mi sono incasinato io coi fogli [Modificato da L2018 24/01/2024 18:18]
LEO
https://t.me/LordBrum |
| | Post: 3.708 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
25/01/2024 11:15 | |
@saxson
non ci credevo neanche io...😆😆😆
L2018, 24/01/2024 18:13:
ciao Domenico
perchè a me viene così ?
dall'immagine non si vedono gli altri 3 rossi....non so risponderti
saluti
[Modificato da dodo47 25/01/2024 11:29] Domenico
Win 10 - Excel 2016 |
|
|