Condividi:        

Macro colora

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

Macro colora

Postdi Statix » 19/10/20 21:37

Ciao a tutti, dovrei fare una modifica alle domande e risposte dei quiz già trattati in precedenza,
la macro deve scrivere in colonna H la risposta esatta colonna M e colorare in verde tutte le risposte esatte
che corrispondono

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

Sponsor
 

Re: Macro colora

Postdi Anthony47 » 19/10/20 22:42

Le mie proposte su questo argomento prevedono sempre che la risposta data si colori di Verde o di Rosso a seconda che sia corretta o sbagliata. Inoltre la stessa domanda "vira" al verde o al rosso man mano che risposte corrette /sbagliate vengono date a quel quesito.

Un caso recente: viewtopic.php?f=26&t=49856&p=654795#p654766

Vedi se riesci a utilizzare lo stesso approccio, se No siamo qui

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

Re: Macro colora

Postdi Statix » 19/10/20 22:45

Ciao Anthony47,
la macro mi deve solo evidenziare in verde tutte le risposte esatte che corrispondono alle lettere in colonna M,
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Macro colora

Postdi Anthony47 » 19/10/20 23:03

Forse ho capito...
Seleziona l'area C1:Fxxx; imposta una formattazione condizionale che usi la formula =C$1=$M1

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

Re: Macro colora

Postdi Statix » 19/10/20 23:07

le righe sono circa 10000 per di più ci sono 12 materie ,porterebbe un rallentamento enorme ,sarebbe più comodo una macro che con un ciclo faccia il tutto
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Macro colora

Postdi Anthony47 » 19/10/20 23:25

Codice: Seleziona tutto
Sub RisposteOk()
Dim GreenCol As Long, I As Long, myMatch
GreenCol = RGB(0, 255, 0)
Range("C:G").Interior.Color = xlNone
For I = 1 To Cells(Rows.Count, "M").End(xlUp).Row
    If Cells(I, "M") <> "" Then
        myMatch = Application.Match(Cells(I, "M"), Range("A1:G1"), False)  'deve partire da "A1
        If Not IsError(mymacth) Then
            Cells(I, myMatch).Interior.Color = GreenCol
        End If
    End If
Next I
End Sub

Poi per oggi basta
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro colora

Postdi Statix » 19/10/20 23:29

adesso è ok, manca solo la copia delle lettere dalla colonna M alla colonna H,
grazie
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Macro colora

Postdi Statix » 20/10/20 07:47

Ciao Anthony47, ho provato la macro è tutto ok, risolto banalmente la copia delle lettere,
grazie di tutto.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta


Torna a Applicazioni Office Windows


Topic correlati a "Macro colora":


Chi c’è in linea

Visitano il forum: Nessuno e 35 ospiti