selezione con select case
vedi
matema5.xls

esempio per sintassi selezione con Select case
scrivere 4 numeri nelle celle A1,B1,C1,D1 per elaborare
scrivere numero selettore k in cella B6 (6,2) :usare 1,2,3,4,5,6

Private Sub CommandButton1_Click()
'matema5 uso di Select case
Dim a, b, c, d, k As Integer
a = Cells(1, 1)
b = Cells(1, 2)
c = Cells(1, 3)
d = Cells(1, 4)
k = Cells(6, 2)
Select Case k
Case 1
Cells(2, 1) = a * b
Cells(3, 1) = a * a * a
Case 2, 3, 4
Cells(4, 2) = a + b
Case 5, 6
Cells(5, 3) = a - b
End Select
End Sub

Private Sub CommandButton2_Click()
Cells(1, 1) = ""
Cells(1, 2) = ""
Cells(1, 3) = ""
Cells(1, 4) = ""
Cells(2, 1) = ""
Cells(3, 1) = ""

End Sub