01 | Attribute VB_Name = "mod1Oefeningen" |
02 |
03 | Option Explicit |
04 |
05 | Sub Oefening1() |
06 |
07 | Dim i As Integer |
08 | |
09 | Range("A1").Select |
10 | |
11 | For i = 1 To 10 |
12 | |
13 | ActiveCell.Value = "Hello" |
14 | ActiveCell.Offset(1, 0).Select |
15 | |
16 | Next i |
17 |
18 | End Sub |
19 |
20 | Sub Oefening2() |
21 |
22 | Dim i As Integer |
23 | |
24 | Range("B1").Select |
25 | |
26 | Do |
27 | |
28 | ActiveCell.Value = "World" |
29 | ActiveCell.Offset(1, 0).Select |
30 | |
31 | Loop Until IsEmpty(ActiveCell.Offset(0, -1)) |
32 |
33 | End Sub |
34 |
35 | Sub Oefening3() |
36 |
37 | Dim rngBereik As Range |
38 | Dim rngCel As Range |
39 | |
40 | Set rngBereik = Range("A1").CurrentRegion |
41 | |
42 | For Each rngCel In rngBereik.Cells |
43 | Debug.Print rngCel.Value |
44 | Next rngCel |
45 |
46 | End Sub |
47 |
48 | Sub MacroTaal() |
49 |
50 | Dim i As Integer |
51 | Dim a, b |
52 | |
53 | Range("A1").Select |
54 | |
55 | a = Timer |
56 | |
57 | For i = 1 To 10000 |
58 | |
59 | ActiveCell.Value = "Hello" |
60 | ActiveCell.Offset(1, 0).Select |
61 | |
62 | Next i |
63 | |
64 | b = Timer |
65 | |
66 | MsgBox b - a |
67 |
68 | End Sub |
69 |
70 | Sub ProgrammeerTaal() |
71 |
72 | Dim i As Integer |
73 | Dim a, b |
74 | |
75 | Range("A1").Select |
76 | |
77 | a = Timer |
78 | |
79 | For i = 1 To 10000 |
80 | |
81 | Cells(i, 1).Value = "Hello World" |
82 | |
83 | Next i |
84 |
85 | b = Timer |
86 | |
87 | MsgBox b - a |
88 |
89 | End Sub |
Download hier het bestand.
1 | Attribute VB_Name = "mod2Opdrachten" |
2 |
3 | ' Opdracht 1: maak een procedure die van links naar rechts 10x "Hello World" genereert |
4 |
5 | ' Opdracht 2: maak een procedure die 5 nieuwe werkbladen toevoegt |
6 |
7 | ' Opdracht 3: maak een procedure die alle tabbladen van de werkbladen blauw maakt |
8 |
9 | ' Opdracht 4: maak een procedure die van boven naar beneden het alfabet genereert |
Download hier het bestand.
01 | Attribute VB_Name = "mod3Antwoorden" |
02 |
03 | Option Explicit |
04 |
05 | ' Opdracht 1: maak een procedure die van links naar rechts 10x "Hello World" genereert |
06 |
07 | Sub Antwoord1() |
08 |
09 | Dim i As Integer |
10 | |
11 | For i = 1 To 10 |
12 | Cells(1, i).Value = "Hello World" |
13 | Next |
14 |
15 | End Sub |
16 |
17 | ' Opdracht 2: maak een procedure die 5 nieuwe werkbladen toevoegt |
18 |
19 | Sub Antwoord2() |
20 |
21 | Dim i As Integer |
22 | |
23 | For i = 1 To 5 |
24 | Worksheets.Add |
25 | Next |
26 |
27 | End Sub |
28 |
29 | ' Opdracht 3: maak een procedure die alle tabbladen van de werkbladen blauw maakt |
30 |
31 | Sub Antwoord3() |
32 |
33 | Dim w As Worksheet |
34 | |
35 | For Each w In Sheets |
36 | w.Tab.Color = vbBlue |
37 | Next w |
38 |
39 | End Sub |
40 |
41 | ' Opdracht 4: maak een procedure die van boven naar beneden het alfabet genereert |
42 |
43 | Sub Antwoord4() |
44 |
45 | Dim i As Integer |
46 | Dim r As Integer |
47 | |
48 | Range("A1").Select |
49 | |
50 | For i = Asc("a") To Asc("z") |
51 | |
52 | r = r + 1 |
53 | Cells(r, 1).Value = Chr(i) |
54 | |
55 | Next i |
56 |
57 | End Sub |
Download hier het bestand.