Soubor přednášek z KA

Pascal
Procedure VBA_DEMO
Var Celkem,x : word;
begin
{ následuje komentář }
Celkem := 0;
For x := 1 to 500 do
Celkem := Celkem+1;
Writeln(Celkem);
End; Komentáře - Proměnné - Přiřazovací příkazy - Struktury cyklu - Příkazy VBA - Práce s objekty Stavební kameny VBA VBA
Sub VBA_DEMO ( )
‘ následuje komentář
Celkem = 0
For x = 1 to 500
Celkem = Celkem + 1
Next x
MsgBox Celkem
End Sub Zápis kódu VBA Jestliže je na řádku více příkazů, jejich oddělovačem je dvojtečka (:)
Jestliže se na řádek programu celý příkaz nevejde, řádek se rozděluje symbolem spodní podtržítko ( _ ) jemuž předchází mezera
Sub pokusny_radek ()
Velikost_stranky = 2 : B = Pocet_radku na stranku
Celkovy_pocet_znaku = Velikost_stranky + _
Pocet_radku na stranku
end sub
Jestliže budete psát u klíčových slov VBA vybrané písmena malým písmem, ta budou upravena do správné podoby :
application.workbooks(„pokus.xls“).activatesheet.range(„a1“).value = 12 
Application.WorkBooks(„pokus.xls“).ActivateSheet.Range(„a1“).Value = 12
Velikosti písmen u proměnných se v programu změní podle toho jak daná proměnná byla nejprve deklarovaná příkazem Dim
Komentář se zadává apostrofem ( ‘ ), přičemž jej můžeme použít i uprostřed řádku kódu s tím, že za komentář je považovaná ta část řetězce, která je vpravo od apostrofu
Jako klíčové slovo pro označení komentáře lze použít REM, ale pouze na začátku řádku Kdy psát komentář ve VBA Pro stručný popis účelů každé procedury nebo funkce
Pro stručný popis změn v proceduře nebo funkci
Při nestandardním použití kódu
Pro popis účelu proměnných, tak aby jste po čase věděli co daná proměnná vlastně má za úkol, respektive aby i programátoři po vás mohli rozluštit váš kód :
Dim A12 as Integer ‘A12 – proměnná popisuje obchodní rozpětí v %
Poznámku raději vytvořte ihned při psaní kódu, při pozdějším doplnění poznámky hrozí, že myšlenka, pomocí níž jste kód vytvořili pomalu „vyšuměla“. Kód sice funguje správně, ale vy nevíte „co tím chtěl básník říct“
Při ladění můžete použít jako komentář sadu vstupních simulačních dat a postupně je pro testování „odtajňovat“.
Proměnné, datové typy, konstanty ve VBA Pravidla pro tvorbu názvu proměnných :
Lze používat malá, velká písmena, číslice, ale písmeno musí být vždy jako první znak v řetězci názvu proměnné.
V názvu proměnných nelze používat tečky nebo mezery. Chcete-li použít víceslovný název proměnné, použijte jako oddělovač jednotlivých slov spodní podtržítko.
Uvnitř názvu proměnné nelze použít speciální znaky, které slouží pro deklaraci datového typu proměnné
Názvy proměnných mohou mít až 254 znaků – otázka zní PROČ ???
Nechcete-li použít komentář pro popis proměnné, vytvořte název proměnné tak, abyste na první pohled věděli o jakou proměnnou se jedná : Dim Obchodni_rozpeti as Integer
Pozor na vyhrazená slova, ta nelze použít pro názvy proměnných :
Next = 450
22 + del.ř. 0 až přibližně 2 miliardy Variant (znaky) 16 Libovolná číselná hodnota až do rozsahu „Double“ Variant (čísla) delka řeť. 1 až 65 535 String (pev.del.) 10 + del.ř. 0 až přibližně 2 miliardy String (prom.del.) 4 Odkaz na libovolný objekt Object 8 1. Leden 0100 až 31. prosinec 9999 Date 14 Decimal 8 -922337203685477,5808 až 922337203685477,5807 Currency 4 -2147483648..2147483647 Long 8 494065645841247E-324 až 179769313486232E308 Double 4 1,401298E-45 až 3,402823E38 Single 2 -32768..32767 Integer 2 True nebo False Boolean 1 0..255 Byte Délka Rozsah Typ Vestavěné datové typy ve VBA Datový typ Variant Pokud nebudete deklarovat konkrétní datový typ proměnné, VBA přiřadí automaticky datový typ Variant.
Proměnnou s takovým datovým typem, lze během programu „přetypovat“ :
Sub Demo1()
Vari = „100“
Vari = Vari /2
Vari = „Odpověď : „ & Vari
MsgBox Vari
End Sub
Na začátku kódu vystupuje proměnná Vari jako řetězec s numerickými znaky, poté je tento řetězec podělen číslem 2 a stává se z něj číselný datový typ. Poté je proměnná Vari připojena k řetězci „Odpověď : “ a znovu se z ní stává datový typ pro řetězec. Příkaz MsgBox nakonec zobrazí výsledný řetězec :
Odpověď : 50 Omezení použití datového typu Variant Při použití standardního datového typu (mimo DT Variant) budou programy :
pracovat rychleji
efektivněji využívat paměť
vyloučí se problémy s překlepy v názvech proměnných
Pomocí funkce VBA TypeName lze zjistit v průběhu programu datový typ proměnné :
Sub Demo2()
Vari = „100“
MsgBox TypeName(Vari)
Vari = Vari /2
MsgBox TypeName(Vari)
End Sub
Abyste se přinutili používat všechny používané proměnné, musíte vložit následující text jako první příkaz do vašeho programového modulu :
Option Explicit Lokální proměnné Proměnná deklarovaná uvnitř procedury nebo funkce
Takováto proměnná může být použita pouze v těle procedury nebo funkce v jejímž těle je deklarovaná
V okamžiku opuštění procedury tato proměnná přestává existovat, paměť, která byla použita pro proměnnou bude uvolněna.
Chceme-li, aby lokální proměnná neztratila svou hodnotu po opuštění procedury či funkce, musíme ji deklarovat pomocí příkazu Static
Proměnné se deklarují příkazem Dim v součinnosti s příkazem As, hned po deklaraci funkce či procedury (Sub), ještě před vlastním kódem procedury či funkce :
Dim Prvni As Long
Dim Druhy As String
Dim Dnes As Date
Jedním příkazem Dim lze deklarovat více proměnných :
Dim Prvni As Long, Druhy As String, Dnes As Date
Nelze použít následující deklaraci :
Dim Prvni , Druhy , Treti As Long Jiný způsob určení DT proměnných $ String @ Currency & Long # Double ! Single % Integer Zástupný znak Datový typ Příklady : Dim Vek% (Dim Vek As Integer)
Dim Prijmeni$(Dim Prijmeni As String)
Dim Plat_Ucitele&(Dim Plat_Ucitele As Long) Proměnné platné na úrovni modulu a veřejné proměnné Někdy potřebujeme proměnnou dostupnou pro všechny procedury v rámci celého modulu – musí se deklarovat před tělem 1. procedury.
Dim Dnesni_datum As Date
Sub Vypocet_Datumu ()
[ tělo – kód procedury]
Dnesni_datum = #3/3/2004#
End Sub
.
Sub Hodnoceni_Datumu ()
[ tělo – kód procedury]
Dnesni_datum = #3/3/2004#
End Sub
Hodnota proměnné po ukončení procedury svou hodnotu nezmění
Veřejná proměnná je dostupná všem procedurám ve všech modulech VBA v projektu a deklaruje se pomocí klíčového slova Public :
Public Soucasne_DPH As Byte Příklady deklarace proměnných Dim Alfa As String
Public Beta As Long
Static Gama As Date
Tvorba uživatelských formulářů Vložení nového formuláře do sešitu – v okně editoru VBA (Alt+f11) v okně projekt vyberte Insert  Useform Tvorba uživatelských formulářů Napsání procedury, která váš formulář zobrazí :
Vložení aktivačního tlačítka do sešitu a přidáním procedury objektu CommandButton události Click pro aktivaci formuláře
Přidáním procedury objektu Worksheet a jeho události Activate
Sum ukaz_formular()
Load MojeOkno ‘Inicializuje okno v paměti, ale nezobrazuje
MojeOkno.Show
End Sub
Sum skryj_formular()
UnLoad MojeOkno ‘Odstarní okno z paměti
MojeOkno.Hide ‘Okno pouze skryje
End Sub
Pokud je název formuláře uložen v textové proměnné, může se použít metoda Add pro přidání formuláře do kolekce UseForms a metodou Show okno zobrazit :
Formular = “MojeOkno”
UseForms.Add(Formular).Show Tvorba uživatelských formulářů Přidání ovládacích prvků na formulář
Zaškrtávací políčko – CheckBox
Hodí se, pokud má uživatel možnost ze dvou výběru (ANO/NE)
Pole se seznamem - ComboBox
Má podobu rozvíracího seznamu a v jednom okamžiku zobrazuje pouze jednu hodnotu. Uživatel může přes ComboBox zadávat hodnoty, které se v rozbalovacím seznamu ještě nevyskytují
Příkazové tlačítko – CommandButton
Rámeček - Frame
Používá se pro seskupení jiných ovládacích prvků. Rámeček je užitečný v případě, že kdy má dialogové okno obsahovat více než jednu skupinu prvků přepínač
Obraz – Image
Používá se pro zobrazení grafického obrázku, ze souboru nebo ze schránky
Popisek – Label
Seznam – Listbox
Seznam položek, ze které může uživatel některou vybrat
Tvorba uživatelských formulářů Vícenásobná stránka – Multipage
Umožní vytvářet dialogy s kartami
Přepínač – OptionButton
Umožní uživateli vybírat z několika možností. Používají se vždy ve skupinách nejméně po dvou. “Grupování” lze zajistit u skupin vždy buď : shodným názvem ve vlastnosti objketu GroupName nebo přidáním ovládacího prvku Frame - rámeček
Refedit
Umožní uživateli vybírat oblasti buněk na pracovním listu
Posuvník – ScrollBar
Jezdec posuvníku lze přesouvat tak, že hodnota ovládacího prvku se bude měnit po větších přírůstcích než o hodnotu 1.
Číselník – SpinButton
umožňuje uživateli kliknout na jednu nebo dvě šipky. Tento ovládací prvek se používá ve spojení s ovládacím prvkem Textové pole nebo Popisek. V obou případech zobrazují tyto přidružené prvky velikost hodnoty číselníku.
Textové pole – TextBox
Přepínací tlačítko - ToggleButton
Tlačítko má dva stavy : zapnuto/vypnuto, kliknutím na tlačítko se tyto dva stavy přepínají a ovládací prvek přitom mění svůj vzhled.
Obvyklé vlastnosti ovládacích prvků Name – vlastnost, která pojmenovává prvek od uživatele. Implicitní název je vždy od názvu prvku + index (pořadí prvku) v podobě čísla : CommandButton2
Height, Width, Left, Right – vlastnost prvku určující velikost a umístění na formuláři
Value – Hodnota ovládacího prvku (pokud ji má)
Caption – Text, název nebo popis ovládacího prvku
Enable – určuje, zdali je prvek uživateli programu dostupný
Visible – určuje, zdali je prvek viditelný nebo je skrytý
Accelerator – přidává některým ovládacím prvkům horké klávesy
TabIndex – určuje pořadí ovládacích prvků při použití klávesy TAB resp Shift+TAB
Události formuláře Initialize – k události dojde, když se formulář zobrazuje nebo nahrává se do paměti (Show, Load)
Activate – k události dojde, když se formulář aktivuje
Deactivate – k události dojde, když se formulář deaktivuje
QueryClose – k události dojde těsně před tím, než se formulář ukončí
Terminate – k události dojde ihned poté, co se formulář ukončí
POZOR
Důležité je v jakém pořadí jsou události vyvolány :
PříkazMetodaUdálostUdálost
Show  Initialize  Activate
Load  Initialize
UnLoadQueryClose Terminate
Hide ------ -----
Aplikace byla uzavřena pomocí Task Manageru 3 vbAppTaskManager Aplikace byla uzavřena prostředím Windows 2 vbAppWindows Formulář by zavřen kódem programu 1 vbFormCode Formulář byl uzavřen „křížkem“ v Kontrol Menu 0 vbFormControlMenu Popis Hodnota Konstanta Private Sub Useform_Queryclose (Cancel as Integer, Closemode as Integer)
If CloseMode = vbFormControlMenu Then
MsgBox “Pro zavření formuláře klikněte na tlačítko Zavřít”
Cancel = True
End If
End Sub
Zábrana proti stisku Ctrl+Break : Application.EnableCancelKey = xlDisabled Příklad – potlačení tlačítka Zavřít na formuláři Typ zavření formuláře nebo aplikace lze otestovat pomocí návratových konstant parametru Closemode, které vrací událost QueryClose objektu Useform :
Metoda změna písma,
změna režimu Metoda změna světla
změna režimu Základní škola Gymnázium Průmyslovka Vysoká škola Školy Kancelář Laboratoř Lavice Jídelna Kanceláře Laboratoře Lavice Jídelny Pracovní stůl Psací stroj Počitač Projektor Sedačka Vařič Odsávač Vlastnosti svítivost,
kontrast, rozlišení, výstupy Vlastnosti tvar,
počet kláves, elektrika Gymnazium.laborator.projektor.svitivost = 1200 Gymnazium.laborator.projektor.zmena_sv = true Visual Basic pro aplikace (VBA) APPLICATION WORKBOOKS
Kolekce objektů
Workbook WINDOWS
Kolekce objektů
Window ADDINS
Kolekce objektů
Addin WORKSHEETS
Kolekce objektů
Worksheet CHARTS
Kolekce objektů
Chart NAMES
Kolekce objektů
Name CHARTOBJECTS
Kolekce objektů
Chartobject PIVOTTABLES
Kolekce objektů
PivotTable RANGE
Objekt Objekty a kolekce Kolekce Kolekce je skupina objektů stejné třídy
Kolekce sama je objekt
Chceme-li odkazovat na jednotlivý objekt kolekce, vloží se název objektu nebo jeho index do závorky za název k