Katy ha chiesto in Computer e InternetComputer - Altro · 10 anni fa

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

Aggiornamento:

Grazie mille ma come si fanno a creare i pulsanti???

1 risposta

Classificazione
  • 10 anni fa
    Risposta 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

Altre domande? Fai una domanda e ottieni le risposte che cerchi.