calcolo media e uso di due fogli

foglio1 con Pulsante,textbox
'foglio2 contiene numeri da elaborare
'in foglio1 pulsante con istruzioni per calcolare la media
'che viene visualizzata in textbox1
'ci sono 10 righe(a) e 6 colonne(b)

vedi
matema17.xls

Private Sub CommandButton1_Click()
Rem matema17
'foglio1 con Pulsante,textbox
'foglio2 contiene numeri da elaborare
'in foglio1 pulsante con istruzioni per calcolare la media
'che viene visualizzata in textbox1
'ci sono 10 righe(a) e 6 colonne(b)
Dim a, b, c As Integer
Dim somma As Integer
Dim media As Integer
somma = 0
For a = 1 To 10
For b = 1 To 6
somma = somma + Foglio2.Cells(a, b)
Next b
Next a
media = somma / 60
TextBox1.Text = media
End Sub

(codice per pulsante1 in foglio2 e tabella numerica)

Private Sub CommandButton1_Click()
Rem cancellare dati
For k = 1 To 10
For h = 1 To 6
Cells(k, h) = ""
Next h
Next k
End Sub