Visual Basic Projektid

Microsoft Visual Basic on programmeerimiskeel, mida kasutatakse laiendada funktsionaalsust Microsoft Word ja Excel.Kodeerimise Visual Basic projekte, et täita oluline Excel ülesandeid õpetab, kuidas kasutada Visual Basic, et suurendada oma Excel tootlikkust.

Loo Andmed

  • See projekt võtab numbrid piirkonnas üle aktiivse lahtri, sisestades summa aktiivne lahter.Esiteks seda projekti, luua andmete see - numbrid kokku liita.Exceli tööleht, kannab viie arvud veergu.Valige esimene tühja lahtri veeru all numbrid.

    Nüüd, luua Visual Basic programm, mis liidab need numbrid.

Sisesta kood arengukeskkonna

  • Sisestage Visual Basic integreeritud arenduskeskkond (IDE), vajutades Alt-F11.Kui kood aknas sisesta see funktsioon:

    Sub Macro1 ()

    Dim s Nagu String
    Dim o Range
    Dim p Nagu Range

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

    s = "= keskmine (" & amp; q.Address & amp; ")"

    ActiveCell.Formula = s

    End Sub

    See programm kood on samaväärne

    käsitsi sisestades järgmine tekst raku valisid varem: "= SUM (& lt; aadress & gt;)," kuhu & lt; aadress & gt;viitab veerus sisestatud numbreid.

    makro naastes Exceli tööleht, valides Developer & gt; Makrod, valides Macro1 ja vajutage nuppu Käivita.Sinu makro summad veerus numbrid, sisestades tulemuse parajasti aktiivse lahtri.(Kui te ei näe Developer tab, jätke see, valides Office nupp Excel ülemise vasaku nurga, valides Excel Options ja "Show Developer tab in lindil.")

Project Kaks: Kasuta vorm

  • Teine projekt põhineb esimene, võimaldades kasutajal oma programmi valik funktsioone.

    Sisestage Visual Basic IDE ja valige Insert & gt; Userform.Lohista kontrolli järel peale vormi Toolboxist: nimekirjakast ja nupp.Press F7 naasta koodi vaadata, ja valige Userform vasakult rippmenüüst ülemises osas kood akna ja Vorminda paremalt rippmenüüst.IDE loob funktsiooni Sub UserForm_Initialize ().Selle funktsiooni, sisestage see kood, mis lisab nimekirjast nimed funktsioone kasutaja valida:

    ListBox1.AddItem "summa"
    ListBox1.AddItem "keskmine"

    kasutada koodi akna vasakule ja paremale väljalangenutealla karbid taas, valides CommandButton1 vasakult rippmenüüst ja klõpsake paremalt rippmenüüst.IDE tekitab tühja funktsiooni CommandButton1_Click ().Sisesta järgmine kood, mis funktsioon, mis kutsuvad originaal macro1 sa kirjutasid funktsiooniga, et kasutaja valib rippmenüüst:

    Macro1 (ListBox1.Value)

    Muuda Macro1 aktsepteerima argumenti: Parem klõps "Macro1"teksti ja valige Definition navigeerida Macro1 määratlus.Muuda line "Sub Macro1 ()" lugeda "Sub Macro1 (funkts Nagu String)"

    Nüüd, kui olete lisanud argument, muuta Macro1 seda kasutada: muuta avalduses s = "= keskmine (" & amp; q.Address & amp; ")" järgmiselt:

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

Kirjutage funktsioon, mis laeb vormi

  • Sisesta seda uut funktsiooni alla macro1:

    Sub macro2 ()
    UserForm1.Show
    End Sub

    Tagasi Excel (alt-F11) ja asetada kursor veeru numbrid.Näita userform valides Developer & gt; Makrod ja valides Macro2 ja Run.Kui vorm näib valida kas summa või keskmine funktsioon ja vajutage nuppu.Teie programm sisestage valem töölehele.Valem on kokku andmeid kolonnist eespool aktiivne lahter.

771
0
2
Visual Basic Programmeerimine