Hvordan overføre data fra Userform til et regneark

February 9

UserForms, også kalt dialogbokser, er grafiske vinduer som tillater brukere å legge inn data i felt og sette inn disse dataene i Excel-regneark. En Userform er innebygd i en Excel-arbeidsbok og kjører når en bruker åpner Excel-filen, vanligvis via en makro. Fordi UserForms dra nytte av Visual Basic språket, kan de bli sjenerøst tilpasses for å sikre at data kommet inn i deres felt er fullstendig og gyldig før de blir overført til selve Excel-regneark for videre manipulering.

Bruksanvisning

Hvordan overføre data fra en Userform til et regneark

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

2 Hold arbeidsboken åpen 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 navn attributtet i Properties-menyen. Endre Caption tillegger "transferForm."

3 Legg en tekstboks i skjemaet ved å velge en tekstboks fra verktøykassen og dra den på plass på skjemaet. Navn tekstboksen "transferInput" i egenskapsvinduet. Hvis verktøykassen ikke er åpen, velger du Vis-menyen og Toolbox.

4 Legg en oppdatering knappen til skjemaet ved å velge en Command fra verktøykassen og dra den på plass på skjemaet. Navn Command "transferButton" i egenskapsvinduet og endre tittelen attributt til "Update regneark."

5 Legg en lukkeknapp til skjemaet ved å velge en annen Command fra verktøykassen og dra den på plass på skjemaet. Navn Command "closeButton" i egenskapsvinduet og endre tittelen attributt til "Close Form".

6 Åpne Visual Basic-kode editor ved å dobbeltklikke på transferButton (oppdateringsknappen). Legg kode til transferButton _CLICK () funksjon som overfører data lagt inn i tekstboksen til update_worksheet.xls arket når brukeren klikker på knappen. Lukk Visual Basic-kode editor.

Private Sub transferButton_Click ()

Dim transferWorksheet as Worksheet

Sett transferWorksheet = Regneark ( "Ark1")

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

End Sub

7 Åpne Visual Basic-kode editor ved å dobbeltklikke på closeButton (lukkeknappen). Legg koden til closeButton_Click () funksjon som lukker skjemaet når brukeren klikker på knappen. Lukk Visual Basic-kode editor.

Private Sub closeButton_Click ()

Unload Me

End Sub

8 Kjør form koden ved å klikke på Kjør-menyen og velge "Run Sub / Userform." Legg inn data inn i tekstfeltet og klikk på "transferButton." Sørg for at dataene er overført til den første cellen verdien i Excel-regnearket, bytte til Excel om nødvendig. Lagre og lukk kjører Userform.

9 Bruk en Excel hendelse fremgangsmåte for å åpne Userform når en bruker åpner arbeidsboken i Excel. Åpne Prosjekt Utforsker og dobbeltklikker på Thisworkbook kodevinduet. Skriv inn en makro som åpner skjemaet når regnearket åpnes og lagre makroen. Lagre og lukk Visual Basic og update_worksheet.xls.

Private Sub Workbook_Open ()

transferForm.Show

End Sub

10 Gjenåpne "update_worksheet.xls." Den Userform transferForm åpnes. Skriv inn tekst i "transferInput" -feltet og klikk på "transferButton." Den gikk inn i transferForm Userform teksten vil bli overført til den første cellen i Sheet1 i update_worksheet.xls.