Gör din egen GUI (grafiskt användargränssnitt) utan Visual Studio i Microsoft Excel (9 / 10 steg)
Steg 9: Tilldela makron
Nu har vi skapat den första delen av Userform. Även om det ser snyggt redan, kommer ingenting hända ännu när vi klickar på kommandoknapparna på Userform.
1. Öppna Visual Basic Editor.
2. i Projektutforskaren, dubbel klick på Family_Form.
3. Dubbelklicka på knappen medlem.
4. Lägg till följande rad kod:
Private Sub MemberButton_Change()
MoneyTextBox.Text = MoneySpinButton.Value
End Sub förklaring: kod raden uppdateras rutan när du använder spin knappen.
5. Dubbelklicka på knappen OK.
6. Lägg till följande kodrader:
Private Sub
MemberButton_Change()
Members.Text = MemberButton.Value
End Sub
Private Sub OKButton_Click()
Dim emptyRow As Long
' Göra Blad1 active Sheet1.Activate
"Avgör emptyRow
emptyRow = WorksheetFunction.CountA (Range ("a: a")) + 1
"Överföra information
Celler (emptyRow, 1). Värde = NameTextBox.Value
Celler (emptyRow, 2). Värde = PhoneTextBox.Value
Celler (emptyRow, 3). Värde = CityListBox.Value
Celler (emptyRow, 4). Värde = StatusComboBox.Value
Om CarOptionButton1.Value = True Then
Celler (emptyRow, 6). Värde = "Ja"
Annat
Celler (emptyRow, 6). Värde = "No"
Slut om
Celler (emptyRow, 7). Värde = Members.Value
End Sub
Förklaring: det första vi aktivera Blad1. Nästa, vi avgöra emptyRow. Den variabla emptyRow är den första tomma raden och ökar varje gång en post läggs. Slutligen överföra vi informationen från Userform på specifika kolumner i emptyRow.
7. Dubbelklicka på knappen Rensa.
8. Lägg till följande rad kod:
Private Sub ClearButton_Click()
Kalla UserForm_Initialize
End Sub
Förklaring: kod raden anropar Sub UserForm_Initialize när du klickar på knappen Rensa.
9. Dubbelklicka på knappen Avbryt.
10. Lägg till följande rad kod:
Private Sub CancelButton_Click()
Lasta mig
End Sub
Förklaring: denna kod linje stänger Userform när du klickar på knappen Avbryt.