[Excel] Mescolare celle in modo random

[matte93o]

Probabilmente non hai selezionato il foglio con le domande prima di avviare la macro.
Comunque e meglio se pubblichi un file dimostrativo, con un piccolo set di domande e la macro con cui hai gia' provato.

Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ti aspettiamo...

Buongiorno, ecco il link con la banca dati
http://www.filedropper.com/italiano2

Nel link precedente vi è la banca dati senza macro. Nel link sottostante vi invio la banca dati con la Macro inserita e che mi da l’errore.
http://www.filedropper.com/italiano3

Grazie per la vostra disponibilità

[Statix]

per colorare le domande rosso sbagliato verde esatte
basta incollare questa funzione nel foglio,le domande già mischiate vanno messe in colonna B mentre le 4 risposte sempre già mischiate in colonna C-D-E_F
in colonna M vanno messe le risposte esatte tipo A-B-C-D

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Range("C" & Rows.Count).End(xlUp).Row
If UR < 2 Then UR = 2
CheckArea = "C2:F" & UR
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
If Target <> "" Then
Riga = Target.Row
Col = Target.Column
Range("H" & Riga).Value = Cells(1, Col).Value
Range(Cells(Riga, 3), Cells(Riga, 6)).Interior.ColorIndex = xlNone  '<<<<<<<< AGGIUNGERE
If Range("H" & Riga).Value = Range("M" & Riga).Value Then    '<<<<<<<< AGGIUNGERE
    Cells(Riga, Col).Interior.ColorIndex = 4                  '<<<<<<<< AGGIUNGERE
'MsgBox ("Risposta  esatta ")
ActiveWindow.SmallScroll Down:=1

Else                                                          '<<<<<<<< AGGIUNGERE
    Cells(Riga, Col).Interior.ColorIndex = 3                 '<<<<<<<< AGGIUNGERE
End If
Else
Exit Sub
End If
End If

End Sub

[Statix]

non posso postare il programma completo in quanto i quiz sono coperti da copyrigth

[Statix]

Ok metto il file, dopo eventualmente si cancellerà da solo non disponibile

http://www.filedropper.com/italiano

[Anthony47]

Grazie a Statix per aver pubblicato una possibile soluzione al problema.

Partendo da quanto avevo proposto all'utente ADR388 in questa stessa discussione (vedi viewtopic.php?f=26&t=49856&start=20#p636323) propongo anche una variante scaricabile qui: https://www.dropbox.com/s/n2gwidu73ii6c ... .xlsm?dl=0

La pubblico perche' mi pare che consenta un addestramento piu' fluido.

Le domande sono state incollate nel foglio "ORIGINALE"; poi la macro CreaDom_V_C00816 crea su foglio "RESULT" lo stesso elenco di domande ma con le risposte mischiate.

Per le esercitazioni si lavora sul foglio RESULT: si sceglie una domanda (scorrendo l'elenco) e si seleziona la risposta ritenuta corretta: se la risposta e' giusta la cella si colora di Verde , altrimenti sui colora di Rosso. Anche la cella della domanda vira sul "verde" (sempre piu' vivo) man mano che quella domanda ha avuto piu' risposte corrette; altrimenti vira verso il rosso
Cliccando in B1 viene proposta una domanda a caso; comunque non e' obbligatorio accettare quella domanda (ma se si vuol barare poi non lamentatevi del voto all'esame)
Rieseguendo la Sub CreaDom_V_C00816 viene ricreato un foglio RESULT con diversa randomizzazione.

Fatene buon uso...

PS: mi dite per favore dove sono state pubblicate in originale le domande, per esaminare il Copyright?

[Statix]

le banche dati sono disponibili su Persomil , servono per i vari concorsi in atto delle forze armate, ogni singola materia porta la dicitura,

Codice: Seleziona tutto

Ai sensi delle vigenti leggi sul copyright, non è consentito l'uso del presente materiale testologico a scopo di lucro. È altresì vietato utilizzare dati e informazioni presenti nel testo senza preventiva autorizzazione scritta. È vietata la riproduzione e la divulgazione con qualsiasi mezzo del predetto materiale - © 2020, Ministero della Difesa – Direzione Generale per il Personale Militare

[Anthony47]

Grazie Statix.
Sulla base del Copyright ho modificato il file pubblicato limitandolo a sole poche domande/risposte

Il file puo' essere modificato inserendo sul foglio ORIGINALE l'elenco di domande con le 4 risposte di cui la prima e' quella esatta, rispettando le colonne indicate. In colonna G deve essere "prolungata" la formula che ora e' inserita solo in G2:G9

Infine si esegue la Sub CreaDom_V_C00816, che crea sul foglio RESULT lo stesso elenco ma con risposte mischiate

Ciao a tutti

[wallace&gromit]

Ma il primo esempio presentato da Statix ha delle domande diverse o sbaglio? "Trova l'intruso..."
Si può avere l'originale di quello?

[Statix]

Ciao wallace&gromit,
il primo esempio che ho postato, apparteneva ad un altra materia, Analitico verbale,

[Anthony47]

non posso postare il programma completo in quanto i quiz sono coperti da copyrigth

Ma il primo esempio presentato da Statix ha delle domande diverse o sbaglio? "Trova l'intruso..."
Si può avere l'originale di quello?

Chi vuole l'originale dei quiz lo trova su Google, ad esempio qui: https://concorsi.difesa.it/am/allievima ... a_Verb.pdf
Il formato e' pdf; poi tramite un "pdf to excel" si puo' portare su Xls, e a quel punto (con i quesiti a 4 domande e risposta corretta in prima posizione) si puo' usare il file che ho pubblicato io.

Ciao