Besturingselementen en formulieren - Pearson Education

More documents

Recommendations

Info

11 Besturingselementen en formulieren For intT = 1 To 4 If Mid(Target.Value, intT, 1) < 0 _ Or Mid(Target.Value, intT, 1) > 9 Then blnFout = True End If Next 'Dan een spatie If Mid(Target.Value, 5, 1) " " Then blnFout = True End If 'Rechter twee moeten letters zijn For intT = 6 To 7 If Mid(Target.Value, intT, 1) < A _ And Mid(Target.Value, intT, 1) > Z Then blnFout = True End If Next End If End If If blnFout Then MsgBox "Een postcode bestaat uit 4 cijfers, " _ & "een spatie en twee letters!", _ vbCritical Or vbOKOnly Target.Font.Color = vbRed Else 'Alleen postcodecel mag groen worden If Target = Range("Postcode") Then Target.Font.Color = vbGreen End If End If End If End Sub De verklarende tekst in de code moet wel genoeg zijn om de werking te begrijpen. U ziet dat de parameter Target eigenlijk een Range object mee krijgt vanuit het werkblad en dat dit object dezelfde methoden en eigenschappen heeft als het normale object Range. Met een eerste If clausule wordt gecontroleerd of het om slechts een cel gaat en met de tweede If-clause wordt er gekeken of het range object in Target gelijk is aan de cel met de naam Postcode. Alleen dan wordt de rest van de procedure uitgevoerd. 10 Ga terug naar het werkblad en voer een correcte postcode in. De tekst in de cel wordt onmiddellijk in groen weergegeven als de invoer bevestigd wordt met Enter. 11 Voer in een andere cel iets in. Er gebeurt niets. 283
MACRO’S EN VBA IN EXCEL de basis 12 Voer in B4 een foutieve postcode in. De procedure reageert met een messagebox; zie afbeelding 11.14. 13 Klik de messagebox weg en merk op dat de tekst in de cel in rood wordt weergegeven. OPMERKING Wees erop verdacht dat als de knop Ontwerpmodus op de werkbalk is ingedrukt, de events van het werkblad onderdrukt worden en er niets zal gebeuren! Afbeelding 11.14 Het event is getriggerd en de procedure is in werking. 11.2.6 Combobox Een laatste voorbeeld van events van andere objecten gebruiken we om een keuzelijst met invoervak (combobox) van inhoud te voorzien. U zou ook een gewone keuzelijst (listbox) op dezelfde manier kunnen gebruiken, maar het aardige van een combobox is dat de gebruiker de lijst kan uitbreiden. De uitgebreide lijst blijft echter alleen maar bestaan zolang de werkmap geopend is. Bij het afsluiten van de werkmap of eventueel zelfs bij het activeren van een ander werkblad in de map, moet de inhoud van de combobox ergens worden vastgelegd. Dat kunt u overal doen: in een bestand op de vaste schijf, in een andere werkmap, een ander werkblad of om het simpel te houden - zoals we hier zullen doen - in hetzelfde werkblad. 284
Page 1 and 2: 11 BESTURINGS- ELEMENTEN EN FORMULI
Page 3 and 4: MACRO’S EN VBA IN EXCEL de basis
Page 23: MACRO’S EN VBA IN EXCEL de basis

Besturingselementen en formulieren - Pearson Education

Create successful ePaper yourself

Delete template?

Save as template?