VBA laused (0)

Visual Basic for  Application  
 
Protseduur  koosneb lausetest: 

 
 
Protseduuri alguslause 
Laused  koosnevad: 
  Kirjelduslaused 
o  võtmesõnad 
  Tegevuslaused 
 Iga VB  lihtlause  peaks olema eraldi  real .  
o  konstandid (arv, tekst jm.) 
  Järjestiktegevused 
o
 Kaht lauset ühel real peab  eraldama  
 
: (koolon). 
nimed (muutujad, alamprotseduurid) 
  Valikulaused 
o   avaldised  (operatsioonid konstantide ja 
  Pikema lause jagamiseks mitmele reale pannakse 
  Kordused  
muutujatega, sh. pöördumine 
poolituskohta _ (tühik ja alakriips). 
  Üleminekud 
funktsiooni(de) poole) 
 
Lõpulause 
 
 
Protseduuri alguslause ja lõpulause 
Funktsioon 
Sub-protseduur 
Function  nimi2 ( [parameetrite kirjeldus] ) [As tüüp] 
Sub nimi1 ( [parameetrite kirjeldus (nimi as tüüp)] ) 
... 
... 
Nimi2 = ... 
End Sub 
End Function 
Kirjelduslaused 
Const  k_nimi [as ] =  
- konstantide  deklareerimine  
Dim m_nimi [as ],  massiiv (...)[as ] 
- muutujate deklareerimine 
Redim massiiv(m [n, ...]) [as ] 
- massiivi dünaamiline deklareerimine 
Nimes kasutatavad sümbolid: tähed,  numbrid , alakriips _ 
Andmetüübist sõltub väärtuse liik, diapasoon ja täpsus, lubatavad  tehted , mäluvälja pikkus. Täisarvud:  Integer , Long;  reaalarvud :  Single ,  Double ; tekstid: 
String ; tõeväärtused: Boolean; universaalne: Variant.  Tüüpi saab näidata ka nn. tüübitähise abil (%, &, !, #, $)  kirjelduses   muutuja   nime lõpus.  
Kirjeldused ei pea tingimata olema alguses. Muutujaid ei pea tingimata kirjeldama, siis võetakse muutujate tüübiks Variant.  
Järjestiktegevused 
Pöördumine alamprotseduuri poole 
Omistamine 
[Let] m_nimi =  
Call  Nimi1 ( argumentide  loetelu  ) 
(avaldises võib olla pöördumine fn.i poole kujul  
     või 
Nimi2([argumentide loetelu]) 
Nimi1   argumentide loetelu  
Set v_nimi =  
Valikulaused 
IF-lause 
If tingimus Then laused_1 [ Else  laused_2] 
Select   Case  lause (täitmisele kuuluvad laused valitakse ühe suuruse (selektori) 
väärtuse alusel) 
IF- plokk  
 
Select Case selektor 
If tingimus1 Then  < 
- 1 või  suvaline  arv  kordi  <  
- 0 või suvaline arv kordi 
[ Else 
      [ laused ] ]  
- 0 või 1 korda 
  lause(d) ]  
- 0 või 1  
End Select 
End If 
Kordused 
Do ...  Loop   
For ... Next 
Do 
Kordus järelkontrolliga  
Juhtmuutujuga kordus  
a1, a2, a3 – avaldised:  
 
lause(d)  
(laused täidetakse vähemalt üks kord) 
a1 - algväärtus, a2 - lõpp, a3 - samm 
Loop  Until  tingimus 
For v = a1 To a2 [ Step  a3] 
(vaikimisi 1) 
 
lause(d) 
 
Next v 
Lauseid  korratakse iga juhtmuutuja v väärtuse 
Do  While  tingimus 
Kordus eelkontrolliga  
jaoks. 
 
lause(d)  
(kui tingimus pole täidetud, 
Loop 
ei täideta lauseid  kordagi ) 
Kordus hulga iga elemendiga 
 
element -  muutuja , viitab hulga elemendile; 
For Each element In grupp 
While - korratakse nii kaua kuni tingimus on täidetud. 
grupp - massiiv või objektide kollektsioon  
Until - korratakse siis, kui tingimus ei ole täidetud. 
 
lause(d) 
Lauseid korratakse iga gruppi (hulka) kuuluva 
 
Next element 
elemendi jaoks. 
Do 
Lõpmatu kordus (katkestusega) 
Üleminekud (korraldust  Exit  kasutatakse korduslausetest ja ka programmist 
 
lause(d) 
väljumiseks) 
 
If tingimus Then Exit Do 
 
lause(d) 
Exit Do 
Exit Sub 
Loop 
Exit For 
Exit Function 
Muutuja – väärtuste säilitamiseks mõeldud mäluväli, suurus sõltub muutuja tüübist; programmi tekstis esindab muutujat talle antud nimi.  
Massiiv – ühetüübiliste muutujate järjestatud kogum, millele antakse ühine nimi ja mille erinevaid elemente eristatakse indeksi(te) abil massiivi 
nime järel sulgudes. Vektor - ühemõõtmeline massiiv,  Maatriks  - kahemõõtmeline massiiv 
Visual Basic for Application 
 
Tehted ja avaldised: 
Aritmeetika: 
+   -   *   /        \     Mod (\ ja mod – täisosa ja jääk täisarvulisel jagamisel)  
tehete  järjekord: 1) ^   2) *  ja /   3) + ja  - ; vajadusel kasutada ümarsulge: (  ) 
Sidurdamine:  &  või   + 
Loogika : 
Not, And, Or 
Võrdlus: 
 = ,    ,  =   
VBA funktsioone: 
 
Len(tekst) – teksti pikkus 
Rnd() – juhuslik  reaalarv  0..1 
Mid(tekst, algus, n) – sümbolid teksti keskelt 
Int(r_arv) – täisarv, väiksem kui r_arv 
Left (tekst, n); Right(tekst,n) – sümbolid algusest/lõpust 
Date (); Now() – tänane kuupäev; praegune päev ja kellaaeg  
IsNumeric( avaldis ) – kas on numbriline väärtus 
Year (aeg);  Month (aeg); Day(aeg) – aasta, kuu, päev 
IsDate(avaldis) – kas on kuupäev 
DateSerial(aasta, kuu, päev) – kuupäev osadest 
Weekday (aeg, 2) – nädalapäeva järjenumber 
InputBox(tekst) – küsib  kasutajalt  väärtuse 
MsgBox tekst – näitab teksti  ekraanil  
 
Graafikaobjektide ( Shape ) omadusi ja  meetodeid  – Shapes("nimi").omadus, Shapes("nimi").meetod [argument] 
Omadus 
Selgitus  
 
Meetod 
Selgitus 
Name 
nimi 
 
IncrementLeft dx 
vasaku serva juurdekasv 
Left 
vasak serv 
 
IncrementTop dy 
ülemise serva juurdekasv 
Top 
ülemine serv 
 
IncrementRotation dn 
pöördenurga juurdekasv 
Width  
laius 
 
ScaleHeight k,  False  
kõrguse skaleerimine 
Height  
kõrgus 
 
ScaleWidth k, False 
laiuse skaleerimine 
Rotation 
pöördenurk 
 
Select 
valimine (aktiveerimine) 
Fill .ForeColor.SchemeColor 
täitevärv 
 
Copy  
kopeerimine 
Line.ForeColor.SchemeColor 
joone värvus 
 
Duplicate 
dubleerimine  
Line. Weight  
joone paksus 
 
Cut 
lõikamine 
Visible 
nähtavus 
 
Delete 
eemaldamine 
 
Lahtri/lahtriploki (Range) omadusi ja meetodeid – Range("nimi").omadus, Range("nimi").meetod [argument] 
Omadus 
Selgitus 
Omadus 
Selgitus 
Meetod 
Selgitus 
Address 
aadress 
Row /  Column  
Piirkonna alguse rida/ veerg   
Select 
Valida 
Name 
nimi 
Rows / Columns 
Piirkonna kõik rivid / tulbad 
Copy [ sihtkoht ] 
Kopeerida 
Value  
Väärtus 
Rows(rn), Columns(tn) 
Rivi/ tulp  etteantud numbriga 
ClearContents 
Kustutada  sisu 
Formula  
Valem 
Cells 
Piirkonna kõik  lahtrid  
Clear  
Kusutada kõik 
Left 
Vasak serv 
Cells(rn, tn) 
Lahter  rn, tn nihkega 
Delete  nihe  
Eemaldada 
Top 
Ülaserv 
Cells(nr) 
Lahter. nr ploki algusest 
Insert nihe 
Lisada 
Width 
Laius 
CurrentRegion 
piirkond lahtri (ploki) ümber 
Cut  [sihtkoht] 
Lõigata 
Height 
Kõrgus 
Offset(rnihe, tnihe) 
Nihutatud piirkond  
 
Font.ColorIndex 
Kirja värv 
Resize(m, n) 
Ploki mõõtmete muutmine   
ActiveCell – aktiivne lahter 
ActiveSheet – aktiivne tööleht 
Rows. Count ,  Columns.Count 
Ridade, veergude,  
Interior .ColorIndex 
Tausta  värv 
 
Cells.Count 
lahtrite arv 
Näiteid: 
ridu = Range("nimi").CurrentRegion.Rows.Count 
Set prk = ActiveCell. CurrentRegion 
Set prk = Range("tabel") 
veerge = lahter.CurrentRegion.Columns.Count 
Sheets("L_nimi").Range("nimi").Copy  Range("M_koopia") 
prk.Cells(rida+2, 1) = avaldis 
Range("nimi").CurrentRegion.ClearContents    
Range("nimi").Offset(1, 0).Resize(2, 2).Delete xlShiftUp  
Range("nimi").Select    
ActiveCell.CurrentRegion.Clear     
Range("nimi").Offset(2, 0).Resize(1, 2).Insert xlShiftDown   
prk. Offset(1, 0).Clear    
 
Vormielemente (objektid) 
Vormielementide (objektide) omadusi. Igal objektitüübil oma komplekt. 
Label 
märgendiboks 
Name – nimi (kõigil objektidel), viitamiseks VB programmist. 
TextBox 
tekstiväli (tekstiboks) 
Caption  – pealkiri, selgitus; tekst objekti peal või kõrval (nupud jm). 
Combobox 
komboboks 
Value – väärtus, LinkedCell – seotud lahter; ainult töölehel (andmeväljadel, 
ListBox 
loendiboks 
seadenuppudel, spinneritel, kerimisribadel). 
CheckBox 
märkeruut 
Spinner,  kerimisriba : Min, Max, SmallChange, kerimisribal LargeChange. 
OptionButton 
suvandinupp (raadionupp) 
Combobox, Listbox:   ListFillRange – andmepiirkond töölehel;  
ScrollBar 
kerimisriba 
BoundColumn – veerg, kust võetakse väärtus (value);  
SpinButton 
spinner 
ColumnCount – andmeveergude arv;  
CommandButton 
käsunupp 
ColumnWidths – üksikute veergude laiused boksis;  
ToggleButton 
lüliti 
ListWidth – andmetabeli üldlaius boksis. 
Sündmusprotseduure (enamkasutatavaid, töölehelt) 
Workbook : Open, Activate, Deactivate, BeforeClose, BeforeSave, BeforePrint, SheetChange, SheetCalculate  
Worksheet:  Change , SelectionChange, Activate, Deactivate;  
CommandButton, ToggleButton, OptionButton, CheckBox, ComboBox, ListBox: Click;  
TextBox, ComboBox, ListBox, ScrollBar, SpinButton: Change