Risultati da 1 a 12 di 12

Discussione: Macro per sorteggio casuale



  1. #1
    L'avatar di franchinoss
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Bari
    Età
    37
    Messaggi
    7
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    2

    Macro per sorteggio casuale

    Ciao innanzitutto grazie per quello che fate nel forum per tutti noi , volevo chiedervi una cortesia se possibile anche dopo le ferie ovviamente , vorrei realizzare un programma in excel che mi calcoli dei pronostici automatici , mi spiego meglio ti allego una foto e anche il file excel:http://oi66.tinypic.com/2ugfp5k.jpg.
    Io vorrei creare una cosa del genere dove in Squadre ci scrivo le Squadre che vorrei giocare che possono essere 13 oppure 12 oppure 11 ecc.., In 1-X-2 OVE/UND GOL/NOG MG.CASA MG.TRAS MG.TOT. RIS.ESA. 1.TEMP COMBO ci scrivo i miei pronostici , e il programma mi dovrebbe chiedere :Quante partite vuoi giocare? e io ci metto quello che voglio ad esempio nel programma ci metto 13 pronostici ma io di questi ne voglio giocare solo 8 e lui in automatico mi sceglie 8 partite a caso leggendo i pronostici da me inseriti perche' quando lo faccio io scelgo sempre delle partite che mi fanno perdere la schedina.In piu' di solito io su una partita scrivo 3-4 pronostici lui me ne deve scegliere solo uno .Spero mi sia spiegato bene e che sia fattibile per qualsiasi cosa sono a disposizione . In attesa di una vostra risposta porgo distinti saluti.

    File Allegati File Allegati

  2. #2
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Un aiuto per favore

    Ciao Franchinoss e benvenuto in forumexcel.it
    Tuttavia in questo forum bisogna scrivere il titolo nella maniera corretta, perchè il titolo deve anticipare il problema
    infatti se tu avessi letto il regolamento avresti letto la regola Nr. 5

    Assicurarti che il titolo sia il più chiaro possibile e che corrisponda al problema, usa termini appropriati che saranno usati come meta tag per una eventuale ricerca su Google.
    Evita di scrivere frasi inutili come “Aiuto” “Urgente ” “Non ci capisco niente” e "sono bloccato"
    perché potrebbero rivelarsi non appropriate e di conseguenza le tue discussioni potrebbero essere non lette.
    Ti consiglio di scrivere titoli che vanno dritto al problema esempio: "come faccio ad analizzare dati....." "come faccio ad estrarre records....." "come faccio a calcolare......." "come creare una TPivot......"
    I titoli ed i testi devono essere scritti in italiano corretto, sia grammaticamente che ortograficamente; postare frasi con errori evidenti è sempre una forma di NON rispetto per chi legge.


    visto che sei nuovo ti consiglio di leggerti tutto il “Regolamento” e a visitare la sezione “Annunci dello staff”, Cordiali saluti e buona continuazione

    PS Ho corretto io il titolo

  3. #3
    L'avatar di franchinoss
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Bari
    Età
    37
    Messaggi
    7
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Un aiuto per favore

    Ciao Gerardo scusami ho cambiato il titolo spero vada bene , ciao.

  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: Un aiuto per favore

    Se ho capito bene, prova con questa macro:
    Codice: 
    Sub Estrai()
    Dim Num As Integer
    Dim iCount As Integer
    Dim uRiga As Long
    Dim Squadre As Long
    Dim Estratto As Integer
    Dim Matrix()
    Dim mioRange As Range
    
    
    Num = InputBox("Quante partite vuoi giocare?", "Numero partite", 8)
    
    
    If Not IsNumeric(Num) Then
        Exit Sub
    End If
    
    
    uRiga = Cells(Rows.Count, 2).End(xlUp).Row
    Set mioRange = Range(Cells(2, 2), Cells(uRiga, 12))
    mioRange.Interior.ColorIndex = xlNone
    
    
    Squadre = uRiga - 1
    ReDim Matrix(Squadre)
    iCount = 0
        
    Do Until iCount = Num
    Ripeti:
        Randomize Timer
        Estratto = Int(Rnd() * Squadre)+1
        If Matrix(Estratto) = "" Then
            Matrix(Estratto) = Estratto
        Else
            GoTo Ripeti
        End If
        iCount = iCount + 1
    Loop
    
    
    For iCount = 1 To UBound(Matrix)
        If Matrix(iCount) <> "" Then
            mioRange.Rows(Matrix(iCount)).Interior.ColorIndex = 6
        End If
    Next
    
    
    Set mioRange = Nothing
    Erase Matrix
    
    
    End Sub
    File Allegati File Allegati
    Ultima modifica fatta da:Rubik72; 05/08/16 alle 11:58

  5. #5
    L'avatar di franchinoss
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Bari
    Età
    37
    Messaggi
    7
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Un aiuto per favore

    Ciao Rubik72 grazie per la risposta , Quante partite vuoi giocare va bene ma lui le deve prendere da quelle che inserisco io sul foglio , io ne scrivo 15 e ne voglio 9 lui le deve prendere da quelle che o scritto io e me ne deve dare quelle che scelgo io , in piu' io su una partita metto piu' pronostici , lui me ne deve prendere uno per partita .Ti allego il file di come io scrivo le partite e da quelle lui mi deve scegliere le casuali in base a quelle che gli dico io e mostrarmi partite e pronostico, ti allego il file con le partite e i pronostici scritti , grazie infinite per l'aiuto che mi stai dando.
    Sul foglio ci sono 16 partite ma io ne posso scrivere pure 20 o solo 10 , quando lui mi chiede quante partite vuoi giocare lui me le deve scegliere tra quelle scritte sul foglio che siano 10 o 15 o 20 .
    File Allegati File Allegati

  6. #6
    L'avatar di franchinoss
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Bari
    Età
    37
    Messaggi
    7
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Macro per sorteggio casuale

    Mettiamo il caso che io su 16 ne scelga 9, lui mi deve restituire 9 partite tra quelle scritte e con un solo pronostico scelto per partita ,come da foglio in allegato di quello che dovrebbe restituire .Spero di essere stato chiaro e che si possa fare te ne sarei veramente grato , grazie ciao.
    File Allegati File Allegati

  7. #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: Macro per sorteggio casuale

    Citazione Originariamente Scritto da franchinoss Visualizza Messaggio
    [...]Spero di essere stato chiaro e che si possa fare te ne sarei veramente grato , grazie ciao.
    In verità non ho capito cosa intendi.
    Ma tu compili tutto il foglio con 20 partite e tutti i pronostici e vuoi che scelga le partite richieste e che cancelli i pronostici in eccesso per lasciarne solo 1?

  8. #8
    L'avatar di franchinoss
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Bari
    Età
    37
    Messaggi
    7
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Macro per sorteggio casuale

    Ciao Rubik72 io il file lo compilo io le partite che metto variano a seconda da quante partite ci sono possono essre 10 0 31 o 15 o 20 non sono sempre le stesse, ti o messo un esempio del file compilato al messaggio 5 , poi vorrei che mi deve restituire il foglio come il file Restituire al messaggio 6 , se vedi i due file si capisce cosa intendo e tutto scritto nel messaggio 5 e 6 con i file di esempio , fammi sapere se adesso e piu chiaro , grazie ancora , ciao.

  9. #9
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Macro per sorteggio casuale

    prova così ...
    Codice: 
    Option Explicit
    Option Base 1
    
    Sub Estrai()
    Dim Num As Integer
    Dim iCount As Integer
    Dim uRiga As Long
    Dim Squadre As Long
    Dim rEstratta As Integer
    Dim cEstratta
    Dim Matrix()
    Dim mioRange As Range
    
    Range("A:L").Interior.ColorIndex = xlNone
    
    uRiga = Cells(Rows.Count, 2).End(xlUp).Row
    Set mioRange = Range(Cells(2, 2), Cells(uRiga, 12))
    
    Squadre = uRiga - 1
    ReDim Matrix(Squadre)
    
    Num = InputBox("Quante partite vuoi giocare? " & "(non più di" & Squadre & "!)", "Numero partite", 8)
    If Not IsNumeric(Num) Then
        Exit Sub
    End If
    
    iCount = 1
    Do Until iCount = Num + 1
    Ripeti1:
    'Per generare interi casuali in un dato intervallo, utilizzare la seguente formula:
    'Int((limitesup - limiteinf + 1) * Rnd + limiteinf)
        
        Randomize Timer
        rEstratta = Int(Rnd() * Squadre + 1)
        If Matrix(rEstratta) = "" Then
            Matrix(rEstratta) = rEstratta
        Else
            GoTo Ripeti1
        End If
        iCount = iCount + 1
    Loop
    
    For iCount = 1 To UBound(Matrix)
        If Matrix(iCount) <> "" Then
    ripeti2:
            Randomize Timer
            cEstratta = Int((11 - 3 + 1) * Rnd + 3)
            If mioRange.Cells(Matrix(iCount), cEstratta).Value = "" Then
            GoTo ripeti2
            Else
            mioRange.Cells(Matrix(iCount), cEstratta).Interior.ColorIndex = 6
            End If
        End If
    Next
    
    Set mioRange = Nothing
    Erase Matrix
    
    End Sub
    saluti
    gg
    File Allegati File Allegati

  10. I seguenti 2 utenti hanno dato un "Like" a ggratis per questo post:


  11. #10
    L'avatar di franchinoss
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Bari
    Età
    37
    Messaggi
    7
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Macro per sorteggio casuale

    Sig.ggratis anche se non capisco il codice da lei scritto , il file va benissimo e perfetto proprio quello che cercavo la ringrazio tantissimo , ringrazio pure Rubik72 per il tempo che mi a dedicato , siete grandi , spero un giorno di potermi sdebitare , grazie ancora , ciao.

  12. #11
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Macro per sorteggio casuale

    Perfetto grazie per il riscontro,
    se vinci qualcosa di importante ricordati di noi [emoji1]
    ...per il momento ci accontentiamo di un mi piace [emoji12] !
    Saluti
    GG

    Inviato dal mio GT-I9105P utilizzando Tapatalk

  13. I seguenti utenti hanno dato un "Like"


  14. #12
    L'avatar di franchinoss
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Bari
    Età
    37
    Messaggi
    7
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Macro per sorteggio casuale

    Citazione Originariamente Scritto da ggratis Visualizza Messaggio
    Perfetto grazie per il riscontro,
    se vinci qualcosa di importante ricordati di noi [emoji1]
    ...per il momento ci accontentiamo di un mi piace [emoji12] !
    Saluti
    GG

    Inviato dal mio GT-I9105P utilizzando Tapatalk
    Lo spero anche se il calcio non e ne matematica ne statistica e solo fortuna pero' sicuramente mi ricordero' di voi , grazie ancora , ciao.

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. Modificare macro Sorteggio
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 02/05/16, 14:39
  3. casuale e/o sorteggio
    Di fireman80 nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 29/04/16, 18:25
  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
  •