Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

Quiz con excel. Opzioni
mblu
Inviato: Wednesday, September 12, 2007 8:23:40 AM
Rank: AiutAmico

Iscritto dal : 6/28/2005
Posts: 58
Salve,
ho realizzato una serie di quiz usando il prog. in oggetto. In pratica una domanda ha quattro possibilità di risposte, A B C D. Ogni lettera è posta in una cella e ogni foglio reca 10 domande.Un correttore(situato in un altro foglio)individua le risposte esatte.
Volevo aggiungere un tocco di classe, ovvero cliccando (o posizionandosi) sulle celle A B C D mi si dovevano colorare di rosso se la risposta è sbagliata oppure verde se esatta.
E' possibile realizzare qualcosa del genere ? Come ?

Saluti
Giuseppe
Sponsor
Inviato: Wednesday, September 12, 2007 8:23:40 AM

 
a10n11
Inviato: Thursday, September 13, 2007 8:16:01 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
forse è più complicato da spiegare soprattutto non conoscendo la struttura del tuo file. Ipotizzando che le celle relative alle risposte siano nel foglio1 rispettivamente
A4:D4,A7:D7,A10:D10,A13:D13,A16:D16,A19:D19,A22:D22,A25:D25,A28:D28,A31:D31
e le risposte esatte siano nel foglio2 nelle stesse posizione di cui sopra.
potresti applicare o quantomeno utilizzare come traccia la seguente macro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo fine
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
Set AREA = Range("A4:D4,A7:D7,A10:D10,A13:D13,A16:D16,A19:D19,A22:D22,A25:D25,A28:D28,A31:D31")
Set ISCT = Intersect(AREA, Target)
If Not ISCT Is Nothing Then
RIGA = Target.Row
If Target.Value = Sheets("foglio2").Cells(RIGA, 1).Value Then
Target.Interior.ColorIndex = 3
End If
End If
fine:
End Sub
saluti
Andrea


mblu
Inviato: Friday, September 14, 2007 8:12:07 AM
Rank: AiutAmico

Iscritto dal : 6/28/2005
Posts: 58
Ok Andrea;
provo a mettere in pratica il tutto: vediamo cosa esce fuori.

Ti ringrazio
saluti
Giuseppe
mblu
Inviato: Monday, September 17, 2007 9:19:46 AM
Rank: AiutAmico

Iscritto dal : 6/28/2005
Posts: 58
Ciao,
qualcosa mi sfugge nella realizzazione. Ovvero se per esempio nelle celle A4:D4 del foglio 1 , ho posizionato le varie risposte al quiz, ed ho messo poi per eempio la risposta esatta nella cella A4 del foglio 2 , come faccio a dire tutto questo alla macro ? Perchè può accadere che la risposta esatta sia posizionata in un intervallo variabile tra quelle indicate (es. le riposte A7:D7 sia in D7 del folgio 2).

Saluti
giuseppe
a10n11
Inviato: Monday, September 17, 2007 12:29:57 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
la macro presuppone questa situazione:
Possibili risposte nel foglio1 da cella A4:D4
risposta esatta nel foglio2 in cella A4
per A7:D7 risposta esatta in A7
per A10:D10 risposta esatta in A10
ecc. ecc.
Se le tue risposte esatte sono in ordine sparso la cosa si complica e quantomeno ci vorrebbe la conoscenza di come è strutturato l'intero file.
saluti
Andrea

mblu
Inviato: Tuesday, September 18, 2007 7:50:52 AM
Rank: AiutAmico

Iscritto dal : 6/28/2005
Posts: 58
Non avevo capito che la risposta esatta era posizionata sempre nella lettera A.
Per il mio scopo può andar bene anche così.
Grazie Andrea.

Saluti
Giuseppe
Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.