Methode 1: Tel het aantal vellen in de actieve werkmap<\/strong><\/span><\/p>\n Methode 2: tel het aantal vellen in een open werkmap<\/strong><\/span><\/p>\n Methode 3: tel het aantal vellen in een gesloten ringband<\/strong><\/span><\/p>\n De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken.<\/span><\/p>\n Laten we zeggen dat we de volgende Excel-werkmap open hebben en deze bekijken:<\/span> <\/p>\n We kunnen de volgende macro gebruiken om het totale aantal bladen in deze werkmap te tellen en het aantal in cel A1 weer te geven:<\/span><\/p>\n Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:<\/span> <\/p>\n Merk op dat cel A1<\/b> de waarde 6<\/strong> bevat.<\/span><\/p>\n Dit vertelt ons dat er 6 bladen in dit werkboek zitten.<\/span><\/p>\n Stel dat we een Excel-werkmap hebben met de naam my_data.xlsx<\/strong> met twee geopende werkbladen, maar we bekijken deze momenteel niet.<\/span><\/p>\n We kunnen de volgende macro gebruiken om het totale aantal bladen in deze werkmap te tellen en het aantal in cel A1 van de actieve werkmap weer te geven:<\/span><\/p>\n Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:<\/span> <\/p>\n Merk op dat cel A1<\/b> de waarde 2<\/strong> bevat.<\/span><\/p>\n Dit vertelt ons dat er twee bladen in de open werkmap zijn met de naam my_data.xlsx<\/strong> .<\/span><\/p>\n Stel dat we een Excel-werkmap hebben met de naam my_data.xlsx<\/strong> met twee bladen die momenteel niet geopend zijn, maar zich op de volgende bestandslocatie bevinden:<\/span><\/p>\n C:\\Gebruikers\\Bob\\Desktop\\mijn_data.xlsx<\/strong><\/span><\/p>\n We kunnen de volgende macro gebruiken om het totale aantal bladen in deze werkmap te tellen en het aantal in cel A1 van het eerste blad van de actieve werkmap weer te geven:<\/span><\/p>\n Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:<\/span> <\/p>\n Merk op dat cel A1<\/b> de waarde 2<\/strong> bevat.<\/span><\/p>\n Dit vertelt ons dat er twee bladen in de gesloten werkmap staan met de naam my_data.xlsx<\/strong> .<\/span><\/p>\n Opmerking<\/strong> : In de code vertelt Application.DisplayAlerts=False<\/strong> aan VBA dat het proces van het openen van de gesloten werkmap, het tellen van de bladen en het vervolgens sluiten van de werkmap niet moet worden weergegeven.<\/span><\/p>\n In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:<\/span><\/p>\n VBA: het aantal rijen binnen bereik tellen<\/a> U kunt de volgende methoden gebruiken om het aantal vellen in een werkmap in Excel te tellen: Methode 1: Tel het aantal vellen in de actieve werkmap SubCountSheetsActive () Range(“ A1 „) = ThisWorkbook.Worksheets.Count End Sub Methode 2: tel het aantal vellen in een open werkmap SubCountSheetsOpen () Range(“ A1 „) = Workbooks(“ my_data.xlsx „).Sheets.Count […]<\/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":[],"class_list":["post-4342","post","type-post","status-publish","format-standard","hentry","category-gids"],"yoast_head":"\n SubCountSheetsActive<\/span> ()\n Range(\" A1<\/span> \") = ThisWorkbook.Worksheets.Count<\/span>\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n SubCountSheetsOpen<\/span> ()\n Range(\" A1<\/span> \") = Workbooks(\" my_data.xlsx<\/span> \").Sheets.Count\nEnd Sub<\/span><\/strong><\/span><\/pre>\n SubCountSheetsClosed<\/span> ()\n Application.DisplayAlerts = False\n Set wb = Workbooks.Open(\" C:\\Users\\Bob\\Desktop\\my_data.xlsx<\/span> \")\n \n 'count sheets in closed workbook and display count in cell A1 of current workbook<\/span>\n ThisWorkbook.Sheets(1).Range(\" A1<\/span> \").Value = wb.Sheets.Count\n\n wb.Close SaveChanges:=True\n Application.DisplayAlerts = True\nEnd Sub<\/span><\/strong><\/span><\/pre>\n Voorbeeld 1: Tel het aantal vellen in een actieve werkmap<\/strong><\/span><\/h2>\n
![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/vbasheets1.jpg\")
<\/p>\n SubCountSheetsActive<\/span> ()\n Range(\" A1<\/span> \") = ThisWorkbook.Worksheets.Count\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/vbasheets2.jpg\")
<\/p>\n Voorbeeld 2: Tel het aantal vellen in een open map<\/strong><\/span><\/h2>\n
SubCountSheetsOpen<\/span> ()\n Range(\" A1<\/span> \") = Workbooks(\" my_data.xlsx<\/span> \").Sheets.Count\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/vbasheets3.jpg\")
<\/p>\n Voorbeeld 3: Het aantal vellen tellen in een gesloten ringband<\/strong><\/span><\/h2>\n
SubCountSheetsClosed<\/span> ()\n Application.DisplayAlerts = False\n Set wb = Workbooks.Open(\" C:\\Users\\Bob\\Desktop\\my_data.xlsx<\/span> \")\n \n 'count sheets in closed workbook and display count in cell A1 of current workbook<\/span>\n ThisWorkbook.Sheets(1).Range(\" A1<\/span> \").Value = wb.Sheets.Count\n\n wb.Close SaveChanges:=True\n Application.DisplayAlerts = True\nEnd Sub<\/span><\/strong><\/span><\/pre>\n<\/p>\n Aanvullende bronnen<\/strong><\/span><\/h2>\n
VBA: cellen tellen met specifieke tekst<\/a>
VBA: Hoe COUNTIF- en COUNTIFS-functies te schrijven<\/p>\n","protected":false},"excerpt":{"rendered":"