{"id":1155,"date":"2014-04-12T15:44:31","date_gmt":"2014-04-12T13:44:31","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=1155"},"modified":"2014-04-12T17:34:42","modified_gmt":"2014-04-12T15:34:42","slug":"calcolo-percentuale-con-vba","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/calcolo-percentuale-con-vba\/","title":{"rendered":"049. Calcolo percentuale con VBA"},"content":{"rendered":"
\"Download<\/a><\/div>

Domanda:<\/p>\n

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\u00f2 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.<\/p>\n

<\/p>\n

Risposta:<\/p>\n

Posto il totale nell’ultima cella cella colonna C, gli assegno una variabile in questo modo:<\/p>\n

Last_Row = Sheet1.Cells.Find(\"*\", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row\r\nTotale = Sheet1.Cells(Last_Row, 3)<\/pre>\n
Fatto ci\u00f2, con un ciclo for next in ciascuna cella della colonna D riporto la percentuale sul totale con il seguente codice<\/p>\n
For i = 2 To Last_Row - 1\r\n\r\n    Sheet1.Cells(i, 4) = Sheet1.Cells(i, 3) \/ Totale\r\n\r\nNext i<\/pre>\n
A voi il file:
\nAPRI<\/a><\/p>\n
Riccardo Vincenti<\/p>\n","protected":false},"excerpt":{"rendered":"
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\u00f2 variare di posizione, il totale. Ora vorrei creare un codice in vba che mi … Continua a leggere→<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":"","jetpack_publicize_message":"","jetpack_is_tweetstorm":false,"jetpack_publicize_feature_enabled":true,"_links_to":"","_links_to_target":""},"categories":[13,6],"tags":[],"jetpack_featured_media_url":"","jetpack_publicize_connections":[],"jetpack_shortlink":"https:\/\/wp.me\/p39IU1-iD","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":629,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/05\/individuare-duplicati\/","url_meta":{"origin":1155,"position":0},"title":"021. Individuare duplicati","date":"24 Maggio 2013","format":false,"excerpt":"Domanda: Buongiorno a tutti, avrei bisogno del vostro aiuto se possibile. io ho una colonna excel piena di codici alfanumerici, questa colonna \u00e8 in costante aggiornamaento perch\u00e8 ogni giorno vengo inseriti alcuni codici. io avrei bisogno di un modo per sapere e evidenziare se il codice che sto inserendo \u00e8\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1005,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/02\/scrivere-serie-da-1-a-n-con-vba\/","url_meta":{"origin":1155,"position":1},"title":"039. Scrivere serie da 1 a N con VBA","date":"4 Febbraio 2014","format":false,"excerpt":"Domanda: Come posso creare la colonna degli interi consecutivi a 1 a N dove N \u00e8 un parametro variabile(un numero intero) che viene immesso dall\\'utente (ad esempio nella casella G2)? Risposta: Il primo passo \u00e8 definire il parametro N che pu\u00f2 essere valorizzato o prendendo il valore a una cella\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1064,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/02\/filtro-rapido-con-vba-excel-2007-2010\/","url_meta":{"origin":1155,"position":2},"title":"041. Filtro Rapido con VBA (Excel 2007-2010)","date":"19 Febbraio 2014","format":false,"excerpt":"In ambito lavorativo capita spesso di avere file con un foglio dove sono presenti le anagrafiche dei clienti ed un altro contenente ad esempio il dettaglio degli ordini dei clienti. Quando si hanno elevate quantit\u00e0 di dati non \u00e8 immediato aprire il filtro sul foglio degli ordini ed individuare il\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":852,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/count-if-parametrizzato\/","url_meta":{"origin":1155,"position":3},"title":"031. Count IF parametrizzato","date":"17 Gennaio 2014","format":false,"excerpt":"Domanda: Buonasera vorrei porgere un quesito magari potrete aiutarmi a risolverlo. Ho creato un menu\\' a tendina con dove ho inserito una lista di nomi, nella cella a fianco con la formula del \\\"SE\\\" ho fatto in modo che quando nella cella con menu\\' a tendina scelgo un nome nella\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":480,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/03\/classifica-tramite-vba-v2\/","url_meta":{"origin":1155,"position":4},"title":"014. Classifica tramite VBA – v2","date":"27 Marzo 2013","format":false,"excerpt":"Questo articolo segue al precedente \"Classifica tramite VBA\" di cui \u00e8 un evoluzione. L'esigenza del nostro lettore era quella di avere la classifica per categoria in un'unica colonna, dal momento che dovr\u00e0 gestire fino a 10 categorie contemporaneamente. Ho modificato quindi il codice permettendo di gestire N categorie contemporaneamente senza\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":752,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/10\/estrarre-dati-da-cartelle-e-files-chiusi\/","url_meta":{"origin":1155,"position":5},"title":"026. Estrarre dati da cartelle e files chiusi","date":"19 Ottobre 2013","format":false,"excerpt":"Domanda: Sono alla ricerca di una macro vba che mi permetta di andare a leggere dei dati su foglio 1 di excel di varie cartelle di una cartella denominata Magazzino Magazzino \/abete\/1098.xls\/foglio1 \/abete\/1099.xls\/foglio1 \/acero\/2097.xls\/foglio1 \/acero\/2120.xls\/foglio1 ecc. Dovrei sommare in un nuovo foglio i valori contenuti nei vari foglio1 dell'elenco ad\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1155"}],"collection":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/comments?post=1155"}],"version-history":[{"count":3,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1155\/revisions"}],"predecessor-version":[{"id":1235,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1155\/revisions\/1235"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=1155"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=1155"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=1155"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}