Risultati da 1 a 11 di 11

Discussione: casuale e/o sorteggio



  1. #1
    L'avatar di fireman80
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    italia
    Età
    37
    Messaggi
    55
    Versione Office
    office 2016
    Likes ricevuti
    0
    Likes dati
    5

    casuale e/o sorteggio

    Salve a tutti,
    sono riuscito a creare un sorteggio con un tutorial visto su youtube però il problema che ho riscontrato e che una volta che funziona ad ogni mio click o cambiamento di altre celle ricalcola il casuale e quindi mi cambia di nuovo tutto il sorteggio, come posso fare in modo che fatto una volta non si ripeta più???

    Non so se mi son spiegato bene però allego il file, quindi aprendolo vi sarà tutto chiaro.
    File Allegati File Allegati

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978

    Re: casuale e/o sorteggio

    La funzione CASUALE() si aggiorna ad ogni cambiamento del Foglio quindi genera nuovi risultati.
    Per fare quello che vuoi tu c'è bisogno del VBA ed un tasto che ad ogni pressione genera nuovi numeri.
    Prova con questa routine:
    Codice: 
    Sub Genera()
        
        Range("E22:F31").FormulaR1C1 = "=IF(R20C12="""","""",RAND())"
        
        Calculate
        Range("E22:F31").Copy
         Range("E22:F31").PasteSpecial _
            Paste:=xlPasteValues, _
            Operation:=xlNone, _
            SkipBlanks:=False, _
            Transpose:=False
        Application.CutCopyMode = False
    End Sub
    Poi inserisci un tasto e associ la routine al tasto

  3. #3
    L'avatar di fireman80
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    italia
    Età
    37
    Messaggi
    55
    Versione Office
    office 2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: casuale e/o sorteggio

    ti ringrazio per la pronta risposta ma con il VBA non so da dove iniziare.......non si può ovviare con qualche formula??
    Ci provo e ti faccio sapere ma intanto se si potesse fare come ho detto mi semplificherebbe la cosa.....Grazie ancora per la disponiblità.



    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    La funzione CASUALE() si aggiorna ad ogni cambiamento del Foglio quindi genera nuovi risultati.
    Per fare quello che vuoi tu c'è bisogno del VBA ed un tasto che ad ogni pressione genera nuovi numeri.
    Prova con questa routine:
    Codice: 
    Sub Genera()
        
        Range("E22:F31").FormulaR1C1 = "=IF(R20C12="""","""",RAND())"
        
        Calculate
        Range("E22:F31").Copy
         Range("E22:F31").PasteSpecial _
            Paste:=xlPasteValues, _
            Operation:=xlNone, _
            SkipBlanks:=False, _
            Transpose:=False
        Application.CutCopyMode = False
    End Sub
    Poi inserisci un tasto e associ la routine al tasto

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978

    Re: casuale e/o sorteggio

    Segui questa procedura:

    1) apri l'edito VBA (ALT+F11);
    2) Inserisci/Modulo;
    3) ricopia la routine precedente;
    4) chiudi l'edito VBA
    5) Vai sulla scheda INSERISCI e scegli "FORME" dentro "Illustrazioni"
    6) inserisci una forma a tuo piacimento (rettangolo, cerchio ecc)
    7) tasto destro sulla forma appena inserita e click su "Assegna macro"
    8) assegna la macro "Genera"

    ora tutte le volte che clickerai sulla forma, si avvia la macro che genera numeri casuali e li incolla come valori

  5. I seguenti utenti hanno dato un "Like"


  6. #5
    L'avatar di fireman80
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    italia
    Età
    37
    Messaggi
    55
    Versione Office
    office 2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: casuale e/o sorteggio

    SPETTACOLO!!!!!:285::97:....grazie, guida perfetta, anche per me che sono 0.

  7. #6
    L'avatar di fireman80
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    italia
    Età
    37
    Messaggi
    55
    Versione Office
    office 2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: casuale e/o sorteggio

    Ciao Rubik72 allego questo file e ti chiedo :
    mi capire dove sta il mio errore nelle macro creata, cioè il sorteggio me lo fa al premere del tasto ma poi si ricalcola ogni volta che provo a modificare qualsiasi cella, cosa che non fa in quella creata da te nel post più su per l'altro file.

    :92:
    File Allegati File Allegati

  8. #7

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978

    Re: casuale e/o sorteggio

    Citazione Originariamente Scritto da fireman80 Visualizza Messaggio
    Ciao Rubik72 allego questo file e ti chiedo :
    mi capire dove sta il mio errore nelle macro creata, [...]
    Nel file allegato non vi è alcuna macro :92:

  9. #8
    L'avatar di fireman80
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    italia
    Età
    37
    Messaggi
    55
    Versione Office
    office 2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: casuale e/o sorteggio

    :250:......effettivamente......prova ora!!Scusa, ma con le Macro non sono un fulmine :17:
    File Allegati File Allegati

  10. #9

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978

    Re: casuale e/o sorteggio

    C'è qualche riferimento sbagliato nelle formule:
    Codice: 
    Sub Genera()
        
        Range("V25:V34").FormulaR1C1 = "=IF(R20C12="""","""",RAND())" 'nel range V25:V34 inserisce la formula =SE($L$20="";"";CASUALE())
                                                                                                    'secondo me con riferimento sbagliato sia la cella della formula (forse
                                                                                                    'volevi la formula in W25:W34) si la cella collegata (L20:92:) .L'errore
                                                                                                    'è qua basta cambiare i riferimenti esatti
        Calculate
        Range("V25:V34").Copy
         Range("V25:V34").PasteSpecial _
            Paste:=xlPasteValues, _
            Operation:=xlNone, _
            SkipBlanks:=False, _
            Transpose:=False
        Application.CutCopyMode = False
    End Sub
    se copi il codice in un modulo c'è la spiegazione commentata

  11. #10
    L'avatar di fireman80
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    italia
    Età
    37
    Messaggi
    55
    Versione Office
    office 2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: casuale e/o sorteggio

    GRAZIE, mi ero reso conto di aver sbagliato i riferimenti, ma siccome non capisco bene il linguaggio non riuscivo a capire come modificare.

    Sub Genera()

    Range("W25:W34").FormulaR1C1 = "=IF(R10C32="""","""",RAND())"

    Calculate
    Range("W25:W34").Copy
    Range("W25:W34").PasteSpecial _
    Paste:=xlPasteValues, _
    Operation:=xlNone, _
    SkipBlanks:=False, _
    Transpose:=False
    Application.CutCopyMode = False
    End Sub


    così va bene, come fate ad inserire il box con la stringa di testo???

  12. #11

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978

    Re: casuale e/o sorteggio

    Citazione Originariamente Scritto da fireman80 Visualizza Messaggio
    [...] come fate ad inserire il box con la stringa di testo???
    usa il tasto CODE (#) per racchiudere il codice
    :43:

Discussioni Simili

  1. Sorteggio gironi torneo con fasce
    Di frankuaku nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 08/09/16, 19:30
  2. Macro per sorteggio casuale
    Di franchinoss nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 05/08/16, 16:10
  3. Modificare macro Sorteggio
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 02/05/16, 14:39
  4. Modifica macro Sorteggio
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 31/10/15, 14:47
  5. Sorteggio macro
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 30/10/15, 11:38

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •