Náhradní moduly Moto z play. Recenze smartphonu Lenovo Moto Z Play: s „aplikovanými“ přísadami s dlouhou životností. Motorola Moto Z Play Specifikace a výsledky testů

Téma 2.3. Prezentační software a základy kancelářského programování

Téma 2.4. Systémy pro správu databází a expertní systémy

2.4.11. Tréninková základna data s hlavním tlačítkem formuláře "Training_students" - Stáhnout

Programování VBA a makra

2.3. Prezentační software a základy kancelářského programování

2.3.7. Základy programování v Office

BASIC vizuální programovací jazyk pro aplikace: Visual Basic for Applications (VBA)

VBA je podmnožina vizuální jazyk Programování ve Visual Basic (VB), které zahrnuje téměř všechny nástroje pro tvorbu aplikací VB.

VBA se v tom liší od programovacího jazyka VB systém VBA je určen pro přímou práci s objekty Office v něm nelze vytvořit projekt, bez ohledu na to Kancelářské aplikace. Tedy v jazyk VBA programování je VB a programovací prostředí je implementováno ve formě VB editoru, který lze aktivovat z libovolné aplikace MS Office.

Chcete-li například otevřít editor VBA z PowerPointu, musíte spustit příkaz Nástroje / Makro / Editor VBA. Z editoru se můžete vrátit do aplikace výběrem příkazu Microsoft PowerPoint v nabídce Zobrazit nebo pomocí kombinace Klávesy Alt+ F11.

Pomocí vestavěného editoru VBA sady ovládacích prvků a editoru formulářů může uživatel vytvářet uživatelské rozhraní pro projekt vyvíjený pomocí obrazovky. Ovládací prvky jsou objekty a každý objekt má sadu možných událostí (například kliknutí nebo dvojitým kliknutím myš, stisknutí klávesy, přetažení objektu atd.).

Každá událost se projevuje určitými programovými akcemi (reakce, reakce). Vlastní formulář umožňuje vytvářet dialogová okna aplikace. Jazyk Programování VBA slouží k psaní programového kódu, například k vytváření uživatelských funkcí v Excelu.

Skutečnost, že programovací systém VBA je navržen pro práci s objekty Office, umožňuje jeho efektivní využití pro automatizaci vývojových činností různé typy dokumenty.

Podívejme se na algoritmus pro vytváření uživatelských funkcí ve VBA:

1. Otevřete okno editoru kódu VBA spuštěním příkazu Nástroje / Makro / Editor jazyka Visual Basic nebo stisknutím Alt+F11.

2. Vyberte položku nabídky editoru Vložit / Modul.

3. Dále proveďte Insert / Procedure. V dialogovém okně Přidat proceduru, které se otevře, zadejte název funkce (například SUM5) a nastavte přepínače: Typ – do pozice Funkce; Rozsah (Scope) - do pozice Public (General) a klikněte na OK.

Rýže. 1.

4. V okně editoru pro programování VBA se objeví šablona funkce: title - Public Function SUM5() a ending - End Function, mezi které musíte umístit kód těla funkce.

Rýže. 2.

5. Dále zadejte seznam parametrů funkce, například v závorkách uvedeme (x, y, z, i, j), datový typ (pro přesné výpočty) a typ hodnoty vrácené funkcí (v v tomto příkladu nevstoupíme). Navíc zavedeme tělo funkce, například SUM5 = x + y + z + i + j. Výsledkem je následující text programu:

Veřejná funkce SUM5(x, y, z, i, j)
SUM5 = x + y + z + i + j
End Function

6. Návrat k oknu aplikace Excel, ve kterém například potřebujeme sečíst pět hodnot.

7. Proveďte „Vložit/Funkce“ a v okně průvodce funkcí, které se otevře, vyberte kategorii „Definováno uživatelem“ a v okně „Vyberte funkci“ vyberte SUM5 a klikněte na OK.

Rýže. 3.

Rýže. 4.

Makra

Vytvoření makra

Vytvořme makro, které automaticky sečte dvě čísla v buňkách A1, B1 a výsledek umístí do buňky C1 a také vyplní buňku C1 tyrkysovou barvou.

Algoritmus pro vytvoření makra pro úlohu:

1. Vyberte Nástroje/Makro, Spustit nahrávání.

2. Do pole Název makra zadejte název makra. První znak názvu makra musí být písmeno. V názvu makra nejsou povoleny mezery; Jako oddělovače slov můžete použít podtržítka.

3. Chcete-li spustit makro pomocí klávesové zkratky, zadejte písmeno do pole Klávesová zkratka. Přijatelné použití CTRL kombinace+ písmeno (pro malá písmena) nebo CTRL+SHIFT+ písmeno (pro velká písmena), kde písmeno je libovolná klávesa písmena na klávesnici. Nevybírejte standardní klávesovou zkratku, protože vybraná klávesová zkratka je příliš velká standardní kombinace klíče Microsoft Excel v té době s touto knihou.

4. V poli "Uložit" vyberte sešit, do kterého chcete makro uložit. Uložte makro do "Tento sešit". K vytvoření stručný popis makro, zadejte požadovaný text do pole Popis. Snímek obrazovky ukazuje příklad vyplnění dialogového okna „Nahrát makro“.

Rýže. 5.

5. Klepněte na tlačítko OK.

6. Proveďte makropříkazy, které chcete zaznamenat.

Rýže. 6.

7. Klepněte na tlačítko Zastavit záznam na plovoucí liště nástrojů OS (Zastavit záznam) nebo na Nástroje / Makro / Zastavit makro.

Když makro dokončí záznam, objeví se v seznamu maker pod svým názvem.

Editor VBA automaticky zaznamenal sekvenci makropříkazů nebo program na základě provedených akcí (obr. 7.).

Rýže. 7.

Chcete-li volat makro, musíte provést příkaz Nástroje / Makro / Makra. Poté jej v dialogovém okně se seznamem maker vyhledejte podle názvu a klikněte na tlačítko Spustit.

Přiřazení tlačítka na panelu nástrojů ke spuštění makra

Makro lze spustit pomocí tlačítka na vestavěném panelu nástrojů, abyste to udělali:

1. Vyberte Nastavení z nabídky Nástroje.
2. V dialogovém okně Nastavení vyberte kartu Příkazy a v seznamu Kategorie vyberte možnost Makra a v seznamu Příkazy vyberte „Vlastní tlačítko“.
3. Ze seznamu Příkazy přetáhněte pomocí myši uživatelské tlačítko na panel nástrojů.
4. Klepněte na toto tlačítko klikněte pravým tlačítkem myši a vyberte příkaz Přiřadit makro k příkazu kontextové menu.
5. Do pole Název makra zadejte název makra.

Přiřazení oblasti grafického objektu ke spuštění makra:

1. Vytvořte grafický objekt.
2. Do vybraného grafický objekt, použijte kontextovou nabídku.
3. Z místní nabídky vyberte příkaz Přiřadit makro.
4. V zobrazeném dialogovém okně Přiřadit makro objektu zadejte název makra do pole Název makra a klikněte na OK.

Úprava makra se provádí pomocí editoru VBA, musíte provést následující:

1. Vyberte příkaz Nástroje / Makra / Makra.
2. Ze seznamu Název vyberte název makra, které chcete změnit.
3. Klikněte na tlačítko Upravit, otevře se okno Visual Basic, ve kterém můžete editovat příkazy vybraného makra zaznamenaného na Vizuální jazyk Základní.

Odstranění makra:

1. V nabídce Nástroje vyberte makra a potom vyberte makra.
2. V seznamu maker v aktuálním sešitu musíte vybrat makro, které chcete odstranit, a kliknout na tlačítko Odstranit.

Přejmenování makra

Chcete-li makro přejmenovat, musíte vstoupit do režimu úprav makra a změnit název v textu programu. Nový název automaticky nahradí starý v seznamech maker a podle klíčů rychlý hovor makro bude voláno s novým názvem.

(Vizuální Základní pro Aplikace)

Basic - programovací jazyk na vysoké úrovni (tlumočník)

Vizuální - obsahuje vizuální nástroje pro vývoj programů (kódů), které uživateli zjednodušují práci, umožňuje zaznamenávat kódy pomocí makrorekordéru.

Aplikace – aplikace do softwarového systému MSOffice spolu s aplikacemi Word, Access a PowerPoint.

Proč je to potřeba?VBA?

Kombinuje (integruje) aplikace, umožňuje spravovat práci jiných aplikací bez opuštění Excelu a vkládat objekty z jiných aplikací;

Akce k dispozici uživateli na listu tvoří 10 % všech schopností aplikace Excel, VBA vám umožňuje automatizovat práci na vašem projektu.

VBA je objektově orientovaný jazyk, což znamená, že objekty se používají při vývoji projektů. Definice: sloučení dat a kódu do jednoho celku Například prvek „Button“ a odpovídající kód spojený s tímto tlačítkem poskytne přechod na jiný list sešitu.

Hlavní objektyVBA:

Aplikace (samotná aplikace Excel)

Sešit (sešit je váš soubor)

WorkSheetFunction (Průvodce funkcí)

Pracovní list

Rozsah

Schéma

Styl

Pohraniční

Interiér (barva pozadí)

písmo (font)

Soubor některých objektů tvoří rodiny– sešity, pracovní listy, grafy.

Objekty mají vlastnosti (akce na objekty) a metody (akce na objekty samotné).

Začněme se seznamovat s vizualizačními nástroji pro vývoj projektů ve VBA. Toto je integrované prostředí pro vývoj aplikací. Abyste se dostali do tohoto prostředí, musíte z položky nabídky vybrat ToolsMacroVBA Editor nebo současně stisknout klávesy ALT a F11.

Na obrazovce se objeví komponenty editoru VBA:

Okno projektu – Projekt VBA

Okno Vlastnosti

Okno s kódem

Okno UserForm

Panely nástrojů

Okno Project–VBAProject (obr. 1) zobrazuje strukturu vašeho projektu (souboru). Toto okno se aktivuje v editoru VBA výběrem příkazu View  Project Explorer nebo tlačítka „Project Explorer“ nebo stisknutím Ctrl + R

Rýže. 1 Okno projektu.

Obr.2 Integrované prostředí pro vývoj aplikací

Okno kódu je navrženo pro ukládání kódu spojeného s objektem. Každý objekt má své vlastní okno, takže každý pracovní list má své vlastní okno kódu a sešit má své vlastní okno.

Stvoření vlastní funkce

Přidávají se vlastní funkce standardní seznam průvodci funkcemi (WorkSheetFunction). Tyto funkce jsou vytvořeny ve speciálním modulu, který doprovází objekt WorkSheetFunction. Tento modul se přidá do projektu pomocí příkazu VložitModul a objeví se v okně projektu na úrovni vaší aplikace. Veškerý kód napsaný v tomto modulu se objeví v kategorii Uživatelem definované funkce Průvodce funkcí.

Do našeho projektu tedy přidáme modul (InsertModule) a do okna kódu tohoto modulu napíšeme text programu:

y = Cos((x + 2) / 2) ^ 2 + Exp(-2 * x) / (x ^ 2 + 1) ^ 0,5

Poté přejděte na list „1 graf“, v buňce c2 budeme přistupovat nová funkce, přidáno do průvodce funkcí - y(x). Práce s touto funkcí se neliší od práce s jakoukoli jinou funkcí. V prvním kroku je třeba vybrat y(x) v kategorii „Uživatelské funkce“, ve druhém kroku zadat buňku A2 jako argument x. V důsledku toho se do buňky C2 zapíše vzorec =y(A2). Přetáhněte tento vzorec přes celý rozsah A2:A17, jak je znázorněno na Obr. 3. Výsledek by samozřejmě měl odpovídat tomu, co jste získali výpočtem této funkce pomocí obvyklých nástrojů listu.

Obrázek 3. Funkce y(x), vypočtená obvyklým způsobem a pomocí uživatelem definované funkce.

Základní příkazy vba – Podmíněné příkazy

Podmíněné operátory mají 2 formy psaní:

1) Jeden řádek

LI< условие>PAK<оператор 1>

IF,THEN,ELSE – služba neměnná slova, v lomených závorkách< >uživatelský text je to, co píšete v souladu se zadáním, část v hranatých závorkách je nepovinná, text může chybět. Tento tvar se obvykle používá v případě jednoduchých akcí, například při výpočtu modulu čísla y=x=abs(s), můžete použít následující operátor:

POKUD x > 0 POTOM y = x JINAK y = -x

2) V několika řádcích. V tomto případě musí podmíněný příkaz končit příkazem „ENDIF“.

LI<условие>PAK

<оператор 1>

<оператор 2>

<оператор 3>

<оператор 4>

Tento formulář se používá pro složité výpočty, například při výpočtu kořenů kvadratická rovnice. Předpokládejme, že potřebujeme najít kořeny rovnice a*x 2 +b*x+c= 0. Jak je známo, pokud b 2 -4*a*c≥ 0, pak se kořeny vypočítají pomocí vzorce
, jestližeb 2 -4*a*c≤ 0, pak v oblasti reálných čísel nejsou žádné kořeny. Podmíněný příkaz, který implementuje tento algoritmus, vypadá takto:

POKUD b^2 -4*a*c>= 0 POTOM

X1 = (-b + (b^2 - 4*a*c)^(1/2)) / (2*a)

X2 = (-b + (b^2 + 4*a*c)^(1/2)) / (2*a)

X1 = „ŽÁDNÉ ŘEŠENÍ“

X2 = „ŽÁDNÉ ŘEŠENÍ“

Příklady psaní vlastních funkcí ve vba

Příklad 1.

F
funkce y(x)

y = Cos((x + 2) / 2) ^ 2 + Exp(-2 * x) / (x ^ 2 + 1) ^ 0,5

End Function

Příklad 2

Funkce z(x)

Pokud x< 0 Then

z = (1 + x + x^2) / (1 + x^2)

Pokud x< 1 Then

z = (1 + 2 * x / (1 + x^2)) ^ (1 / 2)

z = 2 * Abs(0,5 + Sin(x))

End Function

Přednáška 2

Vlastnosti, metody a události objektů VBA. Příklad procedury využívající jednotlivé vlastnosti objektu Application.

Ovládací prvky

Typy proměnných ve VBA

Příkazy smyčky

Příklad programu pro tabulaci funkcí

Vlastnosti, metody a události objektů VBA. Příklad procedury využívající jednotlivé vlastnosti objektu Application.

Pokračujme v seznámení s objektovým modelem VBA. Všechny objekty jsou uspořádány do hierarchické struktury podřízené objektu nejvyšší úroveň"Aplikace".

Aplikace . sešity („grafy“) .

Pokud je aktivní sešit (soubor) „Grafy“, pak stačí uvést

Pracovní listy („Obsah“). Rozsah („A1“).

Pokud pracujete na listu „Obsah“, bude odkaz vypadat jako Rozsah („A1“).

Všechny objekty mají vlastnosti, metody a události.

Vlastnictví to je nějaká charakteristika objektu (barva, tvar, název, umístění, viditelnost atd.) Hodnota objektu je nastavena následovně:

Object.Property = hodnota vlastnosti

Metoda jedná se o akci prováděnou na objektu (otevřít, zavřít, odstranit). Pravidlo psaní metody:

Objekt. Metoda

Událost jedná se o akci rozpoznanou objektem (kliknutí myší, dvojité kliknutí, stisknutí klávesy).

Podstatu programování ve VBA tvoří dva pojmy – událost a reakce na ni. Pokud uživatel zasáhne do systému (stisk tlačítka), což je událost, pak pomocí VBA je možné naprogramovat odezvu - akci odezvy.

Zde jsou některé vlastnosti, metody a události hlavních objektů.

Vlastnictví
Objekt aplikace
Titulek (název objektu)	Ukončit (ukončit Excel	NewWorkBook (vytvoření nového sešitu)
Automatické obnovení (automatické ukládání)	Uložit	SheetActivate (přejít na pracovní list)
ReferenceStyle (styl odkazu)	Spustit (spustit makro)	WorkBookOpen (otevření sešitu)
MemoryFree (informace o free BERAN)	Nestálý (přepočet při změnách v buňkách listu)	WorkBookBeforeClose (zavření sešitu)
MemoryTotal (informace o celkové paměti RAM)	Vypočítat (výpočet ve všech otevřené knihy)	SheetBeforeDubleClick(dvojité kliknutí)
MemoryUsed (informace o použité paměti RAM)	IpputBox (vstup dat)	SheetBeforeRightClick (kliknutí pravým tlačítkem)
CellDragAndDrop (ovládání přetahování vzorců v buňkách)	Msgbox (výstup zprávy)
ActiveCell, ActiveSheet (aktivní buňka, list)
Buňky (rozsah buněk)
DisplayFormulaBar (zobrazení řádku vzorců)
DisplayScrollBar (zobrazit posuvníky)
DisplayStatusBar (zobrazení stavového řádku)

Vlastnosti metody Aplikace umožňují programově nastavit hodnoty mnoha možností v okně Nástroje/Možnosti. Pomocí níže uvedených postupů můžete například změnit standardní vzhled okna aplikace Excel, změnit nadpis a zakázat přetahování vzorců.

Tyto procedury jsou zaznamenány v modulu „Tento sešit“ a provádějí se při otevření a zavření sešitu, tedy při spuštění událostí Open a BeforeClose:

Private Sub workbook_open()

„Název sešitu

Application.Caption = "Kisa a Osya byli tady"

" Barva pozadí rozsahu A1:D1 - Červená

"Hranice rozsahu A1:D1 jsou tečkované

"Přetahování buněk je zrušeno. CellDragAndDrops."

Application.CellDragAndDrop = False

“ je odstraněn řádek vzorců

Application.DisplayFormulaBar = False

„Posuvníky jsou odstraněny

Application.DisplayScrollBars = False

“nastavuje styl propojení R1C1

Application.ReferenceStyle = xlR1C1

"Private Sub Workbook_BeforeClose (Cancel As Boolean)

"Přetahování buněk CellDragAndDrops je obnoveno

Application.CellDragAndDrop = Pravda

„Řádek vzorců je obnoven

Application.DisplayFormulaBar = Pravda

„Posuvníky jsou obnoveny

Application.DisplayScrollBars = True

„Styl odkazu A1 je obnoven

Application.ReferenceStyle = xlA1

Další jednoduché příklady Makra aplikace Excel ilustrují některé funkce a techniky popsané ve výukovém programu Excel VBA.

Excel makro: Příklad 1

Zpočátku tento postup Sub byl uveden jako příklad použití komentářů v kódu VBA. Zde však také vidíte, jak se deklarují proměnné, jak fungují reference Excel buňky, pomocí smyčky Pro, podmíněný operátor Li a zobrazení okna se zprávou.

"Procedura Sub hledá buňku obsahující zadaný řetězec "v rozsahu buněk A1:A100 aktivního listu Sub Find_String(sFindText As String) Dim i As Integer "Integer zadejte Integer, použitý ve smyčce For Dim iRowNumber As Integer "Celé číslo typu Integer pro uložení výsledku iRowNumber = 0 "Prohledává buňky A1:A100 jednu po druhé, dokud není nalezen řádek sFindText For i = 1 až 100 If Cells(i, 1).Value = sFindText Potom "Pokud je nalezena shoda s daným řetězcem" uložte číslo aktuální linka a odcházíme Pro smyčku iRowNumber = i Exit For End If Next i "Informujeme uživatele ve vyskakovacím okně, zda byl nalezen požadovaný řádek "Pokud daný řetězec nalezen, označte, ve které buňce byla nalezena shoda If iRowNumber = 0 Then MsgBox "Řádek " & sFindText & " nebyl nalezen" Else MsgBox "Řádek " & sFindText & " byl nalezen v buňce A" & iRowNumber End If End Sub

Excel makro: Příklad 2

Další postup Sub– příklad použití smyčky Do Zatímco. Můžete také vidět, jak jsou deklarovány proměnné, pracovat s odkazy na buňky aplikace Excel a pomocí podmíněného příkazu. Li.

"Procedura Sub vypíše Fibonacciho čísla nepřesahující 1000 Sub Fibonacci() Dim i As Integer "Počítadlo označující pozici prvku v sekvenci Dim iFib As Integer "Uloží aktuální hodnotu sekvence Dim iFib_Next As Integer "Uloží další hodnota sekvence Dim iStep As Integer "Ukládá velikost dalšího přírůstku "Inicializovat proměnné i a iFib_Next i = 1 iFib_Next = 0 "Smyčka Do While bude prováděna, dokud hodnota "aktuálního Fibonacciho čísla nepřekročí 1000 Do While iFib_Next< 1000 If i = 1 Then "Zvláštní případ pro první prvek sekvence iStep = 1 iFib = 0 Else "Uložte velikost dalšího přírůstku před přepsáním "aktuální hodnoty sekvence iStep = iFib iFib = iFib_Next End If "Vypište aktuální Fibonacciho číslo do sloupce A aktivní list "v řádku s indexem i Cells(i, 1).Value = iFib "Vypočítejte další Fibonacciho číslo a zvyšte index pozice prvku o 1 iFib_Next = iFib + iStep i = i + 1 Loop End Sub

Excel makro: Příklad 3

Tento postup Sub skenuje buňky sloupce A aktivní list, dokud nenarazí na prázdnou buňku. Hodnoty se zapisují do pole. Tento je jednoduchý Excel makro ukazuje práci s dynamickými poli a také použití smyčky Do dokud. V tomto příkladu však s polem neprovedeme žádné akce skutečná praxe programování, po zapsání dat do pole se na něm obvykle provádějí takové akce.

"Procedura Sub ukládá hodnoty buněk sloupce A aktivního listu do pole Sub GetCellValues() Dim iRow As Integer "Ukládá číslo aktuálního řádku Dim dCellValues() As Double "Pole pro ukládání hodnot buněk ​​iRow = 1 ReDim dCellValues(1 až 10) „Provést opakovat, dokud neprojde buňkami sloupce A aktivního listu“ a extrahuje jejich hodnoty do pole, dokud nenarazí prázdná buňka Do Until IsEmpty(Cells(iRow, 1)) "Zkontrolujte, zda má pole dCellValues® dostatečnou velikost "Pokud ne, zvyšte velikost pole o 10 pomocí ReDim If UBound(dCellValues)< iRow Then ReDim Preserve dCellValues(1 To iRow + 9) End If "Сохраняем значение текущей ячейки в массиве dCellValues dCellValues(iRow) = Cells(iRow, 1).Value iRow = iRow + 1 Loop End Sub

Excel makro: Příklad 4

V tomto příkladu postup Subčte hodnoty ze sloupce A pracovní list List2 a dělá to s nimi aritmetické operace. Výsledky se zapisují do buněk sloupců A na aktivním listu. Toto makro ukazuje použití Excel objekty. Odvolání se provádí zejména řízením Sub k objektu Sloupce a ukazuje, jak se k tomuto objektu přistupuje prostřednictvím objektu Pracovní list. Je také ukázáno, že při přístupu k buňce nebo oblasti buněk na aktivním listu není nutné při psaní odkazu zadávat název tohoto listu.

"Procedura Sub pomocí smyčky čte hodnoty ve sloupci A listu Sheet2, "provádí aritmetické operace s každou hodnotou a zapisuje výsledek do "sloupce A aktivního listu (Sheet1) Sub Transfer_ColA() Dim i As Integer Dim Col As Range Dim dVal As Double "Přiřadit proměnné Col sloupec A listu List 2 Set Col = Sheets("Sheet2").Columns("A") i = 1 "Pomocí smyčky čteme hodnoty ​​buněk sloupce Col, dokud "dokud nenarazíte na prázdnou buňku Do Until IsEmpty(Col.Cells(i)) "Proveďte aritmetické operace s hodnotou aktuální buňky dVal = Col.Cells(i).Value * 3 - 1" Další příkaz zapíše výsledek do sloupce A aktivního listu "Není potřeba uvádět název listu v odkazu, protože toto je aktivní list. Cells(i, 1) = dVal i = i + 1 Loop End Sub

Excel makro: Příklad 5

Toto makro ukazuje příklad kódu VBA, který monitoruje událost aplikace Excel. Událost, ke které je makro připojeno, nastane pokaždé, když je na listu vybrána buňka nebo oblast buněk. V našem případě při výběru buňky B1, na obrazovce se objeví okno se zprávou.

"Tento kód zobrazí okno se zprávou, pokud je na aktuálním listu "Buňka B1 vybrána Private Sub Worksheet_SelectionChange(ByVal Target As Range) "Zkontrolujte, zda je vybrána buňka B1 If Target.Count = 1 And Target.Row = 1 And Target.Column = 2 Then " Pokud je vybrána buňka B1, proveďte požadovaná akce MsgBox "Vybrali jste buňku B1" End If End Sub

Excel makro: Příklad 6

Tento postup ilustruje použití operátorů Při chybě A Resumé pro řešení chyb. Tento kód také ukazuje příklad otevírání a čtení dat ze souboru.

"Procedura Sub přiřadí argumentům Val1 a Val2 hodnoty buněk A1 a B1" ze sešitu Data.xlsx umístěného ve složce C:\Documents and Settings Sub Set_Values(Val1 As Double, Val2 As Double) Dim DataWorkbook As Sešit o chybě GoTo ErrorHandling " Otevření sešit s daty Set DataWorkbook = Workbooks.Open("C:\Documents and Settings\Data") "Přiřadit proměnným Val1 a Val2 hodnoty z daného sešitu Val1 = Sheets("Sheet1").Cells(1, 1) Val2 = Sheets( "Sheet1").Cells(1, 2) DataWorkbook.Close Exit Sub ErrorHandling: "Pokud soubor není nalezen, uživatel bude vyzván k umístění souboru, který hledá" v požadovanou složku a poté pokračujte ve spouštění makra MsgBox "Soubor Data.xlsx nebyl nalezen! " & _ "Přidejte sešit do složky C:\Documents and Settings a klikněte na OK" Pokračovat End Sub

MZTools - Velmi užitečná pomůcka pro ty, kteří programují ve VBA. Skutečně šetří čas při psaní kódů. Je důležité, aby utilita zcela zdarma. Zde jsou některé z jeho funkcí:

• Automatické vkládání obslužných rutin chyb do modulů
• Vkládání komentářů do hlavičky procedury s automatickým vkládáním času, názvů modulů a procedur a možností uvést autora procedury
• Automatické číslování řádků kódu
• Odstranění číslování z řádků kódu
• Vytvářejte často používané šablony kódu
• Vlastní schránka pro 9 operací s možností kódů a následného vložení libovolného z 9 zkopírovaných kódů
• a mnoho dalších užitečných věcí

Program je distribuován zdarma.

(37,3 kiB, 3 708 stažení)

Oficiální stránky: nenalezeno

Nástroje VBE – Kolik z vás napsalo kód pro formulář a pak si vzpomnělo, že některý prvek nebyl pojmenován tak, jak jste chtěli, nebo jednoduše chtěl být přejmenován kvůli změně v kódu? A samozřejmě jsme narazili na problém, že při přejmenování prvku musíme jít do kódu a nahradit všechny odkazy tam tento prvek na nové jméno. Pomocí tohoto programu tedy můžete přejmenovat jakýkoli prvek formuláře (TextBox, Label atd.) a Ovládací prvky ActiveX na Excelový list a program sám nahradí všechny odkazy v kódu ze starého názvu na nový. Velmi pohodlné.

Program je distribuován zdarma.