🚀 go-pugleaf

"Cerberus1981" <cerberus1981@tin.it> ha scritto nel messaggio
news:MICOb.140247$_P.5136585@news4.tin.it...
> non so se ci riuscir� a schiarirti le idee, per� prova questa sub
> fammi sapere.
> cerberus1981@hotmail.com
>
> Private sub ChiamalaComeVuoiTu()
> dim X as integer
> dim Numeri(1 to 7) as integer
> dim Lettere(1 to 7) as string
> dim Compres(1 to 7) as new Collection
> dim Medie(1 to 4) as single
> numeri(1)=0'dai il valore collegato alla cella
> numeri(2)=0'dai il valore collegato alla cella
> numeri(3)=0'dai il valore collegato alla cella
> numeri(4)=0'dai il valore collegato alla cella
> Lettere(1)=""'dai il valore collegato alla cella
> Lettere(2)=""'dai il valore collegato alla cella
> Lettere(3)=""'dai il valore collegato alla cella
> Lettere(4)=""'dai il valore collegato alla cella
> for x=1 to 7 step 1
> select case Lettere(x)
> case="a"
>     compres(1).add numeri
> case="b"
>     compres(1).add numeri
> case="c"
>     compres(1).add numeri
> case="d"
>     compres(1).add numeri
> end select
> next x
> for X=1 to compres(1).count
>     media(1)=compres(1).item (x)
> next x
> media(1)=media(1)/compres(1).count
> for X=1 to compres(2).count
>     media(2)=compres(2).item (x)
> next x
> media(2)=media(2)/compres(2).count
> for X=1 to compres(3).count
>     media(3)=compres(3).item (x)
> next x
> media(3)=media(3)/compres(3).count
> for X=1 to compres(4).count
>     media(4)=compres(4).item (x)
> next x
> media(4)=media(4)/compres(4).count
>
> for x=1 to 4 step 1
>     msgbox "La media di " & asc(65+x)  & " �:" Media(x)
> next x
>
> End Sub
> ***************************************************************
>
Per cortesia delucidazioni. Non riesco a farlo funzionare.
Con il codice che mi hai postato tutte le celle me le rileva vuote.

- Chiarimento 1:
Che tipo di evento  associo la Funzione?

- Chiarimento 2:
Numeri(1) = 0 'dai il valore collegato alla cella
Numeri(2) = 0 'dai il valore collegato alla cella
Numeri(3) = 0 'dai il valore collegato alla cella
Numeri(4) = 0 'dai il valore collegato alla cella
Lettere(1) = " 'dai il valore collegato alla cella"
Lettere(2) = " 'dai il valore collegato alla cella"
Lettere(3) = " 'dai il valore collegato alla cella"
Lettere(4) = " 'dai il valore collegato alla cella"

Dato che le righe utilizzate sono 7 perche solo 4 numeri e 4 Lettere?


- Chiarimento 3:
numeri(1)=0'dai il valore collegato alla cella
Al posto dello 0 devo mettere il valore cella? (es A1)

Lettere(1) = " 'dai il valore collegato alla cella"
Al posto di " devo vettere il valore cella? (es B1 se associato alla cella
A1)

-Chiarimento 4
Il presente messaggio mi da errore su Media (x)
    MsgBox "La media di " & Asc(65 + X) & " �:"  Media(x)


Grazie 1000
Ciao Giorgio