Besturingselementen en formulieren - Pearson Education

More documents

Recommendations

Info

11 Besturingselementen en formulieren Afbeelding 11.15 Uitbreiding in het werkblad. Oefening 11.9 Events van andere objecten 1 Breidt het werkblad uit met hetgeen u in afbeelding 11.15 ziet. 2 I3 heeft de naam Plaatsnamen. 3 De (Name) property van de combobox is cmdPlaatsnamen. Stel deze eigenschap in door de combobox te selecteren en in het snelmenu voor Eigenschappen te kiezen. 4 Ga naar de VBA-editor en selecteer in het Projectvenster het werkblad waar de combobox in getekend is. 5 Kies in het venster Object het werkblad, Worksheet. 6 Kies in het vak Procedure het Activate event en neem de volgende macro over: C Private Sub Worksheet_Activate() 'Declaraties Dim intAR As Integer 'Aantal rijen 285
MACRO’S EN VBA IN EXCEL de basis 'Zoek het aantal rijen onder plaatsnamen Range("Plaatsnamen").Select intAR = ActiveCell.CurrentRegion.Rows.Count 'Maak de combobox leeg cmbPlaatsnamen.Clear For intT = 1 To intAR - 1 cmbPlaatsnamen.AddItem Range("Plaatsnamen").Offset(intT, 0).Value Next cmbPlaatsnamen.Text = "Kies de plaats" End Sub De cel met de naam Plaatsnamen wordt in de macro geselecteerd. Vervolgens wordt het aantal rijen in het huidige gebied opgevraagd. In een For… Next-lus wordt elke plaatsnaam toegevoegd aan de combobox met de methode AddItem. Tot slot wordt een tekst met een aanwijzing voor de gebruiker toegevoegd aan het tekstvak in de box. Het toevoegen van items aan een listbox werkt net zo. 7 Selecteer een ander werkblad en selecteer vervolgens dit werkblad weer. Hierdoor wordt de lijst gevuld met de plaatsnamen die in het werkblad staan. 8 Selecteer in het vak Object in de VBA-editor cmbPlaatsnamen. 9 Selecteer in vak Procedures het event Keydown. Neem daarin de volgende procedure over: C Private Sub cmbPlaatsnamen_KeyDown(ByVal KeyCode _ As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then cmbPlaatsnamen.AddItem cmbPlaatsnamen.Text Range("Plaatsnamen").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveCell.Value = cmbPlaatsnamen.Text cmbPlaatsnamen.Text = "" End If End Sub VBA heeft een groot aantal Keycode constants. Deze constanten waarvan u er hier één ziet, kunt u in dit event gebruiken om toetsen te detecteren zoals Backspace, Enter, functietoetsen of bijvoorbeeld Shift, Alt, etcetera. Als u iets met de normale letter en cijfertoetsen van het toetsenbord wilt doen, kunt u beter het Keypress-event daarvoor gebruiken. Wat willen we hier? We willen dat als de gebruiker in het tekstvak van de combobox een naam typt en op de Enter-toets drukt, deze wordt toegevoegd aan de lijst in de combobox en óók aan de lijst in het werkblad. De combobox heeft als eigenschap dat de lijst uitgebreid kan worden, maar dan moet die lijst wel ergens vastgelegd kunnen worden. 286
Page 1 and 2: 11 BESTURINGS- ELEMENTEN EN FORMULI
Page 3 and 4: MACRO’S EN VBA IN EXCEL de basis
Page 25: MACRO’S EN VBA IN EXCEL de basis

Besturingselementen en formulieren - Pearson Education

Create successful ePaper yourself

Delete template?

Save as template?