Jak používat vestavěné funkce VBA aplikace Excel

Příklady funkcí Excel VBA

Zde najdete několik příkladů použití funkcí VBA v kódu. V mnoha z těchto příkladů funkce MsgBox zobrazuje hodnotu v okně zprávy. Ano, MsgBox je funkce VBA – poměrně neobvyklá, ale přesto funkce. Tato užitečná funkce zobrazí zprávu v dialogovém okně a také vrátí hodnotu.

Zobrazení systémového data nebo času

První příklad používá funkci Date jazyka VBA k zobrazení aktuálního systémového data v okně zprávy:

Sub ShowDate() MsgBox "Dnes je: " & Datum End Sub

Všimněte si, že funkce Date nepoužívá argument. Na rozdíl od funkcí listu funkce VBA bez argumentu nevyžaduje prázdnou sadu závorek. Ve skutečnosti, pokud zadáte prázdnou sadu závorek, VBE je okamžitě odstraní.

Chcete-li získat systémový čas, použijte funkci Čas. A pokud chcete všechno, použijte funkci Now k vrácení data i času.

Zjištění délky řetězce

Následující postup používá funkci VBA Len, která vrací délku textového řetězce. Funkce Len má jeden argument: řetězec. Po provedení tohoto postupu se v okně zprávy zobrazí vaše jméno a počet znaků ve vašem jméně.

Sub GetLength()
  Dim MyName As String
  Dim StringLength As Long
  MyName = Application.UserName
  StringLength = Len(MyName)
  MsgBox MyName & " má znaky " & StringLength & "."
End Sub

Jak používat vestavěné funkce VBA aplikace Excel

Výpočet délky vašeho jména.

Excel má také funkci LEN, kterou můžete použít ve vzorcích listu. Verze Excelu a funkce VBA fungují stejně.

Zobrazení názvu měsíce

Následující postup používá funkci MonthName, která vrací název měsíce. Název měsíce používá jeden argument: celé číslo mezi 1 a 12.

Sub ShowMonthName()
  Dim ThisMonth As Long
  Tento měsíc = měsíc (datum)
  Název měsíce schránky zpráv (tento měsíc)
End Sub

Tento postup používá funkci Měsíc k získání aktuálního měsíce (jako hodnoty) a tato hodnota je přiřazena proměnné ThisMonth. Funkce MonthName pak převede hodnotu na text. Pokud tedy spustíte tento postup v dubnu, ve zprávě se zobrazí text Duben.

Ve skutečnosti není proměnná ThisMonth vyžadována. Stejný efekt můžete získat s tímto výrazem, který používá tři funkce VBA:

Název měsíce (měsíc (datum))

Zde je aktuální datum předáno jako argument funkci Month, která vrátí hodnotu, která je předána jako argument funkci MonthName.

Určení velikosti souboru

Následující postup Sub zobrazuje velikost spustitelného souboru aplikace Excel v bajtech. Tuto hodnotu zjistí pomocí funkce FileLen:

Sub GetFileSize()
  Dim TheFile As String
  TheFile = "C:\Program Files (x86)\Microsoft Office\root\Office16\EXCEL.EXE"
  MsgBox FileLen(TheFile)
End Sub

Všimněte si, že tato rutina pevně zakóduje název souboru (tj. explicitně uvádí cestu). To není dobrý nápad. Soubor nemusí být na jednotce C nebo složka aplikace Excel může mít jiný název. Následující prohlášení ukazuje lepší přístup:

TheFile = Application.Path & "\EXCEL.EXE"

Cesta je vlastnost objektu Application. Jednoduše vrátí název složky, ve které je aplikace (tj. Excel) nainstalována (bez zpětného lomítka na konci).

Identifikace typu vybraného objektu

Následující postup používá funkci TypeName, která vrací typ výběru na listu (jako řetězec):

Sub ShowSelectionType()
  Ztlumit SelType jako řetězec
  SelType = název_typu (výběr)
  MsgBox SelType
End Sub

Výběrem může být rozsah, obrázek, obdélník, oblast mapy nebo jakýkoli jiný typ objektu, který lze vybrat.

Funkce TypeName je velmi univerzální. Tuto funkci můžete také použít k určení datového typu proměnné.

Funkce Excel VBA, které dělají více než jen vracejí hodnotu

Několik funkcí VBA jde nad rámec povinností. Spíše než jednoduše vrátit hodnotu mají tyto funkce některé užitečné vedlejší účinky.

Funkce VBA s užitečnými vedlejšími výhodami

Funkce	Co to dělá
MsgBox	Zobrazí praktické dialogové okno obsahující zprávu a tlačítka. Funkce vrací kód, který identifikuje, na které tlačítko uživatel klikne.
InputBox	Zobrazí jednoduché dialogové okno, které uživatele požádá o zadání. Funkce vrátí vše, co uživatel zadá do dialogového okna.
Shell	Spustí jiný program. Funkce vrátí ID úlohy (jedinečný identifikátor) jiného programu (nebo chybu, pokud funkce nemůže spustit jiný program).

Objevování funkcí Excel VBA

Jak zjistíte, které funkce VBA poskytuje? Dobrá otázka. Nejlepším zdrojem je systém Excel VBA . Dalším způsobem je napsat VBA , za kterým následuje tečka. Získáte seznam položek. Ty se zelenou ikonou jsou funkce. Pokud tato funkce nefunguje, zvolte Nástroje VBE → Možnosti, klepněte na kartu Editor a zaškrtněte položku Automaticky seznam členů.

Jak používat vestavěné funkce VBA aplikace Excel

Způsob, jak zobrazit seznam funkcí VBA.

Ve VBA je k dispozici více než 140 různých funkcí. Některé jsou tak specializované a nejasné, že je nikdy nebudete potřebovat. Jiné jsou však pro mnoho aplikací docela užitečné.

Nejužitečnější vestavěné funkce Excel VBA

Funkce	Co to dělá
Břišní svaly	Vrátí absolutní hodnotu čísla
Pole	Vrátí variantu obsahující pole
Vybrat	Vrátí hodnotu ze seznamu položek
Chr	Převede hodnotu ANSI na řetězec
CurDir	Vrátí aktuální cestu
datum	Vrátí aktuální systémové datum
DatumPřidat	Vrátí datum, ke kterému byl přidán zadaný časový interval — například jeden měsíc od určitého data
DateDiff	Vrátí celé číslo udávající počet zadaných časových intervalů mezi dvěma daty – například počet měsíců mezi dneškem a vašimi narozeninami
DatePart	Vrátí celé číslo obsahující zadanou část daného data – například den v roce
DateSerial	Převede datum na sériové číslo
DateValue	Převede řetězec na datum
Den	Vrátí den v měsíci z hodnoty data
Dir	Vrátí název souboru nebo adresáře, který odpovídá vzoru
Chybovat	Vrátí číslo chyby chybového stavu
Chyba	Vrátí chybovou zprávu, která odpovídá číslu chyby
Exp	Vrátí základnu přirozeného logaritmu (e) umocněnou na mocninu
FileLen	Vrátí počet bajtů v souboru
Opravit	Vrátí celočíselnou část čísla
Formát	Zobrazí výraz v určitém formátu
GetSetting	Vrátí hodnotu z registru Windows
Hodina	Vrátí hodinovou část času
InputBox	Zobrazí pole, které uživatele vyzve k zadání
InStr	Vrátí pozici řetězce v jiném řetězci (počítáno od začátku)
InStrRev	Vrátí polohu řetězce v jiném řetězci (počítáno od konce)
Int	Vrátí celočíselnou část čísla
IsArray	Vrátí hodnotu True, pokud je proměnná pole
IsDate	Vrátí hodnotu True, pokud je výrazem datum
Je prázdný	Vrátí hodnotu True, pokud proměnná nebyla inicializována
IsError	Vrátí hodnotu True, pokud je výraz chybovou hodnotou
Chybí	Vrátí hodnotu True, pokud nebyl proceduře předán volitelný argument
JeNull	Vrátí hodnotu True, pokud výraz neobsahuje žádná platná data
IsNumeric	Vrátí hodnotu True, pokud lze výraz vyhodnotit jako číslo
LBound	Vrátí nejmenší dolní index pro dimenzi pole
LCase	Vrátí řetězec převedený na malá písmena
Vlevo, odjet	Vrátí zadaný počet znaků zleva od řetězce
Len	Vrátí počet znaků v řetězci
Střední	Vrátí zadaný počet znaků z řetězce
Minuta	Vrátí minutovou část časové hodnoty
Měsíc	Vrátí měsíc z hodnoty data
MsgBox	Zobrazí okno se zprávou a (volitelně) vrátí hodnotu
Nyní	Vrátí aktuální systémové datum a čas
Nahradit	Nahradí podřetězec v řetězci jiným podřetězcem
RGB	Vrátí číselnou hodnotu RGB představující barvu
Že jo	Vrátí zadaný počet znaků zprava od řetězce
Rnd	Vrátí náhodné číslo mezi 0 a 1
Druhý	Vrátí sekundovou část časové hodnoty
Shell	Spustí spustitelný program
Prostor	Vrátí řetězec se zadaným počtem mezer
Rozdělit	Rozdělí řetězec na části pomocí oddělovacího znaku
Sqr	Vrátí druhou odmocninu čísla
Tětiva	Vrátí opakující se znak nebo řetězec
Čas	Vrátí aktuální systémový čas
Časovač	Vrátí počet sekund od půlnoci
TimeSerial	Vrátí čas pro zadanou hodinu, minutu a sekundu
TimeValue	Převede řetězec na časové pořadové číslo
Oříznout	Vrátí řetězec bez úvodních nebo koncových mezer
TypeName	Vrátí řetězec, který popisuje datový typ proměnné
UBound	Vrátí největší dostupný dolní index pro dimenzi pole
UCase	Převede řetězec na velká písmena
Val	Vrátí čísla obsažená v řetězci
Všední den	Vrátí číslo představující den v týdnu
Rok	Vrátí rok z hodnoty data