You are here:Home-Domande su Excel VBA e MACRO-inserimento valori random
inserimento valori random2019-03-18T09:32:16+01:00

Home Forum Domande su Excel VBA e MACRO inserimento valori random

Taggato: 

Visualizzazione 4 filoni di risposte
  • Autore
    Post
    • Avatarmickym1973
      Partecipante
        Post totali: 59

        Ciao ragazzi, avrei necessità nel file allegato, di inserire dei valori random per i dati presenti nel foglio. Ad esempio sul foglio denominato “primo foglio” vorrei che schiacciando un pulsante il peso relativo alle arance venisse cambiato in un valore compreso tra 50 e 60, così allo stesso modo, con lo stesso pulsante vorrei che il peso relativo all’uva il valore del peso cambiasse in un valore random compreso tra 90 e 100. Allo stesso modo vorrei accadesse lo stesso per le mele e le pere del foglio denominato “secondo foglio” (mele valore random tra 20 e 30, mentre per le pere, valore random compreso tra 50 e 60).

        In pratica con un pulsante solo vengono modificati questi 4 valori.

        Grazie 1000.

        http://www.filedropper.com/frutta

      • BySalvBySalv
        Amministratore del forum
          Post totali: 693

          Ciao Mickym1973, eccoti la macro che fa il lavoro, veramente ne sono 2 una per i pesi random in modo da poterli modificare e l’altra per l’aggiornamento dei dati.

          nella seconda puoi aggiungere anche altra frutta se si allunga l’elenco.

          ecco le macro

          Option Explicit
          Option Compare Text
          Public pp
          
          Sub peso1()
          Dim sh1 As Worksheet, sh2 As Worksheet
          Dim r, c, d, x
          
          Set sh1 = Worksheets("Primo foglio")
          sh1.Activate
          For x = 4 To Cells(Rows.Count, 5).End(xlUp).Row
              d = Cells(x, 5)
              Call Rand(d)
              Cells(x, 6) = pp
          Next x
          Set sh2 = Worksheets("Secondo foglio")
          sh2.Activate
          For x = 4 To Cells(Rows.Count, 2).End(xlUp).Row
              d = Cells(x, 2)
              Call Rand(d)
              Cells(x, 3) = pp
          Next x
          End Sub
          
          Sub Rand(d)
              Select Case d
                  Case "arance": pp = WorksheetFunction.RandBetween(50, 60)
                  Case "Uva": pp = WorksheetFunction.RandBetween(90, 100)
                  Case "mele": pp = WorksheetFunction.RandBetween(20, 30)
                  Case "Pere": pp = WorksheetFunction.RandBetween(50, 60)
              End Select
          End Sub

          anche se avrei fatto in altro modo, con un doppio click sulla frutta da modificare, se non vuoi modificare tutto!!!!…

          Ciao By Sal :bye:

          http://www.filedropper.com/frutta_1

          Ciao By Sal (8-)
          se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

        • Avatarmickym1973
          Partecipante
            Post totali: 59

            Ciao BySalv, innanzitutto grazie come sempre per la tua grande disponibilità…ho provato il programma e volevo chiedere quanto segue:

            1) vedo che il pulsante compare in tutti i fogli, sarebbe possibile farlo comparire solo sul primo?

            2) andando in “modalità  progettazione” non riesco a selezionare il pulsante..come mai?

            3) Dopo aver schiacciato il pulsante, ed aver quindi modificato i valori, avrei necessità di eliminare il pulsante stesso e salvare il file in formato xlsx, perdendo quindi tutte le funzionalità del codice stesso.

            Grazie 1000 e buona giornata.

          • BySalvBySalv
            Amministratore del forum
              Post totali: 693

              Ciao Micky, seleziona il pulsante che non serve con il dx del mouse e premi il tasto “Canc”, viene eliminato il pulsante che hai selezionato.

              poi basta che fai salva con nome, gli dai un altro nome, in xlsx e la macro non viene copiata resta il pulsante ma inutile, il quale puoi anche cancellarlo, ma ti resta il file con la macro per prossime casualità.

              Ciao By Sal :bye:

               

              Ciao By Sal (8-)
              se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

            • Avatarmickym1973
              Partecipante
                Post totali: 59

                Perfetto, grazie 1000 BySalv e buona serata.

            Visualizzazione 4 filoni di risposte
            • Devi essere connesso per rispondere a questo topic.