Begin het creëren van een gebruiker vorm door het invoeren van de Visual Basic IDE ( Integrated Development Environment ) : van het Excel-werkblad , druk op " alt " - " F11 " . Maak een nieuwe gebruiker formulier door naar " Insert " > " UserForm "

Drag
en neerzetten van de volgende controles uit de gereedschapskist op het formulier : . Twee tekstvakken , de tweede onder de eerste . Een opdracht knop onder de tekstvakken en twee label controles , elk aan de linkerkant van een tekstvak . In het eigenschappenvenster , verandert de titel van het bovenste label aan "Noem , " en de titel van het onderste etiket op " E-mailadres . " Wijzig bijschrift van de knop om 'Verzenden'.
Voer de code

Nu schrijf de code dat de gegevens van het formulier en voegt het in een werkblad trekt .

Van de ontwerper venster vorm , dubbelklikt u op de knop 'verzenden' . . Gaat de cursor naar de Button1_Click evenement, dat wordt geactiveerd wanneer de knop wordt geklikt tijdens het programma runtime

In de Button1_Click geval , voert u de volgende programmacode :

Dim r
als Range

Set r = Range ( " a65536 " ) . End ( xlUp )

Set
r = r.Offset ( 1 , 0 )

r.Value = TextBox1.Value

Set r = r.Offset ( 0 , 1 ) r.Value = TextBox2.Value - ----------------------------- -----------

Schrijf een kleine subroutine die de nieuwe gebruiker wordt weer gegeven . Binnen in de IDE , dubbelklikt u op het pictogram ThisWorkbook in het deelvenster Project . In het venster code , voert u deze nieuwe subroutine :

Public Sub mac1 ( ) UserForm1.Show

End Sub

Voer het programma uit het Excel-werkblad door te gaan naar ontwikkelaar> macro's , " mac1 , " selecteren en op de " Run" knop . Voer een aantal werkblad gegevens met uw gebruikersnaam formulier .
Verken de Programma

De eerste regel van Button1_Click verklaart een reeks variabele . Een reeks is een reeks werkbladcellen . Je zult de gegevens in dat bereik in te voeren met de code na de instructie Dim

De verklaring Set r = Range ( " a65536 " ) End ( xlUp ) definieert een bereik van een cel : . . De meest linkse cel van de vorige rij met gegevens . Dit is niet een intuïtieve ogende stukje code , dus maak je geen zorgen als je niet begrijpt het op het eerste gezicht . Breken de verklaring om te zien hoe het werkt . De Range ( " a65536 " ) gedeelte duidelijk de cel a65536 - weg aan de onderkant van de eerste kolom in het werkblad . Het volgende stuk , End ( xlUp ) , is een ander assortiment : het is waar uw cursor zou eindigen als je het had in eerste instantie op mobiele a65536 , drukte op de einde-toets , en vervolgens geperst de pijl omhoog

Als je was. om gegevens in te voeren in die cel , zou je de vorige rij overschrijven . Dat is waarom je de volgende verklaring nodig : Set r = r.Offset ( 1 , 0 ) . Die verklaring herdefinieert het bereik met een rij naar beneden ( en nul kolommen rechts ) van waar het was te zijn. Het bereik " r" is nu in de eerste lege cel onder een bestaande rijen gegevens . Dat is waar uw code kunt beginnen met het invoeren van een nieuwe data rij .
Vullen Celgegevens van Vorm Input

De volgende verklaringen bewegen het formulier gegevens naar het bereik van uw code gewoon geïdentificeerd als de eerste lege cellen onder de vorige data rij . r.Value = TextBox1.Value stelt de waarde van de lege cel met de waarde van het eerste tekstvak . De volgende cel is een kolom rechts , en Set r = r.Offset ( 0 , 1 ) herdefinieert het bereik om die cel te zijn . De argumenten 0 en 1 verwijzen naar 0 rijen naar beneden en 1 cel rechts van de ( ' r ' ) locatie van de vorige reeks is .

Vullen de twee kolommen vult een data rij . Wanneer de gebruiker op de knop klikt , wordt de Button1_Click evenement opnieuw uitvoeren . De Set r = Range ( " a65536 " ) . End ( xlUp ) zal opnieuw correct ingesteld het bereik van de nieuwe rij .