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.