Kask 74 3 Saar 36 0 NB! NB! NB! Erand!!! Paju 65 3 Kasutaja töölehefunktsioonides Tamm 94 5 argumente ei saa esitada tupade Vaher 55 2 nimede abil, peab kasuta adresse Pikim neljast isikust Töölehel on nelja isiku nimed ja pikkused. Teha protseduur, mis kuvab pikima isiku nime ja pikkuse Ants Peeter Jaak Juku 192 203 196 173 CommandButton1 jaotis valikud ... If D < 0 Then ... x1 = "" : x2 = "" If arv > 0 Then Else sumpos = sumpos + x1 = (-b - Sqr(D)) / (2 * arv a) npos = npos + 1 x2 = (-b + Sqr(D)) / (2 * End If
NB! NB! Erand!!! Paju 65 Err:508 Töölehefunktsioonide kasutamisel valemis ei saa Tamm 94 Err:508 argumente esitada lahtriplokkide nimede abil, peab kasutama aadresse. Vaher 55 Err:508 Pikim neljast isikust Töölehel on nelja isiku nimed ja pikkused. Teha protseduur, mis kuvab pikima isiku nime ja pikkuse Ants Peeter Jaak Juku Pikim Pikkus 192 203 196 173 Peeter 203 jaotis valikud ... If D < 0 Then ... x1 = "" : x2 = "" If arv > 0 Then Else sumpos = sumpos + arv x1 = (-b - Sqr(D)) / (2 * a) npos = npos + 1 x2 = (-b + Sqr(D)) / (2 * a) End If
Harjutus Jalgpall. Ülesande püstitus Kasutajaliides VBA projekt. Moodulid Objektid ja klassid. Klassimudelid Omadused ja meetodid Graafikaobjektid. Klass Shape Lahtriplokk. Klass Range Valikud. If-lause Kordused. Do ... Loop-lause Muutujad ja Omistamine Makrode käivitamine ja täitmine Parameetrid For-lause Funktsioonid Sissejuhatus VBAsse J Makrod ja Sub-protseduurid Laused VBA-projekt. Moodulid Objektid ja klassid Omadused ja meetodid Klasside Shape ja Range objektid Juhtimislaused: If-lause ja Do ... Loop Muutujad bjektid Do ... Loop-lause Harjutus Jalka. Ülesande püstitus Koostada programm, mis imiteerib jalgpallimängu mõningaid elemente Juku teeb etteantud arvu lööke. Programm loeb kokku mööda ja sisse löödud löökide arvu ja tabamusprotsendi.
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).
t = kuju.left + dx p = kuju.Top + dy tation = kuju.Rotation + pn dite kasutamine etod [argumendid] b puududa kui protseduur sama lehe oodulis, kus asub objekt. ntide kasutamine sõltub meetodist. paat").Delete = Shapes("post").Duplicate ementLeft 20 leWidth 1.2, False Kuju omaduste muutmine Veski. Liikumine. Lõpmatu kordus J Sõida Tee ringe Auto testimine 1 Distants ringe samm paus ring 800 5 10 0,01 5 Sub Test() Dim n, i, algaeg, auto As Shape Set auto = Shapes("auto") n = Range("ringe").Value algaeg = Timer For i = 1 To n Range("ring").Value = i Do auto.IncrementLeft Rnd() * 20 + 5 If auto.Left > 1000 Then Exit Do paus 0.02 Range("aeg").Value = Timer - algaeg Loop auto.Left = 0 Next i End Sub If auto
mõõtmete muutmine Muuda J Kopeeri ujundi nimi, nuppu Kopeeri ke sihtkoht kohale Läks Aitab Sub Flips() Dim a As Shape, dx, S1p, S2v Set a = Shapes("auto") dx = 10 S1p = Shapes("sein_1").Left + Shapes("sein_1").Width S2v = Shapes("sein_2").Left Kohale Do a.IncrementLeft dx paus 0.03 If a.Left <= S1p Or a.Left + a.Width >= S2v Then paus 0.5: a.Flip 0: dx = -dx: paus 0.5 End If Loop End Sub Sub Kohale() Dim auto As Shape Set auto = Shapes("auto") auto.Left = Shapes("sein_1").Left + Shapes("sein_1").Width If auto.HorizontalFlip = True Then auto.Flip 0 End Sub Demo
esinevad protseduuris. Täitmise järjekorda saab muuta spetsiaalsete juhtimislausete abil. Juhtmislausete kaheks põhiliigiks on valikulaused ja korduslaused. Lisaks lausetele esinevad protseduurides ja nende vahel ka kommentaarid. Kommentaaris võib olla suvaline tekst, mis ei avalda mingit mõju protseduuri täitmisele. Ta peab alati algama ülakomaga ning võib paikneda kas eraldi real või lause(te) järel rea lõpus. Struktuuri järgi jagunevad laused liht- ja liitlauseteks, mis sisaldavad teisi Liht-ja liitlauseid. Laused paigutatakse moodulilehe ridadele. Ühel real on üks või mitu lauset. Viimasel juhul eraldatakse nad üksteisest kooloniga a = Range("a") : b = Range("b") : c = Range("c_"): h = Range("h") k = 0: a = x/2 Üks lause võib paikneda ka mitmel real. Lause jätkutunnuseks on rea lõpus asuv allkriips. Allkriipsu ja temale eelneva märgi vahel peab olema vähemalt üks tühik. Näiteks paikneb järgnev If-lause kahel real
Rnd trigonomeetria Finantsfunktsioonid FV, Pmt, Rate SLN, SYD, DDB Massiiv Array LBound, UBound Failifunktsioonid EOF,LOF, FileLen, FileDateTime CurDir Input, Seek Värvid RGB, QBColor Dialoog InputBox, MsgBox Keelestruktuurid Valikud * If tingimus Then tegevus * If tingimus Then tegevus(ed) End If * If tingimus1 Then tegevus(ed)1 ElseIf tingimus2 Then ... End If Select Case avaldis Case väärtus1 tegevus(ed)1 Case väärtus2 ... End Select Kordused Do While tingimus Do korduv tegevus korduv tegevus Loop Loop While tingimus Do Until tingimus Do korduv tegevus korduv tegevus Loop Loop Until tingimus For muutuja=algväärtus To lõppväärtus Step samm
echo '
