vba5

gestione programma con due fogli excel:foglio1 per comandi,foglio2 per dati

Private Sub CommandButton1_Click()
'foglio1 con label1 che contiene Pulsante,label2,textbox
'foglio2 rinominato come DATI 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 + dati.Cells(a, b)
Next b
Next a
media = somma / 60
TextBox1.Text = media
End Sub

creare in foglio1 label1 entro la quale PULSANTE,label2,textbox1

in foglio2=DATI inserire i numeri da elaborare
	A	B	C	D	E
1	2	3	4	5	6
2	2	3	4	5	6
3	2	3	4	5	6
4	2	3	4	5	6
5	2	3	4	5	6
6	2	3	4	5	6
7	2	3	4	5	6
8	2	3	4	5	6
9	2	3	4	5	6
10 	2	3	4	2	6

inizio