1 Metody Matematyczne w Inżynierii Chemicznej Wprowadzenie do laboratorium

2 Tworzenie programu w VBA Wstążka Deweloper Formanty Wstaw Przycisk Formanty formularza – nowe makro Formanty ActiveX – edytuj kod

3 Tworzenie programu w VBA Informacja o projekcie Tu wpisuje się kod Właściwości obiektu Strefa deklaracji

4 Zmienne

5 Oznaczenia Litery (A, B itp.) Wyrazy (ilosc, masa itp.) Kombinacje liter i cyfr (A1, c3 itp.) Kilka wyrazów połączonych (NazwaZbioru, srednica_wew itp.)

6 Zmienne Typy Single, 1.401298E-45 do 3.402823E38 (+/-) 32bity Double, 4.94065645841247E-324 do 1.79769313486232E308 (64 bity) Boolean, false, true Byte, 0 to 255 Integer, -32,768 to 32,767 Long -2,147,483,648 to 2,147,483,647

7 Zmienne Definiowanie Zmienne określonego typu Dim NazwaZmiennej As TypZmiennej Zmienne strukturalne (tablicowe) Dim NazwaZmiennej(il_w, il_kol) As TypZmiennej

8 Zmienne przyporządkowywanie Stałych A=1 B=tekst Wyrażeń C=1*2 G=a+Z Operatory – takie jak w Excelu.

9 Operacje wejścia-wyjścia

10 Wykorzystanie Visual Basica z Excela Wprowadzenie danych: Z komórek arkusza zmienna=ActiveCell.Value Zmienna=Range(AdresKomórki) Z okienka wprowadzania danych Zmienna=InputBox(opis okienka)

11 Wykorzystanie Visual Basica Wyprowadzanie wyników Do komórki arkusza ActiveCell.Value= zmienna Range(AdresKomórki)= Zmienna W okienku wiadomości MsgBox(Zmienna)

12 Wykorzystanie Visual Basica Dodatkowe możliwości funkcji MsgBox MsgBox(prompt[, buttons] [, title] [, helpfile, context])

13 Wykorzystanie Visual Basica Instrukcja warunkowa IF warunek THEN akcja1 ELSE akcja2 Etykieta/numer linii Etykieta – nazwa: Skok na etykietę GOTO etykieta/numer linii

14 Wykorzystanie Visual Basica 5 a = InputBox("podaj a") b = InputBox("podaj b") 10 x = InputBox("podaj x") y = a * x + b odp = MsgBox(y, 5, "wynik") If odp = 4 Then GoTo 10 odp1 = MsgBox("czy liczyć dla nowych parametrów?", 1, "pytanie:") If odp1 = 1 Then GoTo 5