049. Calcolo percentuale con VBA

Download PDF

Domanda:

Buongiorno, chiedo il vostro aiuto in merito ad un problema con codice vba. Ho la colonna C con dei valori e nell’ultima cella, che può variare di posizione, il totale. Ora vorrei creare un codice in vba che mi permetta di riportare in colonna D le diverse percentuali di incidenza sul totale dei valori in C.

Risposta:

Posto il totale nell’ultima cella cella colonna C, gli assegno una variabile in questo modo:

Last_Row = Sheet1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Totale = Sheet1.Cells(Last_Row, 3)

Fatto ciò, con un ciclo for next in ciascuna cella della colonna D riporto la percentuale sul totale con il seguente codice

For i = 2 To Last_Row - 1

    Sheet1.Cells(i, 4) = Sheet1.Cells(i, 3) / Totale

Next i

A voi il file:
APRI

Riccardo Vincenti

The following two tabs change content below.