Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

Excel codice vba

  • Messaggi
  • OFFLINE
    saxson
    Post: 86
    Registrato il: 04/01/2004
    Città: TREVISO
    Utente Junior
    2007
    00 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]
  • OFFLINE
    dodo47
    Post: 3.704
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 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
  • OFFLINE
    saxson
    Post: 86
    Registrato il: 04/01/2004
    Città: TREVISO
    Utente Junior
    2007
    00 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.
  • OFFLINE
    dodo47
    Post: 3.705
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 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
  • OFFLINE
    saxson
    Post: 87
    Registrato il: 04/01/2004
    Città: TREVISO
    Utente Junior
    2007
    00 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.
  • OFFLINE
    saxson
    Post: 88
    Registrato il: 04/01/2004
    Città: TREVISO
    Utente Junior
    2007
    00 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.
  • OFFLINE
    dodo47
    Post: 3.706
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 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
  • OFFLINE
    saxson
    Post: 89
    Registrato il: 04/01/2004
    Città: TREVISO
    Utente Junior
    2007
    00 24/01/2024 13:24
    si, sono molto rari i casi in cui possono esserci delle terzine duplicati
  • OFFLINE
    dodo47
    Post: 3.707
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 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
  • OFFLINE
    saxson
    Post: 90
    Registrato il: 04/01/2004
    Città: TREVISO
    Utente Junior
    2007
    00 24/01/2024 18:12
    ciao dodo47
    Cosa dire...........Grazieeeeeeee Infinite
  • OFFLINE
    L2018
    Post: 1.067
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Veteran
    EXCEL 2016 - SPREAD32
    00 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
  • OFFLINE
    dodo47
    Post: 3.708
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 25/01/2024 11:15
    Re:
    @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
Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima