Formulieren in Microsoft Office Excel kan u helpen aanwezige gegevens duidelijk en direct , in plaats van ernaar te verwijzen naar een bestand op uw harde schijf . De snelste manier om gegevens te importeren in een vorm van een spreadsheet is met behulp van Visual Basic for Applications ( VBA ) . VBA is een programmeertaal gebruikt om handmatige taken in Microsoft Office -toepassingen , zoals Excel te automatiseren . Maak uw toepassing nog gebruiksvriendelijker door het weergeven spreadsheet gegevens via formulieren . Instructies
1 Lancering Microsoft Office Excel en type " 2 " in cel " A1 ", " 3 " in cel " B1 ", " 4 " in cel " C1 , " en " 5 " in cel " D1 ". Druk op " Ctrl " en " S " aan het werkblad op te slaan . Opslaan in " C : \\ Temp " als " source.xlsx " en sluit de spreadsheet
Launch 2 Excel een nieuwe werkmap opent . . Klik op het tabblad " Developer " en klik op ' Visual Basic . " Klik op het menu "Invoegen " en klik op " UserForm1 " om een nieuwe vorm toe te voegen .
3 Klik op " ComboBox " op de " Toolbox " deelvenster en sleep deze naar uw vorm, terwijl het houden van uw muis button . Laat de muisknop los om een nieuw combo - box controle te creëren . Voeg een nieuwe opdracht knop met behulp van dezelfde techniek .
Dubbelklik op " CommandButton1 " 4 om de klik - gebeurtenisprocedure voor de knop te openen . Begin met het toevoegen van de volgende VBA- code om de variabelen die worden gebruikt om de spreadsheet te openen te maken: Dim sourceXL
Zoals Excel.Application Dim bronnenboek
Zoals Excel.Workbook Dim sourceSheet
als Excel.Worksheet
5 Voeg de volgende code toe aan de " source.xlsx " spreadsheet te openen : Set
sourceXL = Excel.Application Set bronnenboek
= sourceXL . Workbooks.Open ( " C : \\ Temp \\ source.xlsx " ) op Twitter Stel sourceSheet = sourceBook.Sheets ( 1 )
6 Typ de volgende code om de waarden te krijgen van " source.xlsx " en voeg ze toe aan de keuzelijst op je formulier : sourceSheet.Range Nieuws" . Selecteer Me.ComboBox1.AddItem
( sourceSheet.Range ( ( " A1 ) " A1 " ) . Value ) sourceSheet.Range
( " B1 " ) . Selecteer Me.ComboBox1.AddItem
( sourceSheet.Range ( " B1 " ) . Value ) sourceSheet
. Range ( " C1 " ) . Selecteer Me.ComboBox1.AddItem
( sourceSheet.Range ( " C1 " ) . Value ) sourceSheet.Range
( " D1 " ) . Selecteer < br Me.ComboBox1.AddItem > ( sourceSheet.Range ( " D1 " ) . Value ) op Twitter Test 7 uw programma door op " F5 " en te klikken op de opdracht knop om je combo doos te vullen .
|
