Så här överför du UserForm-data till ett arbetsblad

Innehåll

vägbeskrivning
Så här överför du data från en UserForm till ett arbetsblad
tips
varning
Vad du behöver

UserForms, även kallade "dialogrutor", är grafiska fönster som tillåter användare att fylla information i fält och infoga sådana data i Excel-kalkylblad. En UserForm är inbäddad i Excel och körs när du öppnar en Excel-fil, vanligtvis genom ett makro. Eftersom UserForms utnyttjar Visual Basic-språket kan de anpassas för att säkerställa att uppgifterna i fälten är fullständiga och giltiga innan de överförs till ett Excel-kalkylblad.

vägbeskrivning

Excel UserForms är ett utmärkt sätt att säkerställa giltig och ren datainmatning (binär data bild av rgbspace från Fotolia.com)

Så här överför du data från en UserForm till ett arbetsblad

Öppna Excel och skapa ett nytt arbetsblad genom att klicka på "Arkiv" och välja "Ny". Spara filen som "updated_sheet.xls".
Håll kalkylbladet öppet och starta Visual Basic Editor genom att trycka på "Alt" + "F11". Skapa en ny UserForm genom att klicka på "Insert" -menyn och välj "UserForm". Namn UserForm för "transferForm" genom att ändra attributet "Name" i egenskapsmenyn. Ändra attributet "Caption" till "transferForm".
Lägg till en textruta i formuläret genom att markera den i verktygslådan genom att dra den och släpp den på formuläret. Namn textrutan som "transferInput" i egenskapsfönstret. Om verktygslådan inte är öppen, gå till "Visa" och "Verktygslåda".
Lägg till en uppdateringsknapp i formuläret. Välj en "Kommandoknapp" från verktygslådan, dra den och släpp den på formuläret. Namn kommandoknappen för "transferButton" i egenskapsfönstret och ändra attributet "Caption" till "Uppdatera ark".
Lägg till en knapp för att stänga formuläret. Välj en andra "Kommandoknapp" från verktygslådan, dra den och släpp den på formuläret. Namnkommandoknappen som "closeButton" i egenskapsfönstret och ändra attributet "Caption" till "Close Form".
Öppna Visual Basic-redigeraren genom att dubbelklicka på knappen "TransferButton". Ange följande kod i funktionen "transferButton_click ()", som överför all fylld information i textrutan till arbetsbladet "workheet_dual.xls" när användaren klickar på knappen. Stäng kodredigeraren.

Privat DelöverföringButton_Click () Dim transferWorksheet som Arbetsblad Set transferWorksheet = Arbetsblad ("Sheet1") transferWorksheet.Cells (1,1) .Value = Me.transferInput.Value End Sub
Återuppta Visual Basic-kodredigeraren genom att dubbelklicka på "closeButton" -knappen. Sätt in följande kod i "closeButton_Click ()" -funktionen, som stänger formuläret när användaren klickar på knappen. Stäng kodredigeraren.

Privat Sub closeButton_Click () Avlägsna mig End Sub
Kör formulärkoden genom att klicka på "Kör" och sedan "Kör Sub / UserForm". Fyll i textfältet och klicka på knappen "transferButton". Verifiera att data har överförts korrekt till den första cellen i arbetsbladet. Spara och stäng UserForm.
Använd ett Excel-händelseförfarande för att öppna UserForm när en användare öppnar arbetsbladet. Öppna "Project Explorer" och dubbelklicka på "ThisWorkbook" kodfönstret. Sätt in makroet nedan, vilket öppnar formuläret när kalkylbladet öppnas. Spara och stäng Visual Basic.

Privat Sub Workbook_Open () transferForm.Show End Sub
Öppna filen "updated_sheet.xls" igen. Blanketten öppnas. Skriv lite text i fältet och klicka på "transferButton" -knappen. Texten du fyller i formuläret överförs till den första cellen i arbetsbladet.

tips

För att öppna fönstret Egenskaper eller Project Explorer, välj menyn "Visa" i Visual Basic Editor.
För att ändra storlek på de kontroller som läggs till på formuläret, använd de små rutorna som visas när kontrollen väljs.
Försök att lägga till någon validering i formuläret för att förhindra att användare skriver in ogiltiga data.