Open Microsoft Excel 1 en tab maak een nieuwe lege werkmap door te klikken op het menu Bestand en de optie "Nieuw . " Sla het Excel-bestand als " update_worksheet.xls . " Kopen van 2

Houd de werkmap te openen en open de Visual Basic Editor door op Alt - F11 . Maak een nieuwe UserForm door te klikken op het menu Invoegen en selecteer " UserForm . " Noem het UserForm " transferForm " door het veranderen van de Naam attribuut in het menu Eigenschappen. Wijzig de eigenschap Caption aan " transferForm . "
3

Voeg een tekstvak aan het formulier door het selecteren van een tekstvak van de gereedschapskist en het op het formulier op hun plaats te slepen . Noem het tekstvak " transferInput " in het eigenschappenvenster . Als de werkset niet wordt geopend , selecteert u het menu Beeld en Toolbox .
4

Voeg een update -knop om het formulier door het selecteren van een CommandButton uit de gereedschapskist en het op het formulier op hun plaats te slepen . Noem de CommandButton " transferButton " in het eigenschappen-venster en wijzig de eigenschap bijschrift " werkblad bijwerken . "
5

Voeg een sluitknop om het formulier door het selecteren van een tweede CommandButton uit de gereedschapskist en het in te slepen plaats op het formulier . Noem de CommandButton " CloseButton " in het eigenschappen-venster en wijzig de eigenschap bijschrift op " Close -formulier . "
6

Open de Visual Basic -editor door te dubbelklikken op het transferButton ( Update -knop ) . Code toe te voegen aan de transferButton _click ( ) -functie die alle gegevens ingevoerd in de tekstbox aan de update_worksheet.xls werkblad wanneer de gebruiker op de knop klikt overdraagt ​​. Sluit de Visual Basic -editor .

Private Sub transferButton_Click
( )

Dim transferWorksheet
als werkblad

Set transferWorksheet = Worksheets
( " Blad1 " )

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

End Sub
7

Open de Visual Basic -editor door te dubbelklikken op het CloseButton ( sluitknop ) . Code toe te voegen aan de closeButton_Click ( ) -functie die het formulier wordt gesloten wanneer de gebruiker op de knop klikt . Sluit de Visual Basic -editor .

Private Sub closeButton_Click ( )

Unload Me

End Sub
8

Ren code van het formulier door te klikken op op het menu Uitvoeren en te kiezen voor " Run Sub /UserForm . " Gegevens invoeren in het invoerveld en klik op de " transferButton . " Zorg ervoor dat de data met succes wordt overgedragen naar de eerste cel waarde in het Excel-werkblad , overschakelen naar Excel indien nodig. Opslaan en sluiten van het lopende UserForm .
9

Gebruik een Excel- event procedure om de UserForm openen wanneer een gebruiker de werkmap in Excel geopend. Open de Project Explorer en dubbelklik op het venster ThisWorkbook code . Voer een macro waarmee het formulier wordt geopend wanneer het werkblad opent en de macro op te slaan . Opslaan en sluiten van Visual Basic en update_worksheet.xls .

Private Sub Workbook_Open
( )

transferForm.Show

End Sub
10

heropenen " update_worksheet.xls . " Het UserForm transferForm wordt geopend . Typ tekst in het veld " transferInput " en klik op de " transferButton . " De tekst ingevoerd in de transferForm UserForm zal worden overgeheveld naar de eerste cel in Sheet1 in update_worksheet.xls .