UserForms , også kalt dialogbokser , er grafiske vinduer som tillater brukere å legge inn data i felt og sett at data i Excel regneark. En UserForm er innebygd i en Excel-arbeidsbok og kjører når en bruker åpner Excel-filen , typisk via en makro . Fordi UserForms dra nytte av Visual Basic språket , kan de bli sjenerøst tilpasset for å sikre at data som skrives inn i deres felt er komplett og gyldig før den overføres til Excel-regnearket seg for videre manipulering . Du trenger
Microsoft Excel med Visual Basic Editor
Vis flere Instruksjoner
Hvordan overføre data fra en UserForm til et regneark
en

Åpne Microsoft Excel og opprette en ny, tom arbeidsbok ved å klikke på Fil-menyen og velge " New". Lagre Excel- filen som " update_worksheet.xls . "
2

Hold arbeidsboken åpne og åpne Visual Basic Editor ved å trykke Alt- F11 . Opprett en ny UserForm ved å klikke på Sett inn-menyen og velge " UserForm . " Navngi UserForm " transferForm " ved å endre Name -attributtet i menyen Egenskaper . Endre Caption attributt til " transferForm . "
3

Legg til en tekstboks i skjemaet ved å velge en tekstboks fra verktøykassen og dra den på plass på skjemaet . Navngi tekstboksen " transferInput " i vinduet Egenskaper . Hvis verktøykassen ikke er åpen, velg Vis- menyen og Toolbox .
4

Legg en oppdatering knappen til skjemaet ved å velge en CommandButton fra verktøykassen og dra den på plass på skjemaet . Navngi CommandButton " transferButton " i vinduet Egenskaper og endre bildetekst attributt til " Oppdater regneark . "
5

Legg et nært knapp i skjemaet ved å velge en annen CommandButton fra verktøykassen og dra den inn plassere på skjemaet . Navngi CommandButton " closeButton " i vinduet Egenskaper og endre bildetekst attributt til " Lukk skjema . "
6

Åpne Visual Basic-kode editor ved å dobbeltklikke på transferButton (update -knappen) . Legg til kode til transferButton _CLICK ()-funksjonen som overfører alle data som skrives inn i tekstboksen til update_worksheet.xls regnearket når brukeren klikker på knappen . Lukk Visual Basic-kode editor.

Private Sub transferButton_Click ( )

Dim transferWorksheet som regneark

Set transferWorksheet = Regneark ( " Ark1 ")

transferWorksheet . Cells ( 1,1) . Verdi = Me.transferInput.Value

End Sub
7

Reopen Visual Basic-kode editor ved å dobbeltklikke på closeButton (close -knappen) . Legg til kode til closeButton_Click ( )-funksjonen som lukker skjemaet når brukeren klikker på knappen . Lukk Visual Basic-kode editor.

Private Sub closeButton_Click ( )

Losse Me

End Sub
8

Kjør skjemaets koden ved å klikke på Run -menyen og velge "Run Sub /UserForm . " Skriv inn data i tekstfeltet og klikk på " transferButton . " Sikre at dataene er overført til den første cellen verdien i Excel-regneark, bytte til Excel hvis det er nødvendig . Lagre og lukk kjører UserForm .
9

Bruk en Excel hendelse Fremgangsmåten for å åpne UserForm når en bruker åpner arbeidsboken i Excel. Åpne Prosjekt Explorer og dobbeltklikk på ThisWorkbook koden vinduet. Skriv inn en makro som åpner skjemaet når regnearket åpnes og lagre makroen . Lagre og lukke Visual Basic og update_worksheet.xls .

Private Sub Workbook_Open ( )

transferForm.Show

End Sub
10

Reopen " update_worksheet.xls . " Den UserForm transferForm vil åpne . Skriv inn litt tekst i " transferInput "-feltet og klikk " transferButton . " Teksten som er skrevet inn i transferForm UserForm vil bli overført til den første cellen i Ark1 i update_worksheet.xls .