xlsvbah11.3

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