Wanneer u gegevens uit een formulier in een spreadsheet kopiëren , kan het vrij snel ingewikkeld en verwarrend . Als u gegevens wilt duidelijker te voeren , verbergt de informatie , of gewoon een aantrekkelijkere gebruikersinterface voor een Excel - databank opgeslagen , moet je kijken naar het maken van een formulier . Formulieren zijn aantrekkelijker en bruikbaarder dan een gewone spreadsheet , en zijn vrij eenvoudig te maken . Visual Basic Editor Open een nieuw werkblad . Typ in de headers voor al uw informatie , en input van de eerste vorm . Dit stelt de databank deel van uw spreadsheet . Dubbelklik op het tabblad dat " Blad 1 " en typ een naam voor uw blad zegt . Sla het spreadsheet . Hold " Alt " en druk op " F11 " om de Visual Basic Editor , die u zal toestaan om uw formulier te openen . Op het paneel View , selecteer uw spreadsheet - waarvan de naam die u hierboven gekozen zal hebben . Open het menu Invoegen en kies " UserForm . " Een blanco formulier zal verschijnen op het scherm , zoals zal de UserForm toolbox . Voordat u begint met het ontwerpen van de vorm , noem maar op : druk op " F4 " om het venster Eigenschappen te openen , dubbelklikt u op het formulier , typ dan uw naam . Meestal zal programmeurs de vorm naam iets te kort en beschrijvend te maken , zoals " UserInfoForm . " Als u klaar bent , druk op ' Enter '. U zult ook merken dat de nieuwe vorm zegt eenvoudig " UserForm 1 " aan de bovenkant . Je wilt de kans om iets anders , zoals " New User Information " zeggen . Op het paneel Properties , dubbelklikt u op het ' Bijschrift ' eigenschap , typt u nieuwe naam van uw formulier in en druk op ' Enter '. Designing the Form Gebruik de werkbalk om de verschillende delen van het formulier te maken . Het tekstvak tool kan dozen waarin u kunt elke vorm van data typen te creëren . Klik op de toolbox -knop die eruit ziet als " AB | , " en klik ergens op het formulier en teken het tekstvak op het formulier . Selecteer het tekstvak , dubbelklikt u op het veld "Naam " onder Eigenschappen , en typ een naam zoals " ClientName " . Label de vorm met behulp van het label tool, die eruit ziet als een hoofdletter A ) , aan te wijzen wat het vak is voor . In sommige toetsen met behulp van het hulpmiddel Knop . Zorg ervoor dat u de namen van deze knoppen , en de bijschriften te veranderen , op het menu eigenschappen . Elk formulier moet ten minste een " Add " en een knop "Clear " . Als u een lijst wilt - doos maken , voeg deze , maar maak je geen zorgen over de items in het gewoon nog niet. Ontwerpen en bewerk de vorm totdat het er uitziet zoals u het wilt . Om iets te verwijderen , klikt u op het onderdeel en druk op de toets "Delete " . Om het invoeren van gegevens zo gemakkelijk mogelijk te maken, maakt de computer - based vorm vergelijkbaar met elke bestaande of papieren formulieren die je hebt . Als u klaar bent , Sla het formulier . Codering van de Knoppen Open het menu Beeld en selecteer " Code " of druk op " F7 . " Dit zal een leeg venster waarin u kunt de code die de bevoegdheden van het formulier invoeren. Begin met het invoeren van de volgende code : Private Sub [ Add Button Name ] ( ) Dim Cout Zoals LongDim wksht Zoals WorksheetSet wksht = Worksheets ( " [ Naam van uw werkblad ] " ) op Twitter typ de naam van uw werkblad waar aangegeven. Vervolgens moet u het systeem vertellen om de eerste lege rij in de database vinden . Gebruik : . Graaf = ws.Cells ( Rows.Count , 1 ) _.End ( xlUp ) Offset ( 1 , 0 ) Rij Vertel het systeem om te controleren of de tekstvakken hebben . spullen in ze hebt ingevoerd . In de volgende code , typt u de naam van de tekstvakken en plak ze in de vorm code . Als Trim ( Me. [ TextBox Naam ] . Value ) = " " ThenMe . [ TextBox ] . SetFocusMsgBox "Vul een onderdeelnummer " Exit SubEnd Als voeg vervolgens de code om de gegevens in de database te kopiëren . Ervan uitgaande dat je drie tekstvakken en een listbox , hier is de code om it.wksht.Cells ( graaf , 1 ) in te voeren . Value = Me . [ TextBox 1 Naam ] . Valuewksht.Cells ( graaf , 2 ) . Value = Me . [ TextBox 2 Naam ] . Valuewksht.Cells ( graaf , 3 ) . Value = Me . [ TextBox 3 Naam ] . Valuewksht.Cells ( graaf , 4 ) . Value = Me . [ ListBox Naam ] . Waarde Voeg wat code om de gegevens te wissen : . . . . Me [ TextBox 1 Naam ] Value = " " . . Me [ TextBox 2 Naam ] Value = " " Me [ TextBox 3 Naam ] Value = " " Me . [ ListBox Naam ] . Value = " " Me.txtPart.SetFocus Tenslotte druk op " Enter " twee keer en type in " End Sub " . Sla de code , en sluit de Visual Basic-toepassing . Het creëren van een Button Op je werkblad , zoekt u in de werkbalk Tekenen . Als u wilt dat de gegevens van gebruikers te verbergen , schakelt u naar Blad 2 of 3 . Teken een box op het scherm , en tweak het te zien als een knop . Klik met de rechtermuisknop op een of andere tekst toe te voegen , klik met de rechtermuisknop op en selecteer " Macro toewijzen . " Klik op de knop "Nieuw" en typ de naam van uw formulier en vervolgens " . Concert ' , met behulp van het voorbeeld , het zou moeten zeggen " UserInfoForm.show " .
|