Stap 9: De macro's toewijzen
Nu hebben we het eerste deel van het Userform. Hoewel het ziet er al netjes, zal niets nog gebeuren wanneer we op de opdrachtknoppen op het Userform.
1. open de Visual Basic Editor.
2. in de Projectverkenner, tweemaal klikken op Family_Form.
3. Dubbelklik op de knop van de lidstaten.
4. Voeg de volgende coderegel:
Private Sub MemberButton_Change()
MoneyTextBox.Text = MoneySpinButton.Value
End Sub uitleg: deze coderegel bijgewerkt het tekstvak als u het kringveld.
5. Dubbelklik op de knop OK.
6. Voeg de volgende coderegels:
Private Sub
MemberButton_Change()
Members.Text = MemberButton.Value
End Sub
Private Sub OKButton_Click()
Dim emptyRow As Long
' Maken van Sheet1 actieve Sheet1.Activate
' EmptyRow bepalen
emptyRow = WorksheetFunction.CountA (Range ("a:")) + 1
' Overdracht van informatie
Cellen (emptyRow, 1). Waarde = NameTextBox.Value
Cellen (emptyRow, 2). Waarde = PhoneTextBox.Value
Cellen (emptyRow, 3). Waarde = CityListBox.Value
Cellen (emptyRow, 4). Waarde = StatusComboBox.Value
Als CarOptionButton1.Value = True Then
Cellen (emptyRow, 6). Waarde = "Yes"
Anders
Cellen (emptyRow, 6). Waarde = "Nee"
End If
Cellen (emptyRow, 7). Waarde = Members.Value
End Sub
Uitleg: eerst activeren we Sheet1. Daarna bepalen we emptyRow. De variabele emptyRow is de eerste lege rij en verhoogt telkens wanneer een record wordt toegevoegd. Tot slot maakten we overdracht van informatie van het Userform aan de specifieke kolommen van emptyRow.
7. Dubbelklik op de knop wissen.
8. Voeg de volgende coderegel:
Private Sub ClearButton_Click()
Oproep UserForm_Initialize
End Sub
Uitleg: deze coderegel roept de Sub UserForm_Initialize wanneer u op de knop Wissen klikt.
9. Dubbelklik op de knop Annuleren.
10. Voeg de volgende coderegel:
Private Sub CancelButton_Click()
Unload Me
End Sub
Uitleg: deze coderegel wordt het Userform gesloten wanneer u op de knop Annuleren klikt.