MS Excel - Range
- Wat is een Range.
- Een Range een Naam geven.
- Benoemde Range(s) zoeken.
- Van een Range een tabel maken.
- Behoort een Range tot een andere Range.
- Een Range voeden met een Array
- UsedRange Voornaamste Eigenschappen.
- UsedRange Voornaamste Methodes.
- UsedRange Verwijderen van Lege Rijen.
Wat is een Range.
Een range kan beschouwd worden als een cel of een groep cellen of een Rij of een Kolom in een Worksheet.
Er zijn verschillende mogelijkheden om een Range te bepalen.
A1-stijl:
- Worksheet.Range("A1") of de cel A
- Worksheet.Range("A1:A5") of de cellen A1 tot en met A5 waar : de Range operator is.
- Worksheet.Range("A2:F3 A1:D6") waar de spatie de intersectie (A2:D3) operator is
- Worksheet.Range("A2:F3 , A1:D6") waar de komma de unie operator is.
- Met de ConvertFormula methode kan men ook gebruik maken van de R1C1 stijl:
- Wanneer een naam gedefinieerd is Worksheet.Range("mijnNaam")
De Cells property geldig voor Range, Application en Worksheet
Worksheets("sheet4").range("A1:D10").Cells.Count
geeft 40
De Cells property is heel handig bij Loops
Public Sub av_test5()
Dim intRij As Integer
Dim intKol As Integer
For intKol = 1 To 10
For intRij = 1 To 10
'Application.Cells(intRij, intKol).Value = fGenerRand(1, 100) 'is oo OK
Application.ActiveSheet.Cells(intRij, intKol).Value = fGenerRand(1, 100)
Next intRij
Next intKol
End Sub
Volgende procedure geeft aantal rijen en kolommen voor zover deze een waarde hebben.
Public Sub av_test4()
Application.ScreenUpdating = False
Dim xRow As Long
Dim yCol As Long
'telt het aantal rijen vanaf A1 indien een waarde
xRow = Application.Cells(Rows.Count, 1).End(xlUp).Row 'telt het aantal rijen vanaf A1 indien een waarde
' telt het aantal kolommen van af kolom 1
yCol = Application.Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox xRow & " " & yCol
Application.ScreenUpdating = True
End Sub
Top
Een Range een Naam geven
Een Range-naam kan op Workbook- of Worksheet-niveau gegeven worden. Men kan een Range-naam geven
via de gebruikersinterface of via VBA
Dit kan via volgende procedure
Public Sub sGeefRangeNaam()
Dim shtBlad As Worksheet
Dim rngRange As Range
Set shtBlad = ThisWorkbook.Worksheets("sheet4")
Set rngRange = shtBlad.Range("$E$1:$D$10")
shtBlad.Names.Add "nmNaam", RefersTo:=rngRange
End Sub
Top
Benoemde Range(s) zoeken
Public Sub sZoekRange()
Dim wrk As Excel.Workbook
Dim wsh As Excel.Worksheet
Dim rng As Excel.Range
Dim rngMeer As Range
Dim nm As Name
Dim intTEL As Integer
Dim aReeks(2) As Variant
Set wrk = Application.ActiveWorkbook
Set wsh = wrk.Worksheets("NaamRange")
intTEL = 0
Debug.Print wsh.Names.Count
For Each nm In wsh.Names
'Debug.Print nm.Name ' dit geeft NaamRange!mijnTestRange1 NaamRange!mijnTestRange2
'Debug.Print nm.RefersToR1C1 '=NaamRange!R1C1:R10C4
aReeks(intTEL) = nm.Name
'Set rng = Range(nm.Name)
'Debug.Print rng.Rows.Count
'Debug.Print rng.Columns.Count
'rng.Select
'Debug.Print nm.RefersTo '=NaamRange!$H$1:$H$15
intTEL = intTEL + 1
Next
Set rngMeer = Union(Range(aReeks(0)), Range(aReeks(1)))
rngMeer.Select
End Sub
Top
Van een Range een tabel maken.
Wij gaan ervan uit dat de Range begint in cel A1, vervolgens worden de rijen geteld, dan de kolommen waarbij het kolomnummer omgezet wordt in de kolom-letteraanduiding van Excel hierbij wordt gebruik gemaakt van de functie KonverteerNrLetter .
