Sådan overføres UserForm Data til et regneark

Indhold

retninger
Sådan overføres data fra en UserForm til et regneark
tips
advarsel
Hvad du har brug for

UserForms, også kaldet "dialogbokse", er grafiske vinduer, der giver brugerne mulighed for at udfylde oplysninger i felter og indsætte sådanne data i Excel-regneark. En UserForm er indlejret i Excel og kører, når du åbner en Excel-fil, normalt via en makro. Fordi UserForms udnytter Visual Basic-sproget, kan de tilpasses for at sikre, at de indtastede data i deres felter er fuldstændige og gyldige, før de overføres til et Excel-regneark.

retninger

Excel UserForms er en glimrende måde at sikre gyldig og ren dataindtastning på (binært data billede ved rgbspace fra Fotolia.com)

Sådan overføres data fra en UserForm til et regneark

Åbn Excel og opret et nyt regneark ved at klikke på "File" og vælge "New". Gem filen som "updated_sheet.xls".
Hold regnearket åbent og start Visual Basic Editor ved at trykke på "Alt" + "F11". Opret en ny UserForm ved at klikke på "Insert" menuen og vælge "UserForm". Navngiv UserForm for "transferForm" ved at ændre attributten "Name" i egenmenuen. Skift attributten "Caption" til "transferForm".
Tilføj en tekstboks til formularen ved at vælge den i værktøjskassen ved at trække den og slippe den på formularen. Navngiv tekstboksen som "transferInput" i egenskabsvinduet. Hvis værktøjskassen ikke er åben, skal du gå til "Vis" og "Værktøjskasse".
Tilføj en opdateringsknap til formularen. Vælg en "Kommandoknap" fra værktøjskassen, træk den og slip den på formularen. Navngiv kommandoknappen for "transferButton" i egenskabsvinduet og skift attributten "Caption" til "Refresh Sheet".
Tilføj en knap for at lukke formularen. Vælg en anden "Command Button" fra værktøjskassen, træk den og slip den på formularen. Navngiv kommandoknappen som "closeButton" i egenskabsvinduet og skift attributten "Caption" til "Close Form".
Åbn Visual Basic-editoren ved at dobbeltklikke på knappen "TransferButton". Indtast følgende kode i funktionen "transferButton_click ()", som overfører alle fyldte oplysninger i tekstboksen til arbejdsarket "workheet_dual.xls", når brugeren klikker på knappen. Luk kodeditoren.

Privat UnderoverførselButton_Click () Dim transferWorksheet som Worksheet Set transferWorksheet = Worksheets ("Sheet1") transferWorksheet.Cells (1,1) .Value = Me.transferInput.Value End Sub
Genåb Visual Basic-kode editor ved at dobbeltklikke på knappen "CloseButton". Indsæt følgende kode i "closeButton_Click ()" -funktionen, som lukker formularen, når brugeren klikker på knappen. Luk kodeditoren.

Privat Sub closeButton_Click () Løs mig End Sub
Kør formularkode ved at klikke på "Kør" og derefter "Kør Sub / UserForm". Udfyld tekstfeltet og klik på knappen "TransferButton". Kontroller, at dataene er overført korrekt til den første celle i regnearket. Gem og luk UserForm.
Brug en Excel-hændelsesprocedure for at åbne UserForm, når en bruger åbner regnearket. Åbn "Project Explorer" og dobbeltklik på "ThisWorkbook" kode vinduet. Indsæt makroen nedenfor, som åbner formularen, når regnearket åbnes. Gem og luk Visual Basic.

Privat Sub Workbook_Open () transferForm.Show End Sub
Genåb filen "updated_sheet.xls". Formularen åbnes. Skriv nogle tekst i feltet og klik på knappen "TransferButton". Teksten du udfylder formularen overføres til den første celle i regnearket.

tips

For at åbne vinduet Egenskaber eller Project Explorer, vælg menupunkterne "Vis" i Visual Basic Editor.
For at ændre størrelsen på de kontroller, der er tilføjet på formularen, skal du bruge de små firkanter, der vises, når kontrollen er valgt.
Prøv at tilføje nogle validering til formularen for at forhindre brugere i at indtaste ugyldige data.