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.

• Bio
• Ultimi Post

Riccardo Vincenti

Ultimi post di Riccardo Vincenti (vedi tutti)

• 073. Duplicare righe excel modificando il contenuto - 6 Ottobre 2017
• 072. Estrazione numeri casuali - 6 Ottobre 2017
• 071. Estrazione casuale valori da un elenco - 5 Ottobre 2017
• 070. Contare dati univoci senza Pivot - 21 Settembre 2017
• 069. Aggiungere intervalli ad una data: Date Add in Excel - 21 Settembre 2017

This work by Riccardo Vincenti is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International