Modificare ordine risposte per studiare su domande

[Anthony47]

Non perdere il messaggio di scossa, vedi pagina precedente.

Per mia curisosita' personale ho realizzato il file allegato, che elabora il file preparato da Ricky.
Partendo dalle domande elencate in Foglio1, la macro "creadom_V2" fa le seguenti elaborazioni:
-crea una copia delle domande il Foglio2; Foglio2 deve gia' esistere
-riordina il contenuto di Foglio2 inserendo domande e risposte in una unica cella (nota *)
-posiziona le domande e le possibili risposte nel foglio RESULT (che deve gia' esistere)
--la Materia e' elencata in col A
--la domanda e' in col B
--le possibili risposte sono in disordine in col C:F
Il file allegato e' gia' il risultato di questa elaborazione.
https://rapidshare.com/files/1437141341 ... nthony.zip
Edit Sett.2017: nuovo link al file https://www.dropbox.com/s/3e1xat4qydcmj ... y.zip?dl=0

Non ha una struttura sofisticata come il lavoro di Scossa; direi che e' un prototipo poco ruspante; non ho suddiviso le materie e non prevede la scelta di un "set di domande" tra le varie materie; ne' la macro iniziale e' stata ottimizzata per ridurne il tempo di esecuzione (che e' dell' ordine di 15-20 secondi)

Si attiva il foglio RESULT, si sceglie a caso una una domanda, e si seleziona la cella contenente la presunta risposta: la cella si colora in Verde se la risposta e' Esatta oppure in Rosso se e' Errata.
La cella della domanda (col B della risposta selezionata) assume un colore che tende al Rossastro se le risposte date (alla specifica domanda) sono prevalentemente errate, oppure tende al verdastro se sono prevalentemente esatte; non ho trovato una sequenza di tonalita' dal "poco" al "molto" verde, quindi il risultato e' opinabile; per il rosso le tonalita' sono piu' indicative.
Comunque il "saldo" tra risposte esatte e sbagliate e', per ogni domanda, in col G (max +4=Verde scuro, min -4=Rosso).

E' possibile chiedere una risposta a caso cliccando in B1; in questo caso la col A della riga selezionata viene evidenziata per facilitare l' identificazione. Tuttavia non e' obbligatorio rispondere a "quella" domanda, e la risposta data (cella C:F selezionata) viene associata alla domanda presente il Col B.

Volendo si puo' "ripartire" daccapo o rigenerando (tramite la macro creadom_V2) i fogli Foglio2 e RESULT, che creera' una diversa combinazione delle risposte) oppure togliendo il riempimento colorato alle colonne B:F e cancellando i dati in col G.

Nota *
Per poter riordinare domande e risposte in una unica cella (vedi Foglio2) ho dovuto "inventare" delle regole:
-le Domande cominciano sempre con una sequenza di 4 numeri seguiti da "punto"
-le Materie sono stringhe in maiuscolo contenenti solo caratteri A-Z oppure "spazio"
-le risposte sono sempre precedute da una stringa "x) " dove x=A, B, C oppure D
Mentre esse hanno funzionato per il file pubblicato da Ricky non posso garantire che esse siano sempre corrette. Il conteggio di RESULT col O e P possono aiutare a rilevare irregolarita' di gestione (in col O viene estratto il "numero" della domanda, in col P si verifica che questo numero sia pari al precedente +1); potrebbe essere necessario inventare nuove regole, oppure correggere manualmente l' origine quando viene riscontrato una discrepanza.

Nel sorgente di Ricky ho dovuto correggere manualmente una sola cella la cui stringa cominciava con "-", che nelle elaborazioni veniva interpretata come formula

Spero che sia di qualche utilita'.

Ciao a tutti

[mernin78]

ok grazie
ora studio
siete stati gentilissimi
Marco

[mernin78]

Ciao scossa
nelle celle dove compare la risposta delle domande dalla 49 alla 78, la cella è parzialmente nascosta.
come posso modificarla

Inoltre, magari interessa anche a te per affinare il programma in futuro, quando immetti il numero della domanda nella cella b4 per vedere se è corretta, i colori verde e rosso scompaiono.
Ma è molto complicato da costruire poter cliccare sul numero risposta e far apparire la domanda?
Inoltre è possibile assegnare una % di domande da fare?5 % Italiano – n. 144 quesiti dal n. 1 al n. 144

5 % Storia d’Italia a partire dal 1815 – n. 150 quesiti dal n. 145 al n. 294

5 % Geografia Fisica, Politica ed Economica dell’Italia – n. 150 quesiti dal n. 295 al n. 444

5 % Educazione Civica – n. 143 quesiti dal n. 445 al n. 587

20 % Diritto Penale – n. 573 quesiti dal n. 588 al n. 1.160

20 % Procedura Penale – n. 628 quesiti dal n. 1.161 al n. 1.788

20 % Legislazione di Pubblica Sicurezza e Leggi Speciali – n. 588 quesiti dal n. 1.789 al n. 2.376

20 % Ordinamento e Regolamento della Pubblica Amministrazione – n. 487 quesiti dal n. 2.377 al n. 2.863



Se è una cosa che non ti richiede fatica ok, altrimenti sei stato fin troppo gentile
foglio excel bellissimo
Marco

[ricky53]

Ciao,
hai avuto già due soluzioni (quella di Scossa ho avuto modo di vederla, adesso scarico anche quella di Anthony), ti propongo anche la mia.
Viene normalizzato il file che ti avevo inviato precedentemente e poi viene prodotto un foglio con 80 domande scelte random tra quelle disponibili e con la % richiesta per ogni materia.
Anche il mio lavoro è semplice ed ho previsto di utilizzare il questionario su carta e non tramite PC quindi dopo aver estratto le domande dovrai stampare le domande presenti nel foglio "Domande_Estratte".

Per normalizzare va eseguita la macro "Normalizza_Domande"
Per estrarre le domande va eseguita la macro "Estrai_Domande"

Ecco il FILE che puoi scaricare.

[mernin78]

Grandeeee

Cosa vuol dire normalizzare le domande??

[ricky53]

Ciao,
ti è stato utile il mio esempio?

Normalizzare, informaticamente parlando vuol dire riportare i dati relativi allo stesso tipo su una riga ma su colonne distinte.
Es. codice fiscale, cognome, nome, luogo di nascita, data di nascita, indirizzo, ecc tutti sulla stessa riga ma in colonne distinte
a codice fiscale
b cognome
c nome
d luogo di nascita
e ....

in questo modo selezionando un dato univoco (codice fiscale)si hanno tutte le informazioni di quel dato ...
La complicazione nel tuo caso è stata che informazioni dello stesso tipo erano state spezzate in più di una riga ...

[mernin78]

Ho capito
ma ora a me cosa serve normalizzare il file??

[scossa]

Qui il file modificato:
http://www.wikiupload.com/GEP8K3G8HGKV8UK

Ciao scossa
nelle celle dove compare la risposta delle domande dalla 49 alla 78, la cella è parzialmente nascosta.
come posso modificarla

Ok, Ho ridotto le dimensioni del carattere.

Inoltre, magari interessa anche a te per affinare il programma in futuro, quando immetti il numero della domanda nella cella b4 per vedere se è corretta, i colori verde e rosso scompaiono.
Ma è molto complicato da costruire poter cliccare sul numero risposta e far apparire la domanda?

Ok, doppio click sul numero della domanda presente nelle celle da H4 .... ma devi avere già selezionato la risposta, se fai doppio click su una cella vuota non ottieni nulla. Puoi anche "imbrogliare" nel senso che puoi selezionare una risposta e vedre la risposta esatta prima di fare doppio click su CONFERMA ma sarebbe solo a tuo danno

Inoltre è possibile assegnare una % di domande da fare?
5 % Italiano – n. 144 quesiti dal n. 1 al n. 144
5 % Storia d’Italia a partire dal 1815 – n. 150 quesiti dal n. 145 al n. 294
5 % Geografia Fisica, Politica ed Economica dell’Italia – n. 150 quesiti dal n. 295 al n. 444
5 % Educazione Civica – n. 143 quesiti dal n. 445 al n. 587
20 % Diritto Penale – n. 573 quesiti dal n. 588 al n. 1.160
20 % Procedura Penale – n. 628 quesiti dal n. 1.161 al n. 1.788
20 % Legislazione di Pubblica Sicurezza e Leggi Speciali – n. 588 quesiti dal n. 1.789 al n. 2.376
20 % Ordinamento e Regolamento della Pubblica Amministrazione – n. 487 quesiti dal n. 2.377 al n. 2.863

Avendo tutte le domande sul foglio "Miscellanea" la percentuale della distribuzione delle domande tra le varie materie è gia quella:

2.863 100%
144 5%
150 5%
150 5%
143 5%
573 20%
628 22%
588 21%
487 17%

[mernin78]

Perfetto grazie

Scusami se mi sono permesso di darti un "consiglio" su come modificare l'opera

[mernin78]

Ciao scossa
nelle celle dove compare la risposta delle domande dalla 49 alla 78, la cella è parzialmente nascosta.
come posso modificarla

Ok, Ho ridotto le dimensioni del carattere.


Ciao, in merito a questo problema non è cambiato nulla

[scossa]

Ok, Ho ridotto le dimensioni del carattere.

Ciao, in merito a questo problema non è cambiato nulla

Guarda il problema è che la domanda è troppo lunga; o aumenti l'altezza della cella o riduci ancora la dimensione del carattere: siccome il file non è protetto puoi farlo tranquillamente senza problema.

[ricky53]

Ciao Mernin,
la normalizzazione l'ho utilizzata io per produrti il file e quindi tu non devi utilizzarla.
Potresti utilizzarla solo se tu volessi ripartire dal file iniziale (il primo che ti ho inviato) e riottenere la versione "Normalizzata".

Per estrarre 80 domande ogni volta che vuoi ti basta eseguire la macro "Estrai_Domande"

[mernin78]

Ok, Ho ridotto le dimensioni del carattere.

Ciao, in merito a questo problema non è cambiato nulla

Guarda il problema è che la domanda è troppo lunga; o aumenti l'altezza della cella o riduci ancora la dimensione del carattere: siccome il file non è protetto puoi farlo tranquillamente senza problema.

Ciao, forse non mi sono spiegato il genere di problema.
ci sono delle celle che non sono unite ( sono quelle dove appare la lettera della risposta)
ho provato ad unirle e a salvare ma poi non funziona più il foglio anche se genero delle nuove domande
allego l'immagine così mi spiego meglio


Uploaded with ImageShack.us

[scossa]

Ciao, forse non mi sono spiegato il genere di problema.
ci sono delle celle che non sono unite ( sono quelle dove appare la lettera della risposta)
ho provato ad unirle e a salvare ma poi non funziona più il foglio anche se genero delle nuove domande
allego l'immagine così mi spiego meglio

Ok, ora ho capito e sistemato.

Qui il file corretto:

Quizzero

Resto in attesa di feedback, grazie.

[scossa]

Se interessa questo il codice che ho utilizzato per "normalizzare" il file che avevi postato (ripulito degli errori e degli spazi in coda al testo):
CUT

Visto che non posso modificare il mio post originale, riporto qui il codice della sub Elabora()
aggiornato (ho gestito alcune "eccezioni" che causavano una lettura sbagliata di poche (4 o 5) domande, come mi ha fatto notare Ricky).

Codice: Seleziona tutto

   
'---------------------------------------------------------------------------------------
' Procedure : Elabora
' Author    : scossa
' Date      : 09/04/2012
' Purpose   :
'---------------------------------------------------------------------------------------
'
Public Sub Elabora()

  Dim wb As Workbook
  Dim ws As Worksheet
  Dim rng As Range
  Dim rngSunto As Range
  Dim cellaFr As Range
  Dim cellaTo As Range
  Dim nNewRow As Long
  Dim sNumQuiz As String
  Dim sMateria As String
  Dim sDomanda As String
  Dim nQuiz As Integer
  Dim nRisp As Integer
  Dim nStart As Double

  On Error GoTo Elabora_Error

  Application.ScreenUpdating = False
  nStart = Timer
  Set wb = ThisWorkbook
  Set ws = wb.ActiveSheet
  Set rngSunto = wb.Worksheets("Sunto").Range("A3:A10")
  Set rng = ws.Range("A1").CurrentRegion
  nNewRow = 1
  Set cellaTo = ws.Cells(nNewRow, 3)
  For Each cellaFr In rng
   
    With cellaFr
      sNumQuiz = Left(.Text, 5)
      If Application.CountIf(rngSunto, .Value) > 0 Then
        nRisp = 0
        'nNewRow = nNewRow + 1
        sMateria = .Value
        cellaTo.Offset(1, 0).Value = sMateria
        'nNewRow = nNewRow + 1
      'la seguente riga è stata modificata (aggiunto  And Right(sNumQuiz, 1) = "." )
      ElseIf Len(sNumQuiz) = 5 And Right(sNumQuiz, 1) = "." And IsNumeric(sNumQuiz) Then
        nRisp = 0
        nNewRow = nNewRow + 1
        Set cellaTo = ws.Cells(nNewRow, 3)
        nQuiz = CInt(sNumQuiz)
        cellaTo.Offset(0, 1).Value = nQuiz
        sDomanda = Mid(.Text, 7)
        cellaTo.Offset(0, 2).Value = sDomanda
      'la seguente riga è stata modificata (tolto vbTextCompare)
      ElseIf InStr(1, "A);B);C);D)", Left(.Text, 2)) > 0 Then
       
        Select Case Left(.Text, 2)
          Case "A)"
            cellaTo.Offset(0, 3) = Mid(.Text, 4)
            nRisp = 3
          Case "B)"
            cellaTo.Offset(0, 4) = Mid(.Text, 4)
            nRisp = 4
          Case "C)"
            cellaTo.Offset(0, 5) = Mid(.Text, 4)
            nRisp = 5
          Case "D)"
            cellaTo.Offset(0, 6) = Mid(.Text, 4)
            nRisp = 6
        End Select
          cellaTo.Offset(0, 7) = "A"
      Else
        If nRisp > 0 Then
          cellaTo.Offset(0, nRisp).Value = cellaTo.Offset(0, nRisp).Value & " " & .Text
        Else
          sDomanda = sDomanda & " " & .Text
          cellaTo.Offset(0, 2).Value = sDomanda
        End If
      End If
     
    End With
  Next cellaFr

  On Error GoTo 0
  'Exit Sub

Elabora_Error:
  If Err.Number <> 0 Then
    MsgBox "Error " & Err.Number & " (" & Err.Description & _
    ") in procedure Elabora of Modulo Modulo1"
  Else
    MsgBox Timer - nStart
  End If
  Application.ScreenUpdating = True
  Set rng = Nothing
  Set rngSunto = Nothing
  Set ws = Nothing
  Set wb = Nothing
 

End Sub


Un saluto a tutti.

[ricky53]

Ciao Mernin
stati provando gli esempi che ti abbiamo fornito ?

In quanto tempo riesci a rispondere a 80 domande ?
A che percentuale di risposte esatte sei arrivato ?

Quanto tempo avrete quando andrete a sostenere la prova ?

[Flash30005]

Visto che non posso modificare il mio post originale, riporto qui il codice della sub Elabora()

Perdona Scossa ma nel file non c'è alcuna macro Elabora()
ma Genera()

Per chiarezza potresti postare il file modificato come nuova versione in un nuovo post

ciao

[scossa]

Visto che non posso modificare il mio post originale, riporto qui il codice della sub Elabora()

Perdona Scossa ma nel file non c'è alcuna macro Elabora()
ma Genera()

Per chiarezza potresti postare il file modificato come nuova versione in un nuovo post

ciao

Ciao Flash,

La sub Elabora() non riguarda il mio file dei Quiz ma sfrutta il file di Ricky Excel nel quale ci sono le domande/risposte importate dal PDF quindi va inserita in quel file.
Purtroppo da questo pc non posso usare servizi di uploading.

[mernin78]

Ciao, forse non mi sono spiegato il genere di problema.
ci sono delle celle che non sono unite ( sono quelle dove appare la lettera della risposta)
ho provato ad unirle e a salvare ma poi non funziona più il foglio anche se genero delle nuove domande
allego l'immagine così mi spiego meglio

Ok, ora ho capito e sistemato.

Qui il file corretto:

Quizzero

Resto in attesa di feedback, grazie.

Ciao, il problema è sempre lo stesso
non è cambiato, ecco immagine, se clicchi la vedi per intero.
in quelle colonne ci sono due righe anzichè una e la lettera della risposta non si vede bene


Uploaded with ImageShack.us

Inoltre, ieri sono state modificate le domande, si sono accorti che c'erano degli errori e le hanno eliminate, in tutto sono 4 ma se lo faccio io mi incasina il foglio delle formule
le domande sono la numero 33
la numero 315
la 353
e la 405

Inoltre appare ora solo il foglio miscellanea, e materia per materia è sparito
ciao
grazie
Marco

[scossa]

Ciao, il problema è sempre lo stesso
non è cambiato, ecco immagine, se clicchi la vedi per intero.
in quelle colonne ci sono due righe anzichè una e la lettera della risposta non si vede bene

Stai aprendo il vecchio file, quello dell'ultimo link Quiz (*)
come vedi anche da questa immagine:


funziona correttamente.

Inoltre, ieri sono state modificate le domande, si sono accorti che c'erano degli errori e le hanno eliminate, in tutto sono 4 ma se lo faccio io mi incasina il foglio delle formule
le domande sono la numero 33
la numero 315
la 353
e la 405

- Scopri il foglio delle domande

- seleziona la domanda 405
- elimina l'intera riga

- seleziona la domanda 353
- elimina l'intera riga

- seleziona la domanda 315
- elimina l'intera riga

- seleziona la domanda 33
- elimina l'intera riga

- seleziona il codice della domanda 2 (cella B3)
- scrivi =B2+1
- copia e incolla fino in fondo alla colonna B.

- nascondi il foglio miscellanea

(*) ATTENZIONE: ora il file del link è già senza le domande sbagliate

Inoltre appare ora solo il foglio miscellanea, e materia per materia è sparito

Sono tutte su un unico foglio perchè volevi la distribuzione in percentuale, e per allegerire il file ho eliminato i fogli delle singole materie.