vs = Shapes("auto").Left + 20 Makrode käivitamine ja täitmine - VBE menüü või riistariba - Exceli menüüst Tools / Macro / Macros - käsunupp (eelnevalt siduda) - graafikaobjekt - ... Täitjaks spetsiaalne programm VBA Interpretaator Omab juurdepääsu Exceli objektidele Täitmise üksuseks - protseduur Loob tööpiirkonna: - programmi- ja - andmeplokk protseduuri ja selle poolt kasutatavate andmete ajutiseks säilitamiseks VBA Excel Tööpirkond Tööpirkond Programmiplokk Objekid Andmeplokk ... Parameetrid Eriliiki muutujad Määratletakse protseduuri päises Sub nimi ( [ parameetrid ] ) esitatakse nimede abil, võib näidata ka tüübi Võivad olla - sisendparameetrid saavad väärtuse argumentidelt pöördushetkel - väljundparameetrid saavad väärtused protseduuri täitmisel Põõrduslause [ Call ] nimi ( [ argumendid] )
Visual Basic for Application Protseduur koosneb lausetest: Protseduuri alguslause Laused koosnevad: Kirjelduslaused o võtmesõnad Iga VB lihtlause peaks olema eraldi real. Tegevuslaused o konstandid (arv, tekst jm.) Järjestiktegevused Kaht lauset ühel real peab eraldama : (koolon). o nimed (muutujad, alamprotseduurid) Valikulaused Pikema lause jagamiseks mitmele reale
Visual Basic for Application Protseduur koosneb lausetest: Protseduuri alguslause Laused koosnevad: Kirjelduslaused o võtmesõnad Iga VB lihtlause peaks olema eraldi real. Tegevuslaused o konstandid (arv, tekst jm.) Järjestiktegevused Kaht lauset ühel real peab eraldama : (koolon). o nimed (muutujad, alamprotseduurid) Valikulaused Pikema lause jagamiseks mitmele reale pannakse
Paigutada lehele mingi kujund (Juku, Kraps vm). Kui katsete arv on väiksem etteantud arvust (n 57), tekitatakse mingi animatsioon: hüppamine, salto vm. Kordused 2 Fuktsiooni nullkohad algus samm lõpp jaotisi a_0 b_0 -5 1 5 10 2 3 Excel VBA Excel y_1 x y y_1 Nullid 12 -10 #NAME? #NAME? 10 30 #NAME? #NAME? 70 #NAME? #NAME? 8 110 #NAME? #NAME? 6
Kui katsete arv n väiksem etteantud arvust (n 5-7), tekitakse mingi nimatsioon: hüppamine, salto vm Arva ära Kordused 2 Fuktsiooni nullkohad Fx 3 sin( 2 x 1) 5 cos( x / 2 3) algus samm lõpp jaotisi a_0 b_0 -5 1 5 10 1 2 Excel VBA Excel x y y_1 Nullid -5 -4.779704 -4.779704 #VALUE! -4 #VALUE! #VALUE! #VALUE! -3 #VALUE! #VALUE! #VALUE! -2 #VALUE! #VALUE! #VALUE! -1 #VALUE! #VALUE! #VALUE! 0 #VALUE! #VALUE! #VALUE! 1 #VALUE! #VALUE! #VALUE! 2 #VALUE! #VALUE! #VALUE! 3 #VALUE! #VALUE
Kui katsete arv n väiksem etteantud arvust (n 5-7), tekitatakse mingi nimatsioon: hüppamine, salto vm. Kordused 2 Fuktsiooni nullkohad Fx 3 sin( 2 x 1) 5 cos( x / 2 3) algus samm lõpp jaotisi a_0 b_0 -5 1 5 10 2 3 Excel VBA Excel x y y_1 Nullid y_1 -5 -4.779704 #VALUE! 0 -4 #VALUE! #VALUE! -6 -4 -2 0 2 -3 #VALUE! #VALUE! -1 -2 #VALUE! #VALUE!
ITK sissejuhatus infotöötlusesse KT3 VBA variant 19 1.Kirjuta VBA-funktsioon, mis määrab isikukoodi järgi inimeste sugu: Function Sugu(ikood As String) As String Funktsioon saab väärtuseks "mees", kui koodi esimeseks sümboliks on 1,3,4; "naine" - kui esimeseks sümboliks on 2,5,6. Kui isikukoodi pikkus ei ole 11, kõik sümbolid ei ole numbrid või esimene sümbol ei ole ükski eelpool loetletuist, saab funktsioon väärtuseks "viga!". Lahendus: Function Sugu(ikood As String) As String If IsNumeric(ikood) And (Len(ikood) = 11) And (Mid(ikood, 1, 1) = "1") Or (Mid(ikood, 1, 1) = "3") Or (Mid(ikood, 1, 1) = "4") Then Sugu = "mees" ElseIf IsNumeric(ikood) And (Len(ikood) = 11) And (Mid(ikood, 1, 1) = "2") Or (Mid(ikood, 1, 1) = "5") Or (Mid(ikood, 1, 1) = "6") Then Sugu = "naine" Else: Sugu = "viga!" End If End Function3 . Kirjuta Sub-protseduur (makro), mis küsib kasutaja käest täisarvude vahemiku ning leiab nende summa: Sub ArvudSumma() Näiteks, kui vahemik on 1-5, on s
VISUAL BASIC 5 Sisukord .................................................................................................................................................. 1 Sissejuhatus............................................................................................................................................. 1 1. Objektide klassid ................................................................................................................................ 2 2. Programmid VB-s .............................................................................................................................. 2 3. Keelereeglid ........................................................................................................................................ 2 Funktsioonid.........................................................................................................................................
Kõik kommentaarid