Come si creano i tasti su Excel?

Question

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

ziopino · Accepted Answer

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

Come si creano i tasti su Excel?

1 risposta