PDA

View Full Version : Piccolissima Macro per Excel Pulsante per aggiungere valore

maso87
23-07-2008, 00:15
Sostanzialmente dovrei creare un semplice foglio excel per dei rilievi.
La struttura č quella che vedete in figura. E' la riproduzione di una tabella per analisi cartacea.


http://img133.imageshack.us/img133/1703/immagine1yt2.th.png (http://img133.imageshack.us/my.php?image=immagine1yt2.png)

10-20-30 ecc sono ipotetiche classi di danno. Per ogni campione (possiamo per semplicitā ipotizzarne solo uno), si procede al rilievo di n elementi. Nella versione cartacea, si procede scrivendo trattini o quadratini in successione, per poi fare una somma alla fine.
Ora io vorrei mettere un tasto a fianco di ogni classe di danno, in modo che ad ogni pressione dello stesso, venga aggiunta un'unitā alla classe stessa.


E' una cosa fattibile ?

Spero di essermi spiegato bene, altrimenti chiedete pure.
andrea689
23-07-2008, 14:19
se ho capito bene č molto semplice...
ti allego un file di esempio...
maso87
23-07-2008, 19:06
se ho capito bene č molto semplice...
ti allego un file di esempio...

Si cosė sarebbe perfetto, magari anche con il tasto per il decremento e per svuotare tutti i campi.

Meglio ancora se tu mi spiegassi come farlo, in modo da essere autonomo...:D
andrea689
23-07-2008, 20:40
mi sā che non hai proprio nessun esperienza di macro...
non sō se riesco a spiegartelo... vediamo...
allora intanto devi riuscire ad inserire tre pulsanti in un foglio excel come quello ke ti allego qui...
se non riesci ad inserirli dimmi se hai office 2003 o 2007 e ti spiego come fare...

al primo pulsante quando ti chiede d'inserire una macro metti la seguente (incrementa):
Sub Pulsante1_Click()
Range("b3") = Range("b3") + 1
End Sub

al secondo (decrementa):
Sub Pulsante2_Click()
Range("b3") = Range("b3") - 1
End Sub

oppure se non vuoi che non scenda sotto zero metti questo:
Sub Pulsante2_Click()
If Range("B3") = 0 Then
Else:
Range("b3") = Range("b3") - 1
End If
End Sub

e per finire al terzo (azzera):
Sub Pulsante3_Click()
Range("b3") = 0
End Sub

qualunque cosa non dovessi capire kiedi pure..
maso87
23-07-2008, 20:49
mi sā che non hai proprio nessun esperienza di macro...


Esatto :doh: .