11. Herhalingen

Attribute VB_Name = "mod1Oefeningen"

Option Explicit

Sub Oefening1()

    Dim i As Integer
    
    Range("A1").Select
    
    For i = 1 To 10
        
        ActiveCell.Value = "Hello"
        ActiveCell.Offset(1, 0).Select
    
    Next i

End Sub

Sub Oefening2()

    Dim i As Integer
    
    Range("B1").Select
    
    Do
        
        ActiveCell.Value = "World"
        ActiveCell.Offset(1, 0).Select
    
    Loop Until IsEmpty(ActiveCell.Offset(0, -1))

End Sub

Sub Oefening3()

    Dim rngBereik As Range
    Dim rngCel As Range
    
    Set rngBereik = Range("A1").CurrentRegion
    
    For Each rngCel In rngBereik.Cells
        Debug.Print rngCel.Value
    Next rngCel

End Sub

Sub MacroTaal()

    Dim i As Integer
    Dim a, b
    
    Range("A1").Select
    
    a = Timer
    
    For i = 1 To 10000
        
        ActiveCell.Value = "Hello"
        ActiveCell.Offset(1, 0).Select
    
    Next i
    
    b = Timer
    
    MsgBox b - a

End Sub

Sub ProgrammeerTaal()

    Dim i As Integer
    Dim a, b
    
    Range("A1").Select
    
    a = Timer
    
    For i = 1 To 10000
    
        Cells(i, 1).Value = "Hello World"
    
    Next i

    b = Timer
    
    MsgBox b - a

End Sub

Attribute VB_Name = "mod2Opdrachten"

' Opdracht 1: maak een procedure die van links naar rechts 10x "Hello World" genereert

' Opdracht 2: maak een procedure die 5 nieuwe werkbladen toevoegt

' Opdracht 3: maak een procedure die alle tabbladen van de werkbladen blauw maakt

' Opdracht 4: maak een procedure die van boven naar beneden het alfabet genereert

Attribute VB_Name = "mod3Antwoorden"

Option Explicit

' Opdracht 1: maak een procedure die van links naar rechts 10x "Hello World" genereert

Sub Antwoord1()

    Dim i As Integer
    
    For i = 1 To 10
        Cells(1, i).Value = "Hello World"
    Next

End Sub

' Opdracht 2: maak een procedure die 5 nieuwe werkbladen toevoegt

Sub Antwoord2()

    Dim i As Integer
    
    For i = 1 To 5
        Worksheets.Add
    Next

End Sub

' Opdracht 3: maak een procedure die alle tabbladen van de werkbladen blauw maakt

Sub Antwoord3()

    Dim w As Worksheet
    
    For Each w In Sheets
        w.Tab.Color = vbBlue
    Next w

End Sub

' Opdracht 4: maak een procedure die van boven naar beneden het alfabet genereert

Sub Antwoord4()

    Dim i As Integer
    Dim r As Integer
    
    Range("A1").Select
    
    For i = Asc("a") To Asc("z")
    
        r = r + 1    
        Cells(r, 1).Value = Chr(i)
    
    Next i

End Sub