Condividi:        

Excel - Evidenziare valori uguali

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel - Evidenziare valori uguali

Postdi matlecc » 30/05/10 14:13

Come posso far confrontare in exel avendo 15 colonne
contenenti ognuna 5 celle, se alcune contengono 2 valori uguali ?
Grazie se qualcuno mi può aiutare.
matlecc
Utente Junior
 
Post: 18
Iscritto il: 30/05/10 13:56

Sponsor
 

Re: Excel - Evidenziare valori uguali

Postdi Flash30005 » 30/05/10 14:22

Ciao Matlecc e benvenuto nel Forum

Non è molto chiaro il tuo quesito
hai 15 colonne quindi dalla colonna "A" alla colonna "O"
occupate per 5 celle, intendi righe?
Inoltre il confronto lo vuoi sulla stessa riga, tra le righe, tra le colonne o cella per cella di tutto il range (da A1 a O5)?

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel - Evidenziare valori uguali

Postdi matlecc » 30/05/10 21:00

Grazie della tua attenzione.
Ti faccio un esempio
prediamo cinque celle e ci mettiamo dei numeri es 1 2 3 4 5
avrei bisogno della possibilità che nelle colonne successive possa verivicare se esistono almeno 2 di questi numeri.
Ovviamente l'esempio 1 2 3 4 5 è simbolico, perche ad ognuna delle colonne ci saranno 5 numeri diversi.

A B C D E F G H I L M N O P Q
1) 1 13
2) 2 14
3) 3 15
4) 4 16
5) 5 17

e così via...
deve confrontare e magari evidenziare quelle serie di 5 numeri che contengono almeno 2 numeri uguali.
matlecc
Utente Junior
 
Post: 18
Iscritto il: 30/05/10 13:56

Re: Excel - Evidenziare valori uguali

Postdi Flash30005 » 30/05/10 22:21

Prova questa macro

Codice: Seleziona tutto
Sub ContrDoppie()
Range("A1:O5").ClearFormats
ColN = 32
For CC = 1 To 14
Dim VN1(5) As Integer
Dim VN2(5) As Integer
For RR1 = 1 To 5
VN1(RR1) = Cells(RR1, CC).Value
Next RR1
For CC2 = CC + 1 To 15
Conta = 0
For RR1 = 1 To 5
VN2(RR1) = Cells(RR1, CC2).Value
For Nv = 1 To 5
If VN1(Nv) = VN2(RR1) Then
    Conta = Conta + 1
    Mn1 = Mn2
    Mn2 = Nv
    Mr1 = Mr2
    Mr2 = RR1
    If Conta > 1 Then
        Cells(Mn1, CC).Interior.ColorIndex = ColN + CC
        Cells(Mn2, CC).Interior.ColorIndex = ColN + CC
        Cells(Mr1, CC2).Interior.ColorIndex = ColN + CC
        Cells(Mr2, CC2).Interior.ColorIndex = ColN + CC
    End If
    GoTo NRR
End If
Next Nv
NRR:
Next RR1
Next CC2
Next CC
End Sub


Fai sapere
Ciao

P.s. ho modificato il titolo del topic per facilitare la ricerca dell'argomento. Può ritornare utile per altri utenti
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel - Evidenziare valori uguali

Postdi matlecc » 31/05/10 09:01

Scusami, ma io non conosco molto excel, mi puoi indicare i passi che devo fare per inserire e far
funzionare la macro. Ti sarei grato.
matlecc
Utente Junior
 
Post: 18
Iscritto il: 30/05/10 13:56

Re: Excel - Evidenziare valori uguali

Postdi Flash30005 » 31/05/10 10:17

Copi l'intero codice che ho pubblicato
(meglio se clicchi su Codice "Seleziona Tutto" della macro)
tasto destro mouse selezioni "Copia"
Apri il foglio di excel
premi i tasti ALT e F11
(si apre la maschera del VBA)
vai sulla Barra Menu e selezioni Inserisci > Modulo
All'interno della finestra (a destra)
incolli il codice copiato
chiudi il VBA (con la "X" rossa in alto a destra)
ti porti sul foglio con i tuoi dati (da A1 a O5)
Premi i tasti ALT e F8
Selezioni la macro "ContrDoppie"
Premi il comando "Esegui" sulla destra della finestra

Dovresti avere il risultato
Ho dato un colore a colonna nel senso che se i valori uguali appartengono alla prima colonna quei valori saranno con fondo verde, se alla seconda gialli etc per avere un riferimento del valore origine.

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel - Evidenziare valori uguali

Postdi miko » 31/05/10 10:18

ciao matlecc,
mi permetto di sostituirmi a flash o ad anthony per queste semplici indicazioni;
ho provato la macro,ovviamente funziona, ma forse dovrai adattarla alle tue esigenge.
apri la tua cartella excel, nella barra degli strumenti trovi una icona, un quadratino con una piccola torcia clicca per aprire il visual basic editor, oppure vai in menu>strumenti>macro>visual basic editor;
si aprirà una altra finestra, sulla sua destra nel pannello PROGETTO-VBAPROJECT
trovi il nome della tua cartella con i fogli di cui è composta;
se il pannello non è visualizzato, sempre nel visual basic editor vai su menu>visualizza>GESTIONE PROGETTI.
portati col mouse sui fogli della cartella, tasto destro e dal menu che appare scegli INSERISCI>MODULO;
vieni nel topic, clicca seleziona tutto, tasto destro > copia;
vai nel modulo ed incolla.
per eseguire la macro fai con tasto F8 per l'esecuzione linea dopo linea, steep by steep;
oppure per l'esecuzione completa clicca il triangolino verde-esegui macro.
spero di essere stato chiaro nel procedimento da seguire.
saluti
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Re: Excel - Evidenziare valori uguali

Postdi matlecc » 31/05/10 10:43

Ho provato nel modo che mi avete indicato, e vi ringrazio, ma non si evidenzia niente.
Forse mi sono espresso male io, il programma mi deve evindenziare se esistono almeno 2 numeri uguali nelle altre colonne da cinque numeri
Il confronto deve essere tra A1,2,3,4,5 con B1,2,3,4,5 e via di seguito fino a O1,2,3,4,5
matlecc
Utente Junior
 
Post: 18
Iscritto il: 30/05/10 13:56

Re: Excel - Evidenziare valori uguali

Postdi matlecc » 31/05/10 10:52

Altrimenti mi fate sapere come posso allegare un file con il lavoro già impostato
così credo che potrei farmi capire meglio.
Tanto non è nulla di misterioso, si tratta di un procedimento che ad ogni estrazione del lotto, mette in gioco
una piccola manciata di ambi con esito immediato.
matlecc
Utente Junior
 
Post: 18
Iscritto il: 30/05/10 13:56

Re: Excel - Evidenziare valori uguali

Postdi miko » 31/05/10 11:18

ciao,
per inviare file usa uno di questi link:
http://www.filedropper.com/
http://rapidshare.com/
http://uploading.com/files/upload/
funzionano in ugual modo;
premendo il tasto sfoglia o upload carichi il file, dopo si apre una altra finestra che ti mostra il link dove gli altri possono prelevare il file.
ho riprovato la macro di flash ed a me funziona, ti mostro cosa ottengo:
Immagine
ma forse non è quello che vorresti ottenere, per cui l'invio del file può far comprendere meglio il tuo obiettivo.
ciao
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Re: Excel - Evidenziare valori uguali

Postdi matlecc » 31/05/10 11:45

Ho inviato il file Felix, ovviamente ad ogni estrazione i numeri della colonna A variano.
In sostanza il procedimento funziona così:
Ruota di BARI 23
56
11
67
84

Ad ogni numero và addizzionato il 6 fino a raggiungere lo stesso numero iniziale, ovvio che se la somma supera 90 si adotta il
fuori 90, o meglio, si detrae 90
Per qui avremmo 15 numeri per ogni riga, per un totale di 75 numeri.
Di seguito stesso procedimento per la ruota di CAGLIARI e via via sino ad arrivare alla ruota di VENEZIA
Quindi il controllo cinquine contenenti almeno due numeri uguali deve avvenire nelle colonne formate da cinque numeri.
A te la soluzione.
matlecc
Utente Junior
 
Post: 18
Iscritto il: 30/05/10 13:56

Re: Excel - Evidenziare valori uguali

Postdi Flash30005 » 31/05/10 11:55

Ok,
ti invio direttamente il file
download file per Matlecc
Cambia i numeri nel range A1:O5
Premi il pulsante Avvia
e vedi se fa quello che chiedevi

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel - Evidenziare valori uguali

Postdi matlecc » 31/05/10 12:29

Per evidenziare va bene, ma come potrai notare nel precedente messaggio ogni qul volta
i numeri nel primo rang cambiano seguono un ordine preciso.
Es numero 23
sarà 23 29 35 41 47 53 59 65 71 77 83 89 5 11 17
Es numero 12
sarà 12 18 24 30 36 42 48 54 60 66 72 78 84 90 6
fino ad ottenere la colanna di cinque numeri
Poi inizia il confronto, ma non solo su quelle 15 colonne da cinque, ma anche su altre colonne
matlecc
Utente Junior
 
Post: 18
Iscritto il: 30/05/10 13:56

Re: Excel - Evidenziare valori uguali

Postdi Flash30005 » 31/05/10 13:34

Vorrei solo sapere se hai utilizzato il file allegato
Il file ha una macro che esegue perfettamente quanto descritto nei primi toui post.
Parlavi di 15 colonne e 5 righe
confrontare i numeri che ogni colonna avesse avuto uguali alle altre colonne
e se la quantità dei numeri fosse stata almeno di 2 dovevano essere evidenziati.
Ora parli di altre colonne :?:

La macro può funzionare per tutte le colonne che vuoi,
è sufficiente modificare i numeri indicati in queste due righe di codice
Codice: Seleziona tutto
For CC = 1 To 14     '<<<< puoi portare a 255 con office 2003 e 16.383 con office 2007
Dim VN1(5) As Integer
Dim VN2(5) As Integer
For RR1 = 1 To 5
VN1(RR1) = Cells(RR1, CC).Value
Next RR1
For CC2 = CC + 1 To 15         '<<<< le colonne della precedente riga-codice + 1


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel - Evidenziare valori uguali

Postdi matlecc » 31/05/10 13:41

Abbi pazienza ma non sono una cima con Excel, è un problema per te semplificarmi il tutto
in modo che io possa aprire il file e sostituire i numeri con una reale estrazione ?
matlecc
Utente Junior
 
Post: 18
Iscritto il: 30/05/10 13:56

Re: Excel - Evidenziare valori uguali

Postdi Flash30005 » 31/05/10 14:51

matlecc ha scritto:Abbi pazienza ma non sono una cima con Excel, è un problema per te semplificarmi il tutto
in modo che io possa aprire il file e sostituire i numeri con una reale estrazione ?


:?:

Se vuoi ci colleghiamo in remoto
ti apro il file sul tuo computer,
ti sostituisco i numeri con una estrazione reale
e ti premo l'apposito pulsante che fa avviare la macro 8)
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel - Evidenziare valori uguali

Postdi miko » 31/05/10 15:00

salve,
se può essere di conforto ho provato il file, EvidenziaValUguali.xls, inviato da flash ed anche questo funziona;
come hai visto nella immagine da me postata ho anche manipolato la macro;
ma forse non mi è chiaro il tuo obiettivo;
se puoi inserire il link dove reperire il file con i tuoi valori reali, dato che come hai detto non è un segreto, forse potremmo darti migliori indicazioni.
ciao
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Re: Excel - Evidenziare valori uguali

Postdi matlecc » 31/05/10 15:10

SE MI DITE COME POSSIAMO COLLEGARCI, CI PROVO.
matlecc
Utente Junior
 
Post: 18
Iscritto il: 30/05/10 13:56

Re: Excel - Evidenziare valori uguali

Postdi matlecc » 31/05/10 15:36

BARI 19 25 31 37 43 49 55 61 67 73 79 85 1 7 13
BARI 82 88 4 10 16 22 28 34 40 46 52 58 64 70 76
BARI 54 60 66 72 78 84 90 6 12 18 24 30 36 42 48
BARI 53 59 65 71 77 83 89 5 11 17 23 29 35 41 47
BARI 26 32 38 44 50 56 62 68 74 80 86 2 8 14 20

CAGLIARI 61 67 73 79 85 1 7 13 19 25 31 37 43 49 55
CAGLIARI 3 9 15 21 27 33 39 45 51 57 63 69 75 81 87
CAGLIARI 87 3 9 15 21 27 33 39 45 51 57 63 69 75 81
CAGLIARI 77 83 89 5 11 17 23 29 35 41 47 53 59 65 71
CAGLIARI 53 59 65 71 77 83 89 5 11 17 23 29 35 41 47

FIRENZE 12 18 24 30 36 42 48 54 60 66 72 78 84 90 6
FIRENZE 64 70 76 82 88 4 10 16 22 28 34 40 46 52 58
FIRENZE 38 44 50 56 62 68 74 80 86 2 8 14 20 26 32
FIRENZE 57 63 69 75 81 87 3 9 15 21 27 33 39 45 51
FIRENZE 14 20 26 32 38 44 50 56 62 68 74 80 86 2 8

GENOVA 55 61 67 73 79 85 1 7 13 19 25 31 37 43 49
GENOVA 1 7 13 19 25 31 37 43 49 55 61 67 73 79 85
GENOVA 32 38 44 50 56 62 68 74 80 86 2 8 14 20 26
GENOVA 79 85 1 7 13 19 25 31 37 43 49 55 61 67 73
GENOVA 12 18 24 30 36 42 48 54 60 66 72 78 84 90 6

MILANO 70 76 82 88 4 10 16 22 28 34 40 46 52 58 64
MILANO 35 41 47 53 59 65 71 77 83 89 5 11 17 23 29
MILANO 85 1 7 13 19 25 31 37 43 49 55 61 67 73 79
MILANO 49 55 61 67 73 79 85 1 7 13 19 25 31 37 43
MILANO 57 63 69 75 81 87 3 9 15 21 27 33 39 45 51

NAPOLI 14 20 26 32 38 44 50 56 62 68 74 80 86 2 8
NAPOLI 55 61 67 73 79 85 1 7 13 19 25 31 37 43 49
NAPOLI 4 10 16 22 28 34 40 46 52 58 64 70 76 82 88
NAPOLI 48 54 60 66 72 78 84 90 6 12 18 24 30 36 42
NAPOLI 83 89 5 11 17 23 29 35 41 47 53 59 65 71 77

PALERMO 37 43 49 55 61 67 73 79 85 1 7 13 19 25 31
PALERMO 84 90 6 12 18 24 30 36 42 48 54 60 66 72 78
PALERMO 48 54 60 66 72 78 84 90 6 12 18 24 30 36 42
PALERMO 49 55 61 67 73 79 85 1 7 13 19 25 31 37 43
PALERMO 81 87 3 9 15 21 27 33 39 45 51 57 63 69 75

ROMA 3 9 15 21 27 33 39 45 51 57 63 69 75 81 87
ROMA 40 46 52 58 64 70 76 82 88 4 10 16 22 28 34
ROMA 45 51 57 63 69 75 81 87 3 9 15 21 27 33 39
ROMA 1 7 13 19 25 31 37 43 49 55 61 67 73 79 85
ROMA 90 6 12 18 24 30 36 42 48 54 60 66 72 78 84

TORINO 42 48 54 60 66 72 78 84 90 6 12 18 24 30 36
TORINO 89 5 11 17 23 29 35 41 47 53 59 65 71 77 83
TORINO 21 27 33 39 45 51 57 63 69 75 81 87 3 9 15
TORINO 10 16 22 28 34 40 46 52 58 64 70 76 82 88 4
TORINO 51 57 63 69 75 81 87 3 9 15 21 27 33 39 45

VENEZIA 57 63 69 75 81 87 3 9 15 21 27 33 39 45 51
VENEZIA 16 22 28 34 40 46 52 58 64 70 76 82 88 4 10
VENEZIA 28 34 40 46 52 58 64 70 76 82 88 4 10 16 22
VENEZIA 12 18 24 30 36 42 48 54 60 66 72 78 84 90 6
VENEZIA 20 26 32 38 44 50 56 62 68 74 80 86 2 8 14


Visto in anteprima è meglio
matlecc
Utente Junior
 
Post: 18
Iscritto il: 30/05/10 13:56

Re: Excel - Evidenziare valori uguali

Postdi matlecc » 31/05/10 19:49

Scusate ho forse esagerato nel disturbaVi ?
matlecc
Utente Junior
 
Post: 18
Iscritto il: 30/05/10 13:56

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "Excel - Evidenziare valori uguali":


Chi c’è in linea

Visitano il forum: Nessuno e 45 ospiti

cron