Programmeren in VB/VBA

' het reserveren van geheugenruimte wordt gedaan met het type Dim.
    ' In dit geval reserveren we 4 keer een type string
    ' en 1 keer een type integer.
 
    Dim lab1 As String
    Dim lab2 As String
    Dim lab3 As String
    Dim lab4 As String
    Dim a As Integer
 
    ' Dit is de Next Button.  We verhogen de teller en maken dan gebruik
    ' van de specifieke functies van VBA voor excel namelijk Range.
    ' Dit specificeert welk veld of van welk veld tot welk veld. Hieronder maken
    ' we de keuze om van de oorspronkelijke rij een offset met a te nemen
    ' en geen tov de kolom.  Deze Value (waarde: string, getal, ..) vullen we in 
    ' in de labels
 
    Private Sub CommandButton1_Click()
    a = a + 1
    Label1.Caption = Range(lab1).Offset(a, 0).Value
    Label2.Caption = Range(lab2).Offset(a, 0).Value
    Label3.Caption = Range(lab3).Offset(a, 0).Value
    Label4.Caption = Range(lab4).Offset(a, 0).Value
 
    End Sub
 
    ' Dit is de Previous Button.  We verlagen de teller en maken dan gebruik
    ' van de specifieke functies van VBA voor excel namelijk Range.
    ' Dit specificeert welk veld of van welk veld tot welk veld. Hieronder maken
    ' we de keuze om van de oorspronkelijke rij een offset met a te nemen
    ' en geen tov de kolom.  Deze Value (waarde: string, getal, ..) vullen we in 
    ' in de labels
 
    Private Sub CommandButton2_Click()
    a = a - 1
    Label1.Caption = Range(lab1).Offset(a, 0).Value
    Label2.Caption = Range(lab2).Offset(a, 0).Value
    Label3.Caption = Range(lab3).Offset(a, 0).Value
    Label4.Caption = Range(lab4).Offset(a, 0).Value
 
    End Sub
 
 
    ' een lege toets
 
    Private Sub CommandButton3_Click()
    End Sub
 
 
    ' Deze functie wordt aangeroepen wanneer de form opstart, men kan ook nog
    ' andere kiezen nl: wanneer er op geklikt word,...
    ' we stellen de teller in op 0 en geven de velden een beginwaarde.
 
    Private Sub UserForm_Activate()
    a = 0
    lab1 = "A1"
    lab2 = "B1"
    lab3 = "C1"
    lab4 = "D1"
    Label1.Caption = Range(lab1).Value
    Label2.Caption = Range(lab2).Value
    Label3.Caption = Range(lab3).Value
    Label4.Caption = Range(lab4).Value
    End Sub