Come si creano i tasti su Excel?
Salve,
avrei bisogno di sapere come fare a creare un tasto di sottrazione su Excel 2010.
Io ho una scheda con dei prodotti e le quantità di questi.
Su ogni riga c'è il quantitativo che ho in casa e la descrizione, ad esempio:
2 APRIBOTTIGLIE
4 TOVAGLIOLI
....
Accanto alle descrizioni vorrei inserire un tasto che mi basta cliccare col mouse e va automaticamente a sottrarre 1 pezzo a quella che è la mia riga (che sia apribottiglie, o tavaglioli, ecc..).
Come faccio?
Aiutatemi per favoreeee
Grazie mille ma come si fanno a creare i pulsanti???
1 risposta
- ziopinoLv 710 anni faRisposta preferita
Innanzitutto dovresti dividere la colonna, ad es. nella colonna A inserisci il numero e nella B la descrizione, poi aggiungi i pulsanti e ad ogni pulsante, adattandolo alla cella considerata, assegni questo codice:
per il numero nella riga 1
Private Sub CommandButton1_Click()
Dim valore1 As Long
valore1 = Range("A1").Value
valore1 = valore1 - 1
Range("A1").Value = valore1
End Sub
per quello nella riga 2
Private Sub CommandButton2_Click()
Dim valore2 As Long
valore2 = Range("A2").Value
valore2 = valore2 - 1
Range("A2").Value = valore2
End Sub
e via di seguito per le altre righe.
Volendo potresti aggiungere due pulsanti e al secondo invece di valoreX = valoreX - 1 metti valoreX = valoreX + 1 così con uno sottrai e con l'altro aggiungi meglio ancora se invece del pulsante inserisci uno SpinButton (quello con due frecce verso il basso e l'alto)
Assegni questo codice e premendo la freccia in basso sottrai con quella in alto aggiungi.
Private Sub SpinButton1_SpinDown()
Dim valore As Long
valore = Range("A1").Value
valore = valore - 1
Range("A1").Value = valore
End Sub
Private Sub SpinButton1_SpinUp()
Dim valore As Long
valore = Range("A1").Value
valore = valore + 1
Range("A1").Value = valore
End Sub
Fà in questo modo (non sò se per Excel 2007 è lo stesso, queste indicazioni sono per 97/2003)
Visualizza
Barre degli strumenti
scegli
Strumenti di controllo
click su Modalità progettazione
(la prima icona in alto a sx quella con riga, squadra e matita che resterà "premuta")
quindi click su Pulsante di comando
(la quarta icona a sx dall'alto)
oppure click su Pulsante di selezione
(la sesta a dx dall'alto)
Il cursore diventerà un '+' e basta trascinarlo col tasto sx premuto dall'alto a sx in basso a dx e "disegni" il pulsante poi basta un doppio click sul pulsante disegnato ed entri in Visual Basic dove incolli quello che ho segnato.
per il pulsante andrai dirattamente in
Private Sub CommandButton1_Click()
End Sub
mentre per lo SpinButton click sulla freccia della tendina a discesa di destra e scegli SpinUp e SpinDown e in questi copi il codice.
Quando hai finito click su Modalità progettazione (ritornerà in posizione "non premuta" è importante chiuderla altrimenti i pulsanti non funzionano) e chiudi Strumenti di controllo.
Divertiti!
ziopino