Macro per media dei voti



  • Help
    di Andrea (utente non iscritto) data: 27/02/2009

    Programma che calcola la media voti.
    il programma mi funziona, ma c'è un problema.
    per fare questo programma ho dichiarato delle variabili che mi facilitano nell'impostazione delle formule.
    nella colonna b ci sono i crediti e nella colonna c ci sono i voti che vado inserendo.

    ovviamente le materie sono nel mio caso circa 26 quindi ho inserito i puntini per non scrivere tutto il codice.

    il problema sussiste quando calcolo una media e poi azzero con il tasto che mi svuota le celle della media. difatti sostituendo un voto (es. 26 con 25)la media me la calcola con il valore precedentemente inserito....e per "azzerare" il valore di queste variabili devo entrare ed uscire dalla modalità progettazione.

    come faccio a risolvere questo problema?

    spero di essere stato sufficentemente chiaro...ringrazio tutti voi
     
    If Range("C3") <> "" Then
     b = Range("B3").Value
     b1 = ((Range("B3").Value) * (Range("C3").Value))
    End If
    If Range("C4") <> "" Then
     c = Range("B4").Value
     c1 = ((Range("B4").Value) * (Range("C4").Value))
    End If
    .....
    CREDITI = (b + c +....)
    MOLT = (b1 + c1....)
    MEDIAVOTI = (MOLT / CREDITI)
    
    Range("F14").Value = MEDIAVOTI
    
    



  • di Teomacro (utente non iscritto) data: 09/03/2009

    Ciao,
    sarebbe piu' chiaro se allegassi il file ;)



  • di Ricky53 data: 10/03/2009

    Ciao,
    hai 26x2 variabili diverse?
    devi fare quindi lo stesso numero di "if"?
    uhm ... qualcosa non mi torna.

    se gli "if", spannometricamente parlando, sono più di "5" su una stessa tipologia l'analisi è stata fatta male!

    una "array" ti potrebbe essere utile ...

    a mio avviso ti conviene riorganizzare il progetto.

    se alleghi un file di esempio (senza dati riservati) ti posso aiutare.

    ciao da ricky53



  • di Ricky53 data: 10/03/2009

    Ciao,
    prima ho dimenticato di dirti che accorre modificare il titolo della discussione: invialo a me che provvedo io a fare la modifica.

    questo per consentire ad altri utenti di conoscere l'argomento che viene trattato all'interno della discussione

    ciao da ricky53