01 | Attribute VB_Name = "mod3Antwoorden" |
02 |
03 | Option Explicit |
04 |
05 | ' Opdracht 1: maak een procedure die het gemiddelde plaatst in A4 van de cellen A1 t/m A3 |
06 |
07 | Sub Antwoord1() |
08 |
09 | Range("A4").Value = WorksheetFunction.Average(Range("A1:A3")) |
10 |
11 | End Sub |
12 |
13 | ' Opdracht 2: maak een procedure die 3 maanden optelt bij de huidige datum |
14 |
15 | Sub Antwoord2() |
16 |
17 | Dim dtNieuw As Date |
18 | |
19 | dtNieuw = DateAdd("m", 3, Date) |
20 | |
21 | MsgBox dtNieuw |
22 |
23 | End Sub |
24 |
25 | ' Opdracht 3: maak een procedure die 2 variabelen bij elkaar optelt indien het getallen zijn |
26 |
27 | Sub Antwoord3() |
28 |
29 | Dim intGetal1 |
30 | Dim intGetal2 |
31 | |
32 | intGetal1 = InputBox("Geef het 1e getal op") |
33 | intGetal2 = InputBox("Geef het 2e getal op") |
34 | |
35 | If IsNumeric(intGetal1) And IsNumeric(intGetal1) Then |
36 | MsgBox CInt(intGetal1) + CInt(intGetal2) |
37 | End If |
38 |
39 | End Sub |
40 |
41 | ' Opdracht 4: maak een procedure die de achternaam extraheert van "Floris Honingbloem" |
42 |
43 | Sub Antwoord4() |
44 |
45 | Dim strNaam As String |
46 | Dim strAchternaam As String |
47 | |
48 | Dim intPositieSpatie As Integer |
49 | |
50 | strNaam = "Floris Honingbloem" |
51 | intPositieSpatie = InStr(1, strNaam, " ") |
52 | |
53 | ' Optie 1 - m.b.v. mid |
54 | strAchternaam = Mid(strNaam, intPositieSpatie + 1) |
55 | |
56 | ' Optie 2 - m.b.v. right |
57 | ' strAchternaam = Right(strNaam, Len(strNaam) - intPositieSpatie) |
58 |
59 | ' Optie 3 - m.b.v. split |
60 | ' Dim arrNaam() As String |
61 | ' arrNaam = Split(strNaam, " ") |
62 | ' strAchternaam = arrNaam(1) |
63 | |
64 | MsgBox strAchternaam |
65 |
66 | End Sub |
Download hier het bestand.