Aiuto Excel 97... come incrementare il valore di più celle insieme?

[nicola75ss]

Sub incrementa()
Dim cella As Range
For Each cella In Selection.Cells
    If IsNumeric(cella) Then
        cella = cella + 1
    End If
    Next cella
End Sub

Sub decrementa()
Dim cella As Range
For Each cella In Selection.Cells
    If IsNumeric(cella) Then
        cella = cella - 1
    End If
    Next cella
End Sub

Inserisci le macro nell'editor, nel foglio disegna due rettangoli e associagliele.
Una volta selezionate le celle potrai incrementare/decrementare i valori con un semplice click.