Pubblica un file esemplificativo con la tua struttura dati per consentirci di adattare la macro al tuo caso.
Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487
Ciao
Moderatori: Anthony47, Flash30005
Sub Shuffle3()
Dim Dest As Worksheet, I As Long, kOff As Long, J As Long
'
Sheets("Table 1").Select
Set Dest = Worksheets("Questions") '<<< Il foglio di destinazione
Dest.Range("A:H").ClearContents
Randomize
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Dest.Cells(I, 1).Resize(1, 2).Value = Cells(I, 1).Resize(1, 2).Value
For J = 3 To 5
rej:
kOff = Int(Rnd() * 3) + 3
If Dest.Cells(I, kOff) = "" Then Dest.Cells(I, kOff) = Cells(I, J) Else GoTo rej
Next J
Next I
Dest.Cells(1, 1).Resize(1, 7).Value = Cells(1, 1).Resize(1, 7).Value
MsgBox ("Domande riorganizzate su foglio " & Dest.Name)
End Sub
Anthony47 ha scritto:Aha... Pippo, allora il primo file che lo avevi pubblicato solo per confonderci...
Tra le tante discussioni che hanno argomento analogo partiamo da questo: viewtopic.php?t=97247#p558344
Partendo dal file lì pubblicato e adattandolo alla nostra situazione ho ottenuto questo file:
https://www.dropbox.com/s/vt1qqs1vapv8b ... .xlsm?dl=0
Come si usa:
1) Copiare le domande /risposte nel foglio ORIGINALE; qui la risposta esatta e' quella contenuta in colonna C (la prima)
2) Poi eseguire la macro CreaDom_VB704(): da Excel premere Alt-F8, scegliere CreaDom_VB704 dall'elenco di macro disponibili, premere Esegui.
In questo modo nel foglio RESULT verra' creata una copia delle domande con le risposte mischiate.
3) Andando sul foglio RESULT, scegliete una domanda e cliccate la risposta che ritenere esatta: in caso di risposta giusta la cella si colora di verde; in caso di risposta errata si colora invece di Rosso.
In colonna G si crea un contatore differenza tra le risposte giuste e quelle sbagliate, e la domanda (colonna B) virera' al Rosso oppure al Verde a seconda del valore contenuto in questa colonna.
Cliccando in B1 la macro scegliera' una domanda a caso (anche se non e' obbligatorio rispondere a quella domanda); cliccando in C1 c'e' un rapido "help".
Per adr388: io non ho detto che "la cosa non e' fattibile"; semplicemete pippo aveva presentato un file con le domande mischiate e la macro non e' abbastanza istruita per sapere chi è l'autore di "Ossi di seppia".
Il tuo file e' lo stesso di pippo, userai quindi la stessa soluzione.
Fatene buon uso...
Adattando il file con le domande di mio interesse, per alcune domande restituisce questo errore: "il file non è consistente; non trovato in Foglio2 la domanda ....."
Anthony47 ha scritto:Adattando il file con le domande di mio interesse, per alcune domande restituisce questo errore: "il file non è consistente; non trovato in Foglio2 la domanda ....."
Humm...
Questo potrebbe succedere se cambi l'elenco delle domande in ORIGINALE e non riesegui la macro CreaDom_VB704; oppure se hai piu' di 65mila domande.
Se non e' il tuo caso allora allega il file che da' il problema, indicando anche qualche domanda su cui si ottiene quel messaggio.
Ciao
Anthony47 ha scritto:Effettivamente bisogna ricordare che le funzioni Excel accettano un parametro stringa fino a 255 caratteri...
Ho modificato la Sub CreaDom_VB704, che ora si chiama Sub CreaDom_VB704a, in modo da lavorare non sul testo della domanda ma su un suo "hash" creato in colonna L.
Il nuovo file e' reperibile qui: https://www.dropbox.com/s/sovqg2jkxdktm ... .xlsm?dl=0
Il funzionamento e' lo stesso del file precedente.
Siete liberi di creare un file che abbia le caratteristiche della "originalità" utilizzando idee contenute nel mio file; se lo usate "come è" allora vi invito a non modificare la radice del nome, che deve rimanere "Domande_Concorso_byAnthony"
Ciao
ma quando la vado ad eseguire mi dice che il foglio di origine è uguale a quello copia errore. non riesco a trovare una soluzione.Anthony47
Torna a Applicazioni Office Windows
cerca il più grande numero di celle vuote in un intervallo Autore: papiriof |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: raimea e 24 ospiti