We hebben al besproken wat variabelen en constanten zijn, in onze tutorial VBA-gegevenstypen - variabelen en constanten. We gaan nu kijken naar het bereikobject in VBA en hoe een variabele als bereikobject te declareren. Het bereikobject wordt gebruikt om cellen of meerdere cellen in VBA aan te duiden. Het is dus erg handig om in uw code te gebruiken.
Klik hier voor meer informatie over VBA-bereiken en -cellen.
Het VBA-bereikobject
U kunt het bereikobject gebruiken om naar een enkele cel te verwijzen. Als u bijvoorbeeld naar cel A1 in uw VBA-code wilt verwijzen, kunt u het VBA-bereikobject gebruiken zoals weergegeven in de onderstaande code:
| 1234 | Sub die verwijst naar een enkele cel met behulp van TheRangeObject()Bereik ("A1"). Waarde = 89Bereik ("A1"). Lettertype. Vet = TrueEinde sub |
Wanneer u op run of F5 op uw toetsenbord drukt om uw code uit te voeren, krijgt u het volgende resultaat in uw eigenlijke werkblad:
U kunt het bereikobject gebruiken om naar meerdere cellen of bereiken te verwijzen. Als u bijvoorbeeld naar het celbereik (A1:C1) in uw VBA-code wilt verwijzen, kunt u het VBA-bereikobject gebruiken zoals weergegeven in de onderstaande code:
| 123456 | Sub die verwijst naar meerdere cellen met behulp van TheRangeObject()Bereik ("A1:C1"). Waarde = "ABC"Range("A1:C1").Borders(xlEdgeBottom).LineStyle = xlDoubleEinde sub |
Wanneer u op run of F5 op uw toetsenbord drukt om uw code uit te voeren, krijgt u het volgende resultaat in uw eigenlijke werkblad:
Een variabele als een bereik declareren
U moet de trefwoorden Dim en Set gebruiken wanneer u een variabele als bereik declareert. De onderstaande code laat zien hoe u een variabele als een bereik declareert.
| 123456789101112 | Sub DeclaringAndSettingARange()Dim rng als bereikStel rng = Bereik ("A10:B10") inrng.Value = "AutomatiseerExcel"rng.Font.Bold = Truerng.Selecteerrng.Kolommen.AutoFitEinde sub |
Het resultaat is:
Specifieke rijen in uw bereikobject selecteren
U kunt specifieke rijen binnen uw bereikobject selecteren. Onderstaande code laat zien hoe je dit doet:
| 12345678 | Sub selecterenSpecifieke rijenInTheRangeObject()Dim rng als bereikStel rng = Bereik ("A1:C3") inrng.Rijen(3).SelecteerEinde sub |
Het resultaat is:
Specifieke kolommen in uw bereikobject selecteren
U kunt specifieke kolommen binnen uw bereikobject selecteren. Onderstaande code laat zien hoe je dit doet:
| 12345678 | Sub selecterenSpecifieke kolommenInTheRangeObject()Dim rng als bereikStel rng = Bereik ("A1:C3") inrng.Kolommen(3).SelecteerEinde sub |
