Condividi:        

Rimescolare le risposte

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

Rimescolare le risposte

Postdi capitan McAllister » 07/11/18 10:25

Salve a tutti è il mio primo post su questo forum. Volevo chiedervi se fosse possibile rimescolare le risposte di un test universitario (pdf) dove attualmente tutte le risposte sono A. Vorrei tutta via mantenere l'ordine delle discipline . Vi pregherei se fosse possibile di apiearmi passo passo le procedure. Il testo da randomizzare,se serve saperlo, è il test Humanitas 2018 (https://www.hunimed.eu/it/corsi/medicin ... i-al-test)
capitan McAllister
Newbie
 
Post: 3
Iscritto il: 07/11/18 10:20

Sponsor
 

Re: Rimescolare le risposte

Postdi Anthony47 » 08/11/18 00:10

Il primo passo e' mettere domande e risposte in un file Excel, in modo da avere le domande e le risposte esattamente identificabili; su quel file si puo' tranquillamente ottenere un risultato buono, mentre il pdf non e' elaborabile.

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

Re: Rimescolare le risposte

Postdi capitan McAllister » 08/11/18 23:28

Ho provato a convertire il pdf in un file excel usando smallpdf, come risultato ho un file excel dove ogni foglio contiene una o due quesiti http://www.filedropper.com/imat2018huma ... -converted
capitan McAllister
Newbie
 
Post: 3
Iscritto il: 07/11/18 10:20

Re: Rimescolare le risposte

Postdi Anthony47 » 09/11/18 16:00

Con questa macro accodi il contenuto di tutti i fogli sotto Table1
Codice: Seleziona tutto
Sub creatot()
Dim Shp As Shape, TLC As Long, I As Long
'
For I = 2 To Worksheets.Count
'If i > 6 Then Stop
    Sheets(I).Select
    lastr = GetLastR(Sheets(1).Range("A:J"))
    ActiveSheet.UsedRange.Copy Sheets(1).Range("A" & lastr + 2)
    For Each Shp In ActiveSheet.Shapes
        TLC = 0
        On Error Resume Next
            TLC = Shp.TopLeftCell.Row
        On Error GoTo 0
        If TLC > 0 Then
            Sheets(1).Shapes(Sheets(1).Shapes.Count).Delete
            Shp.Copy
            Sheets(1).Paste
            Sheets(1).Shapes(Sheets(1).Shapes.Count).Top = Sheets(1).Cells(lastr + 1 + TLC, 1).Top
            Sheets(1).Shapes(Sheets(1).Shapes.Count).Left = 10
            Sheets(1).Cells(lastr + 1 + TLC, 1).RowHeight = Shp.TopLeftCell.Height
        End If
    Next Shp
Next I
Sheets(1).Select
MsgBox ("Completato accodamento")
End Sub


Function GetLastR(ByRef myRan As Range) As Long
Dim Last
'
With myRan
  Set Last = .Find(What:="*", After:=.Cells(1, 1), SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlFormulas)
End With
If Last Is Nothing Then GetLastR = 1 Else GetLastR = Last.Row
End Function


Metti il codice in un "modulo standard del vba"; per questo, partendo da Excel:
-premi Alt-F11 per aprire l'editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame dx del modulo appena creato


Poi torna su Excel e lancia la macro CREATOT:
-premi Alt-F8
-seleziona CREATOT dall'elenco di macro disponibili
-premi Esegui
A questo punto i vari fogli dovrebbero aprirsi in sequenza e il contenuto copiato accodandolo al contenuto del primo foglio.

Controlla il file che cosi' ottieni, e fai in modo che la posizione delle domande sia identificabile da programma
Direi che questo dovrebbe corrispondere ad avere
1) in colonna A la sola lettera (A-E) e la relativa risposta in colonna B
2) le righe delle risposte contigue (senza righe vuote o spurie in mezzo tra una risposta e la successiva)

Quando hai questo file pronto allora pubblicalo e su di esso procederemo con lo shuffle delle risposte.

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

Re: Rimescolare le risposte

Postdi capitan McAllister » 10/11/18 10:38

I quesiti ora sono tutti contenuti in un unico foglio però non riescp a far corrispondere alla colonna A la lettera A e cosi via...

RISULTATO http://www.filedropper.com/imat2018huma ... onverted_1
capitan McAllister
Newbie
 
Post: 3
Iscritto il: 07/11/18 10:20

Re: Rimescolare le risposte

Postdi Anthony47 » 10/11/18 13:01

Eh he, mi hai passato il risultato della mia macro...
Ora molte cose vanno fatte a mano; o le fai tu o le faccio io. Io pero' sono a corto sia di tempo che di pazienza.

Quindi... ti aspetto!
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Rimescolare le risposte":

Risposte ai miei TOPIC
Autore: Gigi38
Forum: Discussioni
Risposte: 9

Chi c’è in linea

Visitano il forum: Nessuno e 29 ospiti