Sviluppare funzionalita su Microsoft Office con VBA estrazione automatica numero-immagine

LoginRegistrati
Stai vedendo 9 articoli - dal 1 a 9 (di 9 totali)
  • Autore
    Articoli
  • #30899 Risposta

    marioindex
    Partecipante

      Buonasera, ho questo programma di estrazione di carte da gioco, l'estrazione avviene con pulsante estrai, vorrei che l'estrazione con pulsante a parte si potesse fare anche in estrai automatico e con altri pulsanti stop riprendi  hoprovatoin tanti modi ma non riesco proprio. Puntualizzo che non sono tanto pratico di excel. Grazie  

      Sub Estrazione_casuale()
      Randomize
      Do
      valore = Int(Rnd() * 40) + 1
      Do While Application.WorksheetFunction.CountIf(Range("K6:K45"), valore) = 0
      Cells(3, 1) = valore
      x = 6
      Do Until Cells(x, 11) = ""
      x = x + 1
      Loop
      Cells(x, "K") = Cells(3, 1)
      For i = 6 To 45
      For j = 6 To 45
      If Cells(i, 7) = Cells(j, 11) Then
      Range(Cells(i, 7), Cells(i, 8)).Interior.ColorIndex = 4
      End If
      Next
      Next
      Exit Sub
      Loop

      If Application.WorksheetFunction.CountIf(Range("K6:K45"), ">0") = 40 Then
      MsgBox "Estrazione terminata complimenti al vincitore!", vbInformation, "NOTIFICA"
      Exit Do
      End If
      Loop
      End Sub

      #30917 Risposta
      Luca73
      Luca73
      Partecipante
        44 pts

        Ciao,

        1) il tuo quesito non è chiaro. Cosa vorresti ottenere? Spendi qualche parola in più per chiarire.

        2) allega il file senza dati sensibili ma con le strutture corrette. In modo da capire meglio e poter nel caso fare delle prove.

        Ciao

        Luca

         

        #30920 Risposta

        marioindex
        Partecipante

          in questo programma di estrazione carte, vorrei inserire un comando di estrazione di 40 carte del tutto automatico.  Il tasto estrai e manuale devo ogni volta pigiarlo per estrarre una carta. Invece io vorrei che l'estrazione avvenisse del tutto automatica ad esempio ogni 10/15 secondi.

          Allegati:
          You must be logged in to view attached files.
          #30922 Risposta

          marioindex
          Partecipante

            Scusami ma non ti ho salutato,  Ciao Luca, ho inserito il programma spero che si possa fare 

            #30923 Risposta
            Luca73
            Luca73
            Partecipante
              44 pts

              Ciao

              Ecco una esempio con una nuova macro da aggiungere e assegnare ad un pulsante.

              Il numero di carte te lo fa scegliere il tempo fissala tu.

               

              Sub EstrazioniMultiple()
              Dim Quante
              Dim Tempo
              Dim Indice
              
              Quante = Application.InputBox("Quante Carte Vuoi Estrarre?", "NUMERO CARTE", 40, , , , , 1)
              Tempo = 5 'in secondi
              Call Azzera_estrazione
              For Indice = 1 To Quante
                  Call Button1_Click
                  Application.Wait (Now + TimeValue("0:00:01") * Tempo)
              Next Indice
              MsgBox ("Finito")
              End Sub
              #30926 Risposta

              marioindex
              Partecipante

                Ok grazie adesso provo

                #30927 Risposta

                marioindex
                Partecipante

                  Grazie funziona perfettamente sei un grande

                  #30950 Risposta

                  marioindex
                  Partecipante

                    Ciao Luca, scusa se ti disturbo ancora, volevo chiederti se nella macro che mi hai inviato(che tra l'altro funziona benissimo) si potrebbe inserire un comando di pausa/riprendi dal punto di pausa. Grazie ancora per la macro.

                    #30997 Risposta

                    marioindex
                    Partecipante

                      Ciao luca scusa ancora per il disturbo questa e la macro che mi hai creato tu, dove dovrei inserire i due tasti pausa/riavvia, adesso provo con il DoEvents, inoltre esiste la possibilita di bloccare l'immagine ingrandita?, poichè ogni volta che chiudo excel la stesssa dopo l'apertura si rimpicciolisce.

                      Sub EstrazioniMultiple()

                      Dim Quante

                      Dim Tempo

                      Dim Indice

                      Quante = Application.InputBox("Quante Carte Vuoi Estrarre?", "NUMERO CARTE", 40, , , , , 1)

                      Tempo = 5 'in secondi

                      Call Azzera_estrazione

                      For Indice = 1 To Quante

                      Call Button1_Click Application.Wait (Now + TimeValue("0:00:01") * Tempo)

                      Next Indice MsgBox ("Finito")

                      End Sub

                      Grazie ancora per il supporto.

                      Allegati:
                      You must be logged in to view attached files.
                    LoginRegistrati
                    Stai vedendo 9 articoli - dal 1 a 9 (di 9 totali)
                    Rispondi a: estrazione automatica numero-immagine
                    Gli allegati sono permessi solo ad utenti REGISTRATI
                    Le tue informazioni:



                    vecchio frac - 2750 risposte

                    patel
                    patel - 1089 risposte

                    albatros54
                    albatros54 - 1062 risposte

                    Marius44
                    Marius44 - 1000 risposte

                    Luca73
                    Luca73 - 798 risposte