U kunt de volgende basissyntaxis gebruiken om een case-instructie in VBA te schrijven:<\/span><\/p>\n In dit specifieke voorbeeld wordt naar elke cel in het bereik B2:B9<\/strong> gekeken en worden de volgende waarden in het bereik C2:C9<\/strong> geretourneerd:<\/span><\/p>\n Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.<\/span><\/p>\n Laten we zeggen dat we de volgende gegevensset in Excel hebben die het aantal punten weergeeft dat door verschillende basketbalspelers is gescoord:<\/span> <\/p>\n Stel dat we een casusverklaring willen schrijven om aan elke speler de waarde Uitstekend, Goed, OK of Slecht toe te kennen op basis van het aantal gescoorde punten.<\/span><\/p>\n We kunnen hiervoor de volgende macro maken:<\/span><\/p>\n Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:<\/span> <\/p>\n Kolom C retourneert een waarde Uitstekend, Goed, OK of Slecht op basis van de overeenkomstige waarde in kolom B.<\/span><\/p>\n In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:<\/span><\/p>\n VBA: een lijst met waarden classificeren<\/a> Een case-instructie is een type instructie dat door de voorwaarden loopt en een waarde retourneert wanneer aan de eerste voorwaarde is voldaan. U kunt de volgende basissyntaxis gebruiken om een case-instructie in VBA te schrijven: SubCaseStatement () Dim i As Integer For i = 2 To 9 Select Case Range(“ B “ & i).Value Case […]<\/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-4384","post","type-post","status-publish","format-standard","hentry","category-gids"],"yoast_head":"\n SubCaseStatement<\/span> ()\n\n Dim<\/span> i As<\/span> Integer\n\n For<\/span> i = 2 To<\/span> 9\n \n Select Case<\/span> Range(\" B<\/span> \" & i).Value\n Case Is<\/span> >= 30\n result=\" Great<\/span> \"\n Box Is<\/span> >= 20\n result = \" Good<\/span> \"\n Case Is<\/span> >= 15\n result=\" OK<\/span> \"\n Case Else<\/span>\n result=\" Bad<\/span> \"\n End Select<\/span>\n \n Range(\" C<\/span> \" & i).Value = result\n \n Next<\/span> i\n \nEnd Sub\n<\/span><\/strong><\/pre>\n\n
Voorbeeld: een Case Statement schrijven in VBA<\/strong><\/span><\/h2>\n
![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/vc1.jpg\")
<\/p>\n SubCaseStatement<\/span> ()\n\n Dim<\/span> i As<\/span> Integer\n\n For<\/span> i = 2 To<\/span> 9\n \n Select Case<\/span> Range(\" B<\/span> \" & i).Value\n Case Is<\/span> >= 30\n result=\" Great<\/span> \"\n Box Is<\/span> >= 20\n result = \" Good<\/span> \"\n Case Is<\/span> >= 15\n result=\" OK<\/span> \"\n Case Else<\/span>\n result=\" Bad<\/span> \"\n End Select<\/span>\n \n Range(\" C<\/span> \" & i).Value = result\n \n Next<\/span> i\n \nEnd Sub<\/span><\/strong><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/vc2.jpg\")
<\/p>\n Aanvullende bronnen<\/strong><\/span><\/h2>\n
VBA: unieke waarden binnen bereik tellen<\/a>
VBA: het aantal rijen binnen bereik tellen<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"