Risultati da 1 a 7 di 7

Discussione: Calcolo media



  1. #1
    L'avatar di mdf91
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    torino
    Messaggi
    26
    Versione Office
    2016 MAC
    Likes ricevuti
    0
    Likes dati
    0

    Calcolo media

    Ciao a tutti nuovamente, mi sono imbattuto in una nuova problematica che non riesco a risolvere.
    Sto cercando di creare una macro che mi permetta di calcolare la media dei costi di produzione di prodotti identici(cioè con le stesse caratteristiche).
    Oggi ho provato a scriverne una ma con scarso successo. Uno dei problemi è creato dal fatto che le prime due colonne contengono dati in forma di testo mentre le altre 2 numeri.
    Io vorrei fare sì che la macro per prima cosa scorra il file trovando i prodotti identici (quindi con i dati contenuti nelle 4 colonne uguali) e poi di tutti questi prodotti trovati faccia il calcolo del costo di produzione medio (dato contenuto nella colonna 5 ).
    Allego il testo della mia macro ed un esempio di foglio di testo con quello che voglio ottenere. Il foglio è lo stesso del precedente problema: consta di 21000 righe, tuttavia vorrei far si che la macro potesse funzionare anche in caso di un incremento di dati, le colonne invece sono scese a 5.
    File Allegati File Allegati

  2. #2
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Calcolo media

    Nel tuo file se nella colonna G inserisci un campo legenda dove
    in G2 scrivi
    =B2&C2&D2&E2
    e trascini in basso e poi lasciando una riga libera
    nella cella F13 scrivi
    =SUBTOTALE(1;F2:F11)
    inserendo un filtro automatico e filtrando per uno dei dati univoci che ti propone nel filtro del campo legenda, ottieni il risultato cercato.

    ...oppure vuoi fare necessariamente con vba?

    saluti
    gg
    File Allegati File Allegati

  3. #3
    L'avatar di mdf91
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    torino
    Messaggi
    26
    Versione Office
    2016 MAC
    Likes ricevuti
    0
    Likes dati
    0

    Re: Calcolo media

    Di seguito il testo della mia Macro
    Codice: 
    OptionExplicit
    Sub MEDIA_Click()
    Dim area AsLong
    Dim i AsInteger
    Dim j AsInteger
    Dim k AsInteger
    Dim cell1 AsString
    Dim cell2 AsString
    Dim cell3 AsInteger
    Dim cell4 AsInteger
    Dim cell1c AsString
    Dim cell2c AsString
    Dim cell3c AsInteger
    Dim cell4c AsInteger
    Dim control AsInteger
    Dim media AsInteger
    Dim result AsInteger
    Dim final AsInteger
    
    
    
    
    Set area = Worksheets(1).Range(Cells(1, 1), Cells(1, 1).End(xlDown))
    n = area.Rows.Count
    
    
    For i = 2 To n
    media = 0
    result = 0
    media = 0
    final = 0
    k = 0
    control = Cells(i, 6).Value
    If control = 0 Then
    Next i
    Else
    For j = 2 To n
    control = Cells(j, 6).Value
    If control = 0 Then
    Next j
    Else
    cell1 = Cells(i, 1).Value
    cell2 = Cells(i, 2).Value
    cell3 = Cells(i, 3).Value
    cell4 = Cells(i, 4).Value
    cell1c = Cells(j, 1).Value
    cell2c = Cells(j, 2).Value
    cell3c = Cells(j, 3).Value
    cell4c = Cells(j, 4).Value
    If cell1 = cell1c And cell2 = cell2c And cell3 = cell3c And cell4 = cell4c Then
    result = cell(j, 5).Value
    Range(j, 6) = result
    media = media + result
    k = k + 1
    Next j
    Else
    Next j
    End If
    final = media / k
    Range(i, 7) = final
    Next i
    
    
    EndSub
    Ultima modifica fatta da:ges; 03/08/16 alle 00:37 Motivo: Inserito codice nei TAG

  4. #4
    L'avatar di mdf91
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    torino
    Messaggi
    26
    Versione Office
    2016 MAC
    Likes ricevuti
    0
    Likes dati
    0

    Re: Calcolo media

    Il foglio che ho caricato è una versione molto semplificata del mio foglio di lavoro reale; pensavo di utilizzare una macro che effettuasse il calcolo una volta sola per non dover utilizzare i filtri in quanto vi sono migliaia di tipologie di prodotti.

  5. #5

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7131
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: Calcolo media

    Citazione Originariamente Scritto da mdf91 Visualizza Messaggio
    ....Sto cercando di creare una macro c...
    Sposto nella sezione macro
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  6. #6
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3209
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155

    Re: Calcolo media

    Salve a tutti
    Prova questa macro (se va bene, devi dichiarare le variabili e tutto il resto):
    Codice: 
    Sub prova_media()
    Range("G:I").ClearContents
    a = 2
    For i = 2 To 11 - 1
        str1 = Cells(i, 2) & Cells(i, 3) & Cells(i, 4) & Cells(i, 5)
        mm = Cells(i, 6): n = 1
        For j = i + 1 To 11
            If Cells(j, 7) <> "x" Then
                str2 = Cells(j, 2) & Cells(j, 3) & Cells(j, 4) & Cells(j, 5)
                If str1 = str2 Then
                    mm = mm + Cells(j, 6)
                    n = n + 1
                    Cells(j, 7) = "x"
                End If
            End If
        Next j
        If n > 1 Then
            Cells(a, 8) = Cells(i, 1): Cells(a, 9) = mm / n
            a = a + 1
        End If
        mm = 0
    Next i
    End Sub
    Clicca sul pulsante Calcola e nelle colonne H ed I avrai il prodotto e la media.
    Allego il file

    Fai sapere. Ciao,
    Mario
    File Allegati File Allegati

  7. #7
    L'avatar di mdf91
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    torino
    Messaggi
    26
    Versione Office
    2016 MAC
    Likes ricevuti
    0
    Likes dati
    0

    Re: Calcolo media

    Mi scuso per il ritardo, ho provato la macro e funziona perfettamente! ti ringrazio!

Discussioni Simili

  1. [Risolto] calcolo media top valori
    Di braga1 nel forum Domande su Excel in generale
    Risposte: 18
    Ultimo Messaggio: 24/02/17, 21:47
  2. [Risolto] Calcolo media
    Di GioAlba nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 02/12/16, 17:50
  3. [Risolto] Calcolo media equivalente
    Di Emax80 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 28/11/16, 19:23
  4. calcolo media oraria
    Di ScaliseG nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 06/06/16, 19:29
  5. calcolo media mensile
    Di MauroS nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 25/07/15, 00:21

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •