Metodo 1: esamina tutti i fogli di calcolo<\/strong><\/span><\/p>\n Questa particolare macro esamina ogni foglio di una cartella di lavoro e imposta il valore nella cella A1<\/strong> di ciascun foglio su 100.<\/span><\/p>\n Metodo 2: sfoglia tutti i fogli di lavoro, esclusi quelli specifici<\/strong><\/span><\/p>\n Questa particolare macro scorre ogni foglio di una cartella di lavoro e imposta il valore nella cella A1<\/strong> di ogni foglio su 100, ad eccezione<\/em> dei fogli chiamati Sheet2<\/strong> e Sheet3<\/strong> .<\/span><\/p>\n Gli esempi seguenti mostrano come utilizzare nella pratica ciascuno di questi metodi con una cartella di lavoro Excel contenente quattro fogli vuoti:<\/span> <\/p>\n Possiamo utilizzare la seguente macro per impostare il valore della cella A1<\/strong> su ciascun foglio della nostra cartella di lavoro in modo che sia uguale a 100:<\/span><\/p>\n Quando eseguiamo questa macro, il valore della cella A1<\/strong> in ogni foglio della cartella di lavoro sar\u00e0 uguale a 100:<\/span> <\/p>\n Diciamo che vogliamo esaminare ogni foglio di lavoro e impostare il valore della cella A1<\/strong> in ogni foglio su 100, ad eccezione<\/em> dei fogli chiamati Sheet2<\/strong> e Sheet3<\/strong> .<\/span><\/p>\n Per fare ci\u00f2 possiamo creare la seguente macro:<\/span><\/p>\n Quando eseguiamo questa macro, vedremo che Foglio1<\/strong> e Foglio4<\/strong> hanno un valore pari a 100 nella cella A1<\/strong> .<\/span><\/p>\n Tuttavia, Foglio2<\/strong> e Foglio3<\/strong> non avranno alcun valore nella cella A1<\/strong> poich\u00e9 abbiamo utilizzato la funzione Case<\/strong> per ignorare questi fogli:<\/span> <\/p>\n Tieni presente che in questi esempi abbiamo esaminato ogni foglio di lavoro e impostato il valore di una cella uguale a un valore specifico, solo per semplicit\u00e0.<\/span><\/p>\n Tuttavia, se lo desideri, puoi utilizzare una sintassi simile con un’istruzione For Each<\/strong> per eseguire attivit\u00e0 molto pi\u00f9 complicate in ciascun foglio.<\/span><\/p>\n I seguenti tutorial spiegano come eseguire altre attivit\u00e0 comuni in VBA:<\/span><\/p>\n VBA: come contare il numero di righe nell’intervallo<\/a> \u00c8 possibile utilizzare i seguenti metodi per spostarsi tra i fogli di una cartella di lavoro di Excel utilizzando VBA: Metodo 1: esamina tutti i fogli di calcolo SubLoopSheets () Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Range(“A1”).Value = 100 Next ws End Sub Questa particolare macro esamina ogni foglio di una cartella […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"\n SubLoopSheets<\/span> ()\n\nDim<\/span> ws As<\/span> Worksheet\n\nFor Each<\/span> ws In<\/span> ThisWorkbook.Worksheets\n\n ws.Range(\"A1\").Value = 100\n\nNext<\/span> ws\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n SubLoopSheets<\/span> ()\n\nDim<\/span> ws As<\/span> Worksheet\n\nFor Each<\/span> ws In<\/span> ThisWorkbook.Worksheets\n\n Select Case<\/span> ws.Name\n Case Is<\/span> = \"Sheet2\", \"Sheet3\"\n 'Do not execute any code for these sheets<\/span>\n Case Else<\/span>\n ws.Range(\"A1\").Value = 100\n End Select<\/span>\n\nNext<\/span> ws\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/boucle1.png\")
<\/p>\n Esempio 1: sfoglia tutti i fogli di lavoro<\/strong><\/span><\/h2>\n
SubLoopSheets<\/span> ()\n\nDim<\/span> ws As<\/span> Worksheet\n\nFor Each<\/span> ws In<\/span> ThisWorkbook.Worksheets\n\n ws.Range(\"A1\").Value = 100\n\nNext<\/span> ws\n<\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/boucle2.png\")
<\/p>\n Esempio 2: sfoglia tutti i fogli di lavoro, esclusi quelli specifici<\/strong><\/span><\/h2>\n
SubLoopSheets<\/span> ()\n\nDim<\/span> ws As<\/span> Worksheet\n\nFor Each<\/span> ws In<\/span> ThisWorkbook.Worksheets\n\n Select Case<\/span> ws.Name\n Case Is<\/span> = \"Sheet2\", \"Sheet3\"\n 'Do not execute any code for these sheets<\/span>\n Case Else<\/span>\n ws.Range(\"A1\").Value = 100\n End Select<\/span>\n\nNext<\/span> ws\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/boucle3.png\")
<\/p>\n Risorse addizionali<\/strong><\/span><\/h2>\n
VBA: come contare le celle con testo specifico<\/a>
VBA: come scrivere le funzioni COUNTIF e COUNTIFS<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"