Microsoft Visual Basic er et programmeringsspråk som brukes til å utvide funksjonaliteten til Microsoft Word og Excel. Koding Visual Basic prosjekter som utfører viktige Excel oppgaver vil lære deg hvordan du bruker Visual Basic til å øke Excel produktivitet. Lag Data

Dette prosjektet summerer tallene i en rekke over den aktive cellen , inn summen i den aktive cellen . Til å begynne dette prosjektet , lage data til det - de tallene som skal summeres . I et Excel-regneark , oppgi fem tall i en kolonne . Velg den første tomme cellen under kolonnen med tall .

Nå oppretter Visual Basic program som vil oppsummere disse tallene.
Tast inn koden i Development Environment

Oppgi Visual Basic integrert utviklingsmiljø (IDE ) ved å trykke Alt - F11 . I koden vinduet , skriv denne funksjonen : en

Sub Macro1 ( )

Dim s As StringDim o Som RangeDim p Som Range

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

s = "= gjennomsnitt ( " & q.Address & " )"

ActiveCell.Formula = s

End Sub

Dette programmet koden tilsvarer manuelt skrive inn følgende tekst i cellen du valgte tidligere: "= sum ( ) , " der refererer til kolonnen med tall du har angitt.

Kjør makroen ved å returnere til Excel-regnearket , velger Developer > Makroer , velge Macro1 , og trykke på knappen Kjør . Makroen summerer kolonnen med tall , inn resultatet i øyeblikket aktivert celle. ( Hvis du ikke ser kategorien Utvikler utsette det ved å velge Office -knappen i Excel øvre venstre hjørne , velge Alternativer for Excel , og " Vis kategorien Utvikler på båndet . ")

Prosjekt To: Bruk et skjema

det andre prosjektet bygger på den første ved at brukeren av programmet et utvalg av funksjoner

Tast Visual Basic IDE og velg. Sett inn> UserForm . Dra følgende kontroller på skjemaet fra verktøykassen : et tekstfelt og en knapp . Trykk F7 for å gå tilbake til koden , og deretter velger UserForm fra venstre drop- down boks i den øvre delen av koden vinduet , og Initialiser fra høyre drop- down boks . IDE skaper funksjonen Sub UserForm_Initialize ( ) . I den funksjonen , skrive inn denne koden , som legger til listeboksen navnene på de funksjoner brukeren skal velge mellom : en

ListBox1.AddItem " sum" ListBox1.AddItem " gjennomsnittlig"

Bruk kode vinduets venstre og høyre drop- down bokser igjen, velger CommandButton1 fra venstre drop- down , og klikk på høyrekanten drop- down boks . IDE skaper tom funksjon CommandButton1_Click ( ) . Skriv inn følgende kode i den funksjonen , som vil kalle den opprinnelige Macro1 du skrev med funksjon som brukeren velger fra listeboksen : en

Macro1 ( ListBox1.Value )

Endre Macro1 å akseptere en argument: Høyreklikk på " Macro1 " tekst og velg Definition å navigere til Macro1 definisjon. Endre linjen " Sub Macro1 ( ) " for å lese " Sub Macro1 ( funk As String )"

Nå som du har lagt argumentet , endre Macro1 å bruke det: endre uttalelsen s = "= gjennomsnitt ( "& q.Address &" ) " til å lyde som følger:

s = " = "& funk &" ( "& q.Address &" ) "
Skriv funksjon som laster Form

Skriv inn denne nye funksjonen under Macro1 : en

Sub Makro2 ( ) UserForm1.ShowEnd Sub

Tilbake til Excel ( alt - F11 ) og flytte markøren under kolonnen med tall . Vise UserForm ved å velge Utvikler > Makroer og velge Makro2 og Run . Når skjemaet vises, velger du enten summen eller gjennomsnittet funksjon og trykk på knappen. Programmet vil gå inn i formelen i regnearket. Formelen oppsummerer data fra kolonnen over den aktive cellen .