användarformulär , även kallade dialogrutor , är grafiska fönster som tillåter användare att mata in data i fält och sätt att data i Excel . En UserForm är inbäddad i en Excel-arbetsbok och körs när en användare öppnar Excel- fil , vanligtvis via ett makro . Eftersom användarformulär utnyttja Visual Basic språket kan de generöst anpassas för att säkerställa att uppgifter i deras områden är fullständig och giltig innan de överförs till Excel-kalkylbladet sig för vidare manipulering . Saker du behöver
Microsoft Excel med Visual Basic Editor
Visa fler instruktioner
Hur överföra data från en UserForm till ett kalkylblad
1
Öppna Microsoft Excel och skapa en ny tom arbetsbok genom att klicka på Arkiv-menyn och välja " nytt . " Spara Excel-filen som " update_worksheet.xls . "
2
Håll arbetsboken öppnas och öppna Visual Basic Editor genom att trycka Alt - F11 . Skapa en ny UserForm genom att klicka på Infoga-menyn och välja " UserForm . " Namnge UserForm " transferForm " genom att ändra namn attribut i Egenskaper menyn . Ändra Bildtext attributet " transferForm . " Addera 3
Lägg en textruta i formuläret genom att välja en textruta från verktygslådan och dra den på plats på blanketten . Namnge textrutan " transferInput " i egenskapsfönstret . Om verktygslådan inte är öppen väljer du menyn Visa och Verktygslåda .
4
Lägg en uppdatering knappen till formuläret genom att välja en CommandButton från verktygslådan och dra den på plats på blanketten . Namnge CommandButton " transferButton " i dialogrutan Egenskaper och ändra bildtexten attributet "Uppdatera kalkylblad . "
5
Lägg en nära knapp i formuläret genom att välja en andra CommandButton från verktygslådan och dra den till placera på blanketten . Namnge CommandButton " closeButton " i dialogrutan Egenskaper och ändra bildtexten attributet " Close Form . "
6
Öppna Visual Basic-kod editor genom att dubbelklicka på transferButton ( update knappen ) . Lägg koden till transferButton _click ( ) funktionen som överför alla data matats in i textrutan till update_worksheet.xls kalkylbladet när användaren klickar på knappen . Stäng Visual Basic-kod redaktör .
Private Sub transferButton_Click ( ) katalog
Dim transferWorksheet som Arbetsblad
Set transferWorksheet = Kalkylblad ( " Blad1 " ) katalog
transferWorksheet . Celler ( 1,1 ) . Value = Me.transferInput.Value
End Sub
7
Reopen Visual Basic-kod editor genom att dubbelklicka på closeButton ( stäng knappen ) . Lägg koden till closeButton_Click ( ) funktionen som stänger formuläret när användaren klickar på knappen . Stäng Visual Basic-kod redaktör .
Private Sub closeButton_Click ( ) katalog
Lasta mig
End Sub
8
Kör formulärets koden genom att klicka på Kör-menyn och välja " Kör Sub /UserForm . " Mata in data i fältet och klicka på " transferButton . " Kontrollera att uppgifterna framgångsrikt överförs till den första cellen värdet i Excel , växla till Excel vid behov . Spara och stäng kör UserForm .
9
Använd ett Excel händelse förfarande för att öppna UserForm när en användare öppnar arbetsboken i Excel . Öppna Project Explorer och dubbelklicka på fönstret ThisWorkbook koden . Ange ett makro som öppnar formuläret när kalkylbladet öppnas och spara makrot . Spara och stäng Visual Basic och update_worksheet.xls .
Private Sub Workbook_Open ( ) katalog
transferForm.Show
End Sub
10
Reopen " update_worksheet.xls . " Den UserForm transferForm öppnas. Skriv lite text i " transferInput " fältet och klicka på " transferButton . " Den text som skrivs i den transferForm UserForm kommer att överföras till den första cellen i Blad1 i update_worksheet.xls .
