01 | Attribute VB_Name = "mod3Antwoorden" |
02 |
03 | Option Explicit |
04 |
05 | ' Opdracht 1: maak een procedure die twee getallen door elkaar deelt. Gebruik het Error object die de volgende fouten afvangt: |
06 | ' a. niet delen door 0 |
07 | ' b. niet delen door tekst |
08 | ' c. niet delen door een lege waarde |
09 |
10 | Sub Antwoord1() |
11 |
12 | On Error GoTo FoutAfhandelaar |
13 |
14 | Dim Getal1 |
15 | Dim Getal2 |
16 | |
17 | Getal1 = 10 |
18 | Getal2 = InputBox( "Door welk getal wilt u 10 delen?" ) |
19 | |
20 | MsgBox Getal1 / Getal2 |
21 | |
22 | Exit Sub |
23 | |
24 | FoutAfhandelaar: |
25 | |
26 | Select Case Err.Number |
27 | Case 11 |
28 | MsgBox "U kunt niet delen door 0!" |
29 | Case 13 |
30 | If Getal2 = "" Then |
31 | MsgBox "U heeft niets ingevuld!" |
32 | Else |
33 | MsgBox "U heeft een ongeldige waarde ingevuld!" |
34 | End If |
35 | Case Else |
36 | MsgBox "Onbekende fout: " & Err.Description, , Err.Number |
37 | End Select |
38 |
39 | End Sub |
40 |
41 | ' Opdracht 2: maak opdracht 1 opnieuw zonder het Error object |
42 |
43 | Sub Antwoord2() |
44 |
45 | Dim Getal1 |
46 | Dim Getal2 |
47 | |
48 | Getal1 = 10 |
49 | |
50 | Do |
51 | Getal2 = InputBox( "Door welk getal wilt u 10 delen?" ) |
52 | Loop Until IsNumeric(Getal2) |
53 | |
54 | MsgBox Getal1 / Getal2 |
55 |
56 | End Sub |
57 |
58 | ' Opdracht 3: maak een procedure die het het werkblad "Nieuw werkblad" activeert en wanneer deze niet bestaat aanmaakt m.b.v. het Error object |
59 |
60 | Sub Antwoord3() |
61 |
62 | On Error GoTo FoutenAfhandelaar |
63 |
64 | Worksheets( "Nieuw werkblad" ).Activate |
65 | |
66 | Exit Sub |
67 | |
68 | FoutenAfhandelaar: |
69 |
70 | Select Case Err.Number |
71 | Case 9 |
72 | Worksheets.Add.Name = "Nieuw werkblad" |
73 | Resume |
74 | End Select |
75 |
76 | End Sub |
77 |
78 | ' Opdracht 4: maak opdracht 3 opnieuw zonder het Error object |
79 |
80 | Sub Antwoord4() |
81 |
82 | Dim w As Worksheet |
83 | |
84 | For Each w In ActiveWorkbook.Sheets |
85 | If w.Name = "Nieuw werkblad" Then |
86 | w.Activate |
87 | Exit For |
88 | End If |
89 | Next w |
90 | |
91 | If w Is Nothing Then |
92 | Set w = Worksheets.Add |
93 | w.Name = "Nieuw werkblad" |
94 | End If |
95 |
96 | End Sub |
Download hier het bestand.