You are here:--inserimento valori random
inserimento valori random2019-03-18T09:32:16+02:00

Home Forum Domande su Excel VBA e MACRO inserimento valori random

  • Autore
    Articoli
  • Avatarmickym1973
    Partecipante
      Post totali: 51

      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: 505

        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

      • Avatarmickym1973
        Partecipante
          Post totali: 51

          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: 505

            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:

             

          • Avatarmickym1973
            Partecipante
              Post totali: 51

              Perfetto, grazie 1000 BySalv e buona serata.

            Devi essere loggato per rispondere a questa discussione.

            Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

            Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

            Chiudi