Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Buongiorno
con riferimento all'immagine 1 avrei bisogno di capire come scrivere in VB la stringa che mi consente di incrementare di 1 unità il numero contenuto nella cella E20 (arancio) tutte le volte che la macro associata al pulsante "LANCIO DADO" viene eseguita.
Allego anche immagine con le stringhe della macro (contenente anche il goffo tentativo fatto).
Grazie tante.
Cordiali saluti
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Prova così (dove al posto di "Foglio1" devi inserire il nome del tuo foglio:
Sub causale()
With ThisWorkbook.Worksheets("Foglio1")
.Range("D20").Formula = "=RANDBETWEEN(1,6)"
.Range("E20").Value = .Range("E20").Value + 1
End With
End Sub