01 | Attribute VB_Name = "mod3Antwoorden" |
02 |
03 | Sub berekenOmtrek() |
04 |
05 | ' Opdracht 1: breid oefening 1 uit zodat de rijen t/m 6 worden aangevuld |
06 | |
07 | Range("C2").Value = 2 * Range("A2").Value + 2 * Range("B2").Value |
08 | Range("C3").Value = 2 * Range("A3").Value + 2 * Range("B3").Value |
09 | Range("C4").Value = 2 * Range("A4").Value + 2 * Range("B4").Value |
10 | Range("C5").Value = 2 * Range("A5").Value + 2 * Range("B5").Value |
11 | Range("C6").Value = 2 * Range("A6").Value + 2 * Range("B6").Value |
12 |
13 | End Sub |
14 |
15 | Sub berekenDollar() |
16 | |
17 | ' Opdracht 2: idem oefening 2 |
18 | |
19 | Range("F2").Value = Range("E2").Value * 1.16 |
20 | Range("F2").Style = "Currency" |
21 | |
22 | Range("F3").Value = Range("E3").Value * 1.16 |
23 | Range("F3").Style = "Currency" |
24 | |
25 | Range("F4").Value = Range("E4").Value * 1.16 |
26 | Range("F4").Style = "Currency" |
27 | |
28 | Range("F5").Value = Range("E5").Value * 1.16 |
29 | Range("F5").Style = "Currency" |
30 | |
31 | Range("F6").Value = Range("E6").Value * 1.16 |
32 | Range("F6").Style = "Currency" |
33 |
34 | End Sub |
35 |
36 | Sub berekenTijdOpd3() |
37 |
38 | ' Opdracht 3: idem oefening 3 |
39 |
40 | Range("J2").Value = Range("I2").Value - Range("H2").Value |
41 | Range("J2").NumberFormat = "h:mm" |
42 | |
43 | Range("J3").Value = Range("I3").Value - Range("H3").Value |
44 | Range("J3").NumberFormat = "h:mm" |
45 | |
46 | Range("J4").Value = Range("I4").Value - Range("H4").Value |
47 | Range("J4").NumberFormat = "h:mm" |
48 | |
49 | Range("J5").Value = Range("I5").Value - Range("H5").Value |
50 | Range("J5").NumberFormat = "h:mm" |
51 | |
52 | Range("J6").Value = Range("I6").Value - Range("H6").Value |
53 | Range("J6").NumberFormat = "h:mm" |
54 |
55 | End Sub |
56 | Sub berekenTijdOpd4() |
57 |
58 | ' Opdracht 4: zorg bij opdracht 3 dat van de eindtijd nog eens 30 minuten wordt afgetrokken |
59 |
60 | Range("J2").Value = Range("I2").Value - Range("H2").Value - 1 / 24 / 2 |
61 | Range("J2").NumberFormat = "h:mm" |
62 | |
63 | Range("J3").Value = Range("I3").Value - Range("H3").Value - 1 / 24 / 2 |
64 | Range("J3").NumberFormat = "h:mm" |
65 | |
66 | Range("J4").Value = Range("I4").Value - Range("H4").Value - 1 / 24 / 2 |
67 | Range("J4").NumberFormat = "h:mm" |
68 | |
69 | Range("J5").Value = Range("I5").Value - Range("H5").Value - 1 / 24 / 2 |
70 | Range("J5").NumberFormat = "h:mm" |
71 | |
72 | Range("J6").Value = Range("I6").Value - Range("H6").Value - 1 / 24 / 2 |
73 | Range("J6").NumberFormat = "h:mm" |
74 |
75 | End Sub |
Download hier het bestand.