{"id":1239,"date":"2014-04-14T15:34:07","date_gmt":"2014-04-14T13:34:07","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=1239"},"modified":"2014-04-14T15:34:07","modified_gmt":"2014-04-14T13:34:07","slug":"051-assegnare-valori-ad-un-array","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/051-assegnare-valori-ad-un-array\/","title":{"rendered":"051. Assegnare valori ad un array"},"content":{"rendered":"<div style=text-align:right;><a class=\"wpptopdfenh\" target=\"_blank\" rel=\"noindex,nofollow\" href=\"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/051-assegnare-valori-ad-un-array\/?format=pdf\" title=\"Download PDF\"><img alt=\"Download PDF\" src=\"https:\/\/i0.wp.com\/www.office-guru.com\/wordpress\/wp-content\/plugins\/wp-post-to-pdf-enhanced\/asset\/images\/pdf.png?w=584\" data-recalc-dims=\"1\"><\/a><\/div><p>Domanda:<\/p>\n<p>Come fare ad inserire in un array i valori contenuti, ad esempio, nelle celle dalla a1 alla a7?<\/p>\n<p><!--more--><\/p>\n<p>Risposta:<\/p>\n<p>Dato un intervalo A1:A7 posto in uno sheet chiamato &#8220;Mio Sheet&#8221;),<br \/>\nvalorizzo un array chiamato MioArray in questo modo:<\/p>\n<pre>Dim rng As Range, r As Range, cnt As Long\r\nSet rng = Sheets(\"Mio Sheet\").Range(Cells(1, 1), Cells(7, 1))\r\n\r\nFor Each r In rng\r\n\r\n    ReDim Preserve MioArray(cnt)\r\n    MioArray (cnt) = r.Text\r\n    cnt = cnt + 1\r\n\r\nNext<\/pre>\n<p>Attenzione:<br \/>\nvolendo lavorare sugli elementi dell\u2019array,<br \/>\nil primo elemento ha coordinata MioArray(0) e non MioArray(1)<\/p>\n<p>Riccardo Vincenti<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Domanda: Come fare ad inserire in un array i valori contenuti, ad esempio, nelle celle dalla a1 alla a7?<\/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-jZ","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":1332,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/09\/059-filtra-hyperlink\/","url_meta":{"origin":1239,"position":0},"title":"059. Filtra Hyperlink","date":"28 Settembre 2014","format":false,"excerpt":"Domanda: Ho un database Excel 2010, circa 500 record In colonna A vi sono dei collegamenti ipertestuali. E' possibile filtrare i record in modo da avere un elenco solo di quelli che NON presentano in colonna A il collegamento ipertestuale?. Risposta: E' possibile. Ecco come ho risolto. Ho tratto spunto\u2026","rel":"","context":"In &quot;Domande Lettori&quot;","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":1239,"position":1},"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 &quot;Domande Lettori&quot;","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1145,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/estrarre-dati-da-cartelle-e-files-chiusi-2\/","url_meta":{"origin":1239,"position":2},"title":"048. Estrarre dati da cartelle e files chiusi &#8211; 2","date":"11 Aprile 2014","format":false,"excerpt":"Domanda: La mia necessit\u00e0 \u00e8 quella di copiare da file chiusi xls sempre le stesse celle (a4:u200), che si trovano in una cartella in \"c:\/dati\" e incollarli,nel file attivo in quel momento chiamato archivio, sulla prima riga libera partendo dalla colonna A in sequenza, senza lasciare righe libere. Risposta: Ho\u2026","rel":"","context":"In &quot;Domande Lettori&quot;","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1822,"url":"https:\/\/www.office-guru.com\/wordpress\/2017\/10\/071-estrazione-casuale-valori-da-un-elenco\/","url_meta":{"origin":1239,"position":3},"title":"071. Estrazione casuale valori da un elenco","date":"5 Ottobre 2017","format":false,"excerpt":"Ci scrivono: Buonasera, io dovrei estrarre, casualmente, da una colonna di 170 celle 40 celle. Mi potreste dare info su la funzione da utilizzare ? Grazie <!--more--> Risposta: Dopo aver indicato nella cella D1 il numero di valori che voglio estrarre dal mio elenco basta premere il bottone \"ESTRAI\" che\u2026","rel":"","context":"In &quot;Domande Lettori&quot;","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1055,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/02\/nlookup-per-superare-limite-della-vlookup\/","url_meta":{"origin":1239,"position":4},"title":"040. NLookup per superare limite della Vlookup","date":"18 Febbraio 2014","format":false,"excerpt":"Domanda: Come ovviare al problema che CERCA.VERT() si ferma al primo dato ricercato e trascura gli altri duplicati, chiaramaente duplicati solo nella colonna di ricerca ma nelle altre di cui rileverne i dati? Risposta: La soluzione a questo problema era stata gi\u00e0 affronata da Andrea nell'articolo presente al link http:\/\/www.terzaghi.it\/excel\/cercanesimo.htm\u2026","rel":"","context":"In &quot;CERCA.VERT&quot;","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":180,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/02\/riportare-somma-tramite-vba\/","url_meta":{"origin":1239,"position":5},"title":"001. Riportare somma tramite VBA","date":"14 Febbraio 2013","format":false,"excerpt":"Domanda: Scopiazzando sul web sono riuscito a creare la seguente macro che vorrei modificare: Private Sub Worksheet_Activate() Dim wSheet As Worksheet Dim l As Long l = 1 With Me .Columns(1).ClearContents .Cells(1, 1) = \\\"ELENCO GIOCATORI\\\" .Cells(1, 2) = \\\"IMPORTO Assegnato\\\" .Cells(1, 1).Name = \\\"Sommario\\\" End With For Each wSheet\u2026","rel":"","context":"In &quot;Domande Lettori&quot;","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1239"}],"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=1239"}],"version-history":[{"count":1,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1239\/revisions"}],"predecessor-version":[{"id":1240,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1239\/revisions\/1240"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=1239"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=1239"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=1239"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}