| Computerlogica |
| U bent hier: home > formulieren & gebeurtenissen > events > voorbeeld 1 |
In het eerste voorbeeld wilt u een boodschap geven als de gebruiker van het ene werkblad naar het andere gaat. De volgende boodschap moet getoond worden als men Blad2 selecteert, vertrekkende van Blad1; zie figuur hiernaast. Hiervoor dient u de volgende stappen te ondernemen.
1. Start Excel en ga naar de VBA editor. Dubbelklik in de Projectverkenner op het object ThisWorkbook. Indien de Projectverkenner niet zichtbaar is, kunt u die bekomen met het menu Beeld Projectverkenner.
2. Selecteer in het objectvak (waar nu staat 'Algemeen') het item Workbook. Selecteer in het procedurevak de gebeurtenis Deactivate. Merk op dat er een invoerparameter 'sh' is voor deze procedure.
3. Schrijf de volgende code.
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) MsgBox "Vorig werkblad: " & Sh.Name & vbCrLf & "Huidig werkblad: " & ActiveSheet.Name End Sub
4. Selecteer het werkboek. Klik op Blad2. U krijgt dan de boodschap in de figuur hierboven.
5. Test uit voor andere werkbladen.
| ©
H. Schouppe Laatste wijziging: 2003-11-23 |