UserForms , også kaldet dialogbokse , er grafiske vinduer, der tillader brugere at indtaste data i felter og indsæt at data i Excel-regneark . En UserForm er indlejret i en Excel-projektmappe , og kører, når en bruger åbner Excel-fil , typisk via en makro. Fordi UserForms drage fordel af den Visual Basic sproget , kan de generøst tilpasses for at sikre, at data indtastet i deres marker er komplet og gyldig forud for at blive overført til Excel-regnearket selv til yderligere manipulation. Ting du skal
Microsoft Excel med Visual Basic Editor
Vis Flere Instruktioner
Sådan at overføre data fra en UserForm til et regneark
1
Åbn Microsoft Excel og oprette en ny tom projektmappe ved at klikke på menuen Filer og vælge " ny". Gem Excel-filen som " update_worksheet.xls ".
2
Hold projektmappen åbne og åbne Visual Basic Editor ved at trykke Alt- F11 . Opret en ny UserForm ved at klikke på menuen Indsæt og vælge " UserForm ". Navngiv UserForm " transferForm " ved at ændre Name attribut i Properties -menuen. Skift Caption attribut til " transferForm ".
3
Tilføj et tekstfelt til formularen ved at vælge en tekstboks fra værktøjskassen og trække det på plads på skemaet. Navngiv tekstfeltet " transferInput " i vinduet med egenskaber. Hvis værktøjskassen ikke er åbent , skal du vælge menuen Vis og Toolbox .
4
Tilføj en opdatering knap til formularen ved at vælge en CommandButton fra værktøjskassen og trække det på plads på skemaet. Navngiv CommandButton " transferButton " i vinduet med egenskaber og ændre billedteksten attribut til " Opdater Regneark. "
5
Tilføj et luk-knappen til formularen ved at vælge en anden CommandButton fra værktøjskassen og trække det ind i placere på formularen. Navngiv CommandButton " lukkeknap " i vinduet med egenskaber og ændre billedteksten attribut til "Close formular ".
6
Åbn Visual Basic-kode editor ved at dobbeltklikke på transferButton (update -knappen). Føj koden til transferButton _click () funktion , der overfører alle data indtastes i tekstboksen til update_worksheet.xls regneark , når brugeren klikker på knappen. Luk Visual Basic-kode editor.
Private Sub transferButton_Click ()
Dim transferWorksheet som Regneark
Set transferWorksheet = Regneark ( " Ark1 " )
transferWorksheet . Celler ( 1,1) . Value = Me.transferInput.Value
End Sub
7
Genåbn Visual Basic-kode editor ved at dobbeltklikke på lukkeknap (tæt knap) . Føj koden til closeButton_Click () funktion , der lukker formularen, når brugeren klikker på knappen. Luk Visual Basic-kode editor.
Private Sub closeButton_Click ()
Unload Me
End Sub
8
Kør formularen kode ved at klikke i menuen Kør og vælge " Run Sub /UserForm . " Indtast data i indtastningsfeltet og klik på " transferButton ". Sørg for, at data med held overføres til den første celle værdi i Excel-regneark , skifte til Excel , hvis nødvendigt. Gem og luk kørende UserForm .
9
Brug et Excel begivenhed procedure at åbne UserForm når en bruger åbner projektmappen i Excel. Åbn Project Explorer og dobbeltklik på ThisWorkbook koden vinduet. Indtast en makro, der åbner formularen , når regnearket åbnes, og gemme makroen . Gem og luk Visual Basic og update_worksheet.xls .
Private Sub Workbook_Open ()
transferForm.Show
End Sub
10
Genåbn " update_worksheet.xls . " Den UserForm transferForm åbnes. Skrive noget tekst i " transferInput " feltet og klik på " transferButton ". Teksten indtastes i transferForm UserForm vil blive overført til den første celle i Ark1 i update_worksheet.xls .