xlsvbah6.3

01Attribute VB_Name = "mod3Antwoorden"
02 
03Sub 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 
13End Sub
14 
15Sub 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 
34End Sub
35 
36Sub 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 
55End Sub
56Sub 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 
75End Sub

Download hier het bestand.