Visual Basic Projekter

Microsoft Visual Basic er et programmeringssprog, der anvendes til at udvide funktionaliteten i Microsoft Word og Excel.Kodning Visual Basic projekter, der udfører væsentlige Excel opgaver vil lære dig, hvordan du bruger Visual Basic til at øge din Excel produktivitet.

Opret Data

  • Dette projekt opsummerer tallene i en række over den aktive celle, ind i sum i den aktive celle.Til at begynde dette projekt, skal du oprette dataene for det - tallene skal summeres.I et Excel-regneark, indtaste fem numre i en kolonne.Vælg den første tomme celle under kolonnen med numre.

    Nu oprette Visual Basic program, der vil opsummere disse numre.

Indtast koden i udviklingsmiljøet

  • Indtast Visual Basic integreret udviklingsmiljø (IDE) ved at trykke på Alt-F11.I koden vinduet, skal du indtaste denne funktion:

    Sub Macro1 ()

    Dim s As String
    Dim o Som Range
    Dim p Da Range

    Set o = ActiveCell.Offset (-1)
    Set p = o.End(xlUp)
    Set q = Range (o, p)

    s = "= gennemsnit (" & amp; q.Addr

    ess & amp; ")"

    ActiveCell.Formula = s

    End Sub

    Dette program kode er ækvivalenttil manuelt at indtaste følgende tekst i den celle, du valgte tidligere: "= sum (& lt; adresse & gt;),", hvor & lt; adresse & gt;refererer til den kolonne med tal, du har indtastet.

    Kør makroen ved at vende tilbage til Excel-regneark, vælge Udvikler & gt; Makroer, vælge Macro1, og tryk på knappen Kør.Dine makro summer den kolonne af tal, ind resultatet i den aktuelt aktiverede celle.(Hvis du ikke kan se fanen Udvikler, udsætte det ved at vælge Office-knappen i Excel øverste venstre hjørne, vælger Excel-indstillinger, og "Vis fanen Udvikler på båndet.")

Project Two: Brug en formular

  • Det andet projekt bygger videre på den første ved at tillade brugeren af ​​dit program et udvalg af funktioner.

    Indtast Visual Basic IDE og vælge Indsæt & gt; UserForm.Træk følgende kontrolelementer på formularen fra værktøjskassen: en listbox og en knap.Tryk på F7 for at vende tilbage til den kode visning, og vælg UserForm fra venstre rullelisten i den øverste del af koden vinduet, og Initialiser fra højre rullelisten.IDE skaber funktionen Sub UserForm_Initialize ().I denne funktion, skal du indtaste denne kode, som tilføjer til listefeltet navnene på de funktioner, brugeren vil vælge fra:

    ListBox1.AddItem "sum"
    ListBox1.AddItem "gennemsnitlige"

    Brug koden vinduets venstre og højre drop-ned kasser igen, at vælge CommandButton1 fra venstre drop-down, og klik fra højre rullelisten.IDE skaber det tomme funktion CommandButton1_Click ().Indtast følgende kode i denne funktion, som vil kalde den oprindelige Macro1, du skrev med den funktion, som brugeren vælger fra listefeltet:

    Macro1 (ListBox1.Value)

    Ændre Macro1 til at acceptere et argument: Højreklik på "Macro1"tekst, og vælg Definition at navigere til Macro1 definition.Forandring "Sub Macro1 ()" at læse "Sub Macro1 (funk As String)"

    Nu hvor du har tilføjet det argument, ændre Macro1 at bruge det: Ret sætningen s = "= gennemsnit (" & amp; q.Address & amp; ")" til følgende ordlyd:

    s = "=" & amp;funk & amp;"(" & Amp; q.Address & amp; ")"

Skriv den funktion, der Indlæser Form

  • Indtast denne nye funktion under Macro1:

    Sub Macro2 ()
    UserForm1.Show
    End Sub

    Retur til Excel (alt-F11) og flytte markøren under kolonne med tal.Vise UserForm ved at vælge Udvikler & gt; Makroer og vælge Macro2 og Kør.Når formularen vises, skal du vælge enten beløb eller gennemsnitlige funktion og tryk på knappen.Dit program vil indtaste formlen i regnearket.Formlen opsummerer data fra søjlen over aktive celle.

467
0
2
Visual Basics Programming