Condividi:        

Excel Evidenziare ambi e terni isotopi

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 ambi e terni isotopi

Postdi Statix » 18/09/09 21:56

Ciao a tutti,
anche se non posto da molto,sono sempre presente e vi leggo tutti i giorni.

Ho un piccolo problema dovrei evidenziare gli ambi e terni isotopi (stessa posizione)di una estrazione,
con la formattazione condizionale.allego foto esempio
Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Excel Evidenziare ambi e terni isotopi

Postdi Flash30005 » 19/09/09 00:14

Ciao Statix
al massimo posso Isoderattizzare gli Isotopi :lol:
a parte gli scherzi con una macro sarebbe possibile ma con la formattazione condizionale :roll: non saprei

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 ambi e terni isotopi

Postdi Statix » 19/09/09 15:12

Ciao Flash3005,
Io ci sono quasi riuscito tramite delle tabelle,allego una parte,
ma ho ancora qualche difficoltà con la formattazione,se in una riga ci sono 2 ambi,la formattazione me li colora con lo stesso colore,se hai una macro che mi fa lo stesso lavoro come nell'esempio della tabella del post pre4cedente
per me va benissimo.

Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Evidenziare ambi e terni isotopi

Postdi Flash30005 » 20/09/09 04:07

Ho considerato la tua tabella da A1 a F11 quindi dovrai adattare la macro al tuo range
Codice: Seleziona tutto
Sub ColIsotopi()
Dim Vettore1(5) As String
Dim Vettore2(5) As String
Dim CColo(5) As String
For Rc = 1 To 10
    For Rc2 = Rc + 1 To 11
        conta = 0
    For C = 2 To 6
        Vettore1(C - 1) = Cells(Rc, C).Value
        Vettore2(C - 1) = Cells(Rc2, C).Value
        If Vettore1(C - 1) = Vettore2(C - 1) Then
            conta = conta + 1
            CColo(conta) = C
            Col = (Vettore1(4) / 50 - Int(Vettore1(4) / 50)) * 50
        End If
   Next C
        If conta > 1 Then
            If Col = 1 Or Col = 2 Or Col = 5 Or Col = 9 Or Col = 10 Or Col = 11 Or Col = 21 Or Col = 25 Or Col = 30 Or Col = 31 Or Col = 32 Or Col = 49 Then Col = Col + 2
            For FC = 1 To conta
                Cells(Rc, Val(CColo(FC))).Interior.ColorIndex = Col
                Cells(Rc2, Val(CColo(FC))).Interior.ColorIndex = Col
            Next FC
        End If
    Next Rc2
Next Rc
End Sub


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 ambi e terni isotopi

Postdi Statix » 20/09/09 10:35

Ciao Flash3005
ho provato la macro ma mi da questo errore.
allego foto tabella
Immagine

errore
Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Evidenziare ambi e terni isotopi

Postdi Statix » 20/09/09 10:42

Questa dovrebbe essere il risultato della macro funzionante.
Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Evidenziare ambi e terni isotopi

Postdi Flash30005 » 20/09/09 12:00

sostituisci quella riga con questa
Codice: Seleziona tutto
            Col = Int(((Vettore1(1) + Vettore1(2)) / 50 - Int((Vettore1(1) + Vettore1(2)) / 50)) * 50) + 1


A parità di ambo fornirà sempre lo stesso colore ma non sperare che ti dia i colori che fai vedere nella tua immagine altrimenti dovremmo fare una tabella colore ad ogni ambo (4005 combinazioni) definendone uno per uno.

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 ambi e terni isotopi

Postdi Statix » 20/09/09 12:19

Ciao Flash3005
provata,al momento tutto ok.

grazie
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Evidenziare ambi e terni isotopi

Postdi Statix » 06/10/09 22:53

ciao a tutti,
volevo modificare questa macro per un range 10*100
range B1:K100
Codice: Seleziona tutto
Sub ColIsotopi()
Dim Vettore1(5) As String
Dim Vettore2(5) As String
Dim CColo(5) As String
For Rc = 1 To 10
    For Rc2 = Rc + 1 To 11
        conta = 0
    For C = 2 To 6
        Vettore1(C - 1) = Cells(Rc, C).Value
        Vettore2(C - 1) = Cells(Rc2, C).Value
        If Vettore1(C - 1) = Vettore2(C - 1) Then
            conta = conta + 1
            CColo(conta) = C
            Col = Int(((Vettore1(1) + Vettore1(2)) / 50 - Int((Vettore1(1) + Vettore1(2)) / 50)) * 50) + 1

        End If
   Next C
        If conta > 1 Then
            If Col = 1 Or Col = 2 Or Col = 5 Or Col = 9 Or Col = 10 Or Col = 11 Or Col = 21 Or Col = 25 Or Col = 30 Or Col = 31 Or Col = 32 Or Col = 49 Then Col = Col + 2
            For FC = 1 To conta
                Cells(Rc, Val(CColo(FC))).Interior.ColorIndex = Col
                Cells(Rc2, Val(CColo(FC))).Interior.ColorIndex = Col
            Next FC
        End If
    Next Rc2
Next Rc
End Sub
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Evidenziare ambi e terni isotopi

Postdi Flash30005 » 07/10/09 02:10

Prova così

Codice: Seleziona tutto
Sub ColIsotopi()
Dim Vettore1(5) As String
Dim Vettore2(5) As String
Dim CColo(5) As String
For Rc = 1 To 99
    For Rc2 = Rc + 1 To 100
        conta = 0
    For C = 2 To 11
        Vettore1(C - 1) = Cells(Rc, C).Value
        Vettore2(C - 1) = Cells(Rc2, C).Value
        If Vettore1(C - 1) = Vettore2(C - 1) Then
            conta = conta + 1
            CColo(conta) = C
            Col = Int(((Vettore1(1) + Vettore1(2)) / 50 - Int((Vettore1(1) + Vettore1(2)) / 50)) * 50) + 1

        End If
   Next C
        If conta > 1 Then
            If Col = 1 Or Col = 2 Or Col = 5 Or Col = 9 Or Col = 10 Or Col = 11 Or Col = 21 Or Col = 25 Or Col = 30 Or Col = 31 Or Col = 32 Or Col = 49 Then Col = Col + 2
            For FC = 1 To conta
                Cells(Rc, Val(CColo(FC))).Interior.ColorIndex = Col
                Cells(Rc2, Val(CColo(FC))).Interior.ColorIndex = Col
            Next FC
        End If
    Next Rc2
Next Rc
End Sub


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 ambi e terni isotopi

Postdi Statix » 07/10/09 10:09

Ciao Flash30005,
ho provato la macro,non va mi da un errore

Sub ColIsotopi()
Dim Vettore1(5) As String
Dim Vettore2(5) As String
Dim CColo(5) As String
For Rc = 1 To 99
For Rc2 = Rc + 1 To 100
conta = 0
For C = 2 To 11
Vettore1(C - 1) = Cells(Rc, C).Value
Vettore2(C - 1) = Cells(Rc2, C).Value
If Vettore1(C - 1) = Vettore2(C - 1) Then
conta = conta + 1
CColo(conta) = C
Col = Int(((Vettore1(1) + Vettore1(2)) / 50 - Int((Vettore1(1) + Vettore1(2)) / 50)) * 50) + 1

End If
Next C
If conta > 1 Then
If Col = 1 Or Col = 2 Or Col = 5 Or Col = 9 Or Col = 10 Or Col = 11 Or Col = 21 Or Col = 25 Or Col = 30 Or Col = 31 Or Col = 32 Or Col = 49 Then Col = Col + 2
For FC = 1 To conta
Cells(Rc, Val(CColo(FC))).Interior.ColorIndex = Col
Cells(Rc2, Val(CColo(FC))).Interior.ColorIndex = Col
Next FC
End If
Next Rc2
Next Rc
End Sub
ho provato a modificare i vettori1 e 2 ma non va lo stesso.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Evidenziare ambi e terni isotopi

Postdi Flash30005 » 07/10/09 10:23

La macro non l'ho testata perché non avevo una matrice di 10+100 se la posti vedrò io stesso dove è la causa
ad intuito doveva funzionare ma evidentemente qualcosa mi è sfuggito ecco perché le testo sempre.

Ciao

P.s. non inviare un'immagine ma tutti i numeri separati o da uno spazio o da una virgola per poterla inserire in un foglio di excel (puoi copiare la tua matrice di excel e incollarla nel post con [Code]
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 ambi e terni isotopi

Postdi Flash30005 » 07/10/09 10:25

Ops ecco dov'è l'errore i vettori vanno portati tutti a 10
da così
Codice: Seleziona tutto
Dim Vettore1(5) As String
Dim Vettore2(5) As String
Dim CColo(5) As String

a così
Codice: Seleziona tutto
Dim Vettore1(10) As String
Dim Vettore2(10) As String
Dim CColo(10) As String


prova e 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 ambi e terni isotopi

Postdi Statix » 07/10/09 10:29

Ciao Flash 30005,
in realtà e l'archivio del Win for Life,
volevo adattare la macro per evidenziare le quartine,cinquine e sestine isotope

Codice: Seleziona tutto
1   4   5   10   14   15   16   17   18   20
2   5   6   9   10   11   14   15   17   18
1   4   8   9   10   11   16   17   19   20
4   6   7   8   11   12   13   15   19   20
2   3   5   6   7   10   13   16   17   19
2   6   8   11   12   13   14   16   17   19
9   10   12   13   14   15   16   17   19   20
7   8   9   10   12   13   14   16   17   19
3   7   8   9   12   14   16   17   18   19
1   2   3   4   5   6   8   9   16   17
1   2   5   6   7   10   13   15   17   19
1   2   5   9   10   13   16   17   18   19
1   3   5   6   7   11   14   15   18   19
3   4   7   9   10   12   13   15   16   17
2   6   7   8   9   10   11   15   16   19
1   4   5   6   7   11   12   13   16   19
2   4   7   8   9   12   15   16   17   20
2   3   4   5   7   8   9   10   16   20
4   6   7   9   11   12   13   14   16   20
2   4   6   7   11   12   14   17   18   20
1   3   4   6   10   12   14   16   17   20
1   3   5   7   10   11   12   14   16   18
3   5   7   10   11   15   16   17   18   20
2   5   6   7   10   11   13   16   17   19
2   3   5   7   8   9   10   12   15   20
2   4   5   6   7   11   13   14   18   19
1   4   5   7   8   9   10   18   19   20
3   4   5   6   8   10   14   15   16   19
1   3   4   5   6   8   9   12   15   20
1   2   8   10   11   13   15   16   17   18
1   2   3   4   8   9   10   11   14   20
2   7   8   10   12   14   16   18   19   20
1   2   3   6   11   14   16   18   19   20
1   2   6   8   11   12   14   16   18   20
2   4   5   6   7   12   14   15   17   18
1   2   3   7   8   11   13   15   16   17
1   2   3   5   6   10   11   18   19   20
1   3   6   9   10   11   15   16   19   20
2   3   7   8   10   11   13   14   15   16
1   3   5   10   11   13   14   15   16   19
2   3   4   6   8   9   14   16   18   20
2   3   5   6   8   10   11   15   19   20
3   5   6   8   11   12   13   14   16   17
5   6   7   9   10   13   14   15   16   18
3   4   7   8   10   11   12   14   15   17
2   4   5   6   7   10   12   17   18   19
1   5   7   8   10   11   14   15   18   19
1   5   6   9   11   14   15   17   18   20
6   8   10   12   13   14   15   16   19   20
2   4   6   7   9   11   13   14   15   16
4   5   6   7   8   10   11   17   18   19
2   4   6   8   10   11   12   17   19   20
1   4   5   6   7   9   10   11   12   15
2   3   4   8   9   12   13   14   15   19
1   4   5   6   7   9   10   12   16   19
4   6   8   10   12   13   14   15   16   20
2   4   8   9   12   14   15   17   18   20
1   3   5   7   10   11   12   16   17   20
2   3   6   7   10   11   14   15   16   19
1   2   3   4   9   11   14   16   18   20
1   2   6   7   9   10   12   13   17   18
1   7   10   11   13   15   16   17   18   20
1   2   3   8   9   14   15   16   19   20
2   4   7   11   13   15   16   17   18   19
1   2   4   9   10   11   14   16   17   19
1   3   4   7   9   11   14   16   17   19
3   4   7   11   12   14   15   16   17   18
1   4   7   8   10   12   14   16   18   20
2   3   4   8   9   10   11   12   17   20
2   3   5   8   9   10   11   12   16   20
1   2   3   8   10   13   14   15   16   19
3   6   7   8   9   10   11   13   16   20
2   3   6   7   11   12   14   17   18   20
1   2   6   7   9   11   14   15   17   19
1   3   10   11   12   13   15   16   19   20
1   2   3   7   8   13   14   15   18   20
2   3   6   10   11   12   14   17   19   20
1   4   6   9   10   13   14   15   16   19
1   4   5   7   11   12   13   17   19   20
1   2   3   4   8   12   13   15   16   17
1   3   6   7   8   11   13   15   16   20
1   2   5   6   13   14   15   16   18   20
3   5   6   7   8   10   12   13   14   17
2   4   6   8   11   13   14   16   18   20
1   2   3   6   8   11   15   17   18   20
1   5   6   9   11   13   14   15   18   19
5   6   8   10   11   12   13   15   16   20
2   3   5   6   8   9   10   17   18   19
2   4   6   7   10   12   14   15   16   17
3   4   7   9   10   12   13   15   16   19
1   2   3   5   6   12   13   15   16   17
3   4   5   6   7   10   17   18   19   20
1   2   3   5   7   10   16   17   19   20
1   9   10   11   2   13   15   16   17   20
3   4   6   10   11   14   16   17   18   20
1   2   4   7   8   9   11   14   16   18
5   7   8   9   10   13   14   17   18   20
3   4   6   9   12   15   16   17   18   19
2   6   7   8   9   13   14   15   16   19
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Evidenziare ambi e terni isotopi

Postdi Flash30005 » 07/10/09 11:33

Penso che abbiamo scritto i post quasi contemporaneamente

hai provato con la modifica del mio (secondo) post delle ore 11:25 ?

Prova e 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 ambi e terni isotopi

Postdi Statix » 07/10/09 11:44

Avevo già fatto le modifiche ai vettori ,
ma non funziona bene le celle vengono colorate senza rispettare la posizione isotopa
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Evidenziare ambi e terni isotopi

Postdi Statix » 07/10/09 11:54

Volevo chiederti è possibile modificare la macro in modo che evidenzii solo le quartine o solo le cinquine ?
in modo che non si crei un caos di colori,eventualmente per me andrebbe bene anche 3 macro una per ogni
gruppo: quartina-cinquina-sestina isotopa
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Evidenziare ambi e terni isotopi

Postdi Flash30005 » 07/10/09 18:27

Non è così semplice come sembra a prima vista :roll:

Se hai pazienza... ci sto lavorando ;)

Nel frattempo mi è sorto un dubbio,
nel tuo esempio, non so se è un caso,
gli ambi sono sempre affiancati (vedi il 2 e il 5 al primo e secondo posto) e sono stai evidenziati
ma se fossero stati al primo e quarto posto in ambedue le righe dovevano essere evidenziati ugualmente?
Te lo chiedo perché la macro precedente non funziona così. :undecided:

Fai sapere
Ciao

N.B. Ho finito adesso e aggiungo al post il link del file con la macro, ti renderai conto da solo che non era così semplice.
Con questo programma puoi impostare i gruppi da 2 a 9 direttamente sul foglio dove hai sia il sistema che il comando che attiva la macro.
http://rapidshare.com/files/290075471/C ... 2.zip.html

Fai sapere 2 :D
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 ambi e terni isotopi

Postdi Statix » 08/10/09 12:55

Ciao Flash30005,
hai fatto veramente un ottimo lavoro,
ho visto la macro e mi sono reso conto che effettivamente ti sei impegnato molto,
io personalmente stò indietro anni luce per il VBA,
ma nonostante tutto riesco a realizzare i mie progettini in excel anche se in forma basilare,
ti ringrazio per il tempo che mi hai dedicato.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Evidenziare ambi e terni isotopi

Postdi Anthony47 » 03/09/18 23:40

Potete ripubblicare questo vecchio file? (vedi viewtopic.php?f=26&t=110012)

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Excel Evidenziare ambi e terni isotopi":


Chi c’è in linea

Visitano il forum: Nessuno e 38 ospiti