Přejít na hlavní obsah

Konec funkce v Excelu VBA: příklady použití a syntaxe

V VBA pro Excel se funkce používají k provádění určitých operací a návratu výsledku. V některých případech je však nutné provést změny v průběhu výkonu funkce nebo z ní předčasně odejít. V takových případech lze použít konstrukci End Function.

Příkaz End Function umožňuje ukončit funkci a vrátit výsledek okamžitě, ať už je konec kódu funkce dosažen nebo ne. To může být užitečné, například když je třeba zkontrolovat nějaký stav a v závislosti na jeho provedení zastavit výkon funkce.




Function CalculateAverage(number1 As Double, number2 As Double) As Double


If number1

MsgBox " Chyba! Nekorektní hodnoty."


End Function


End If


CalculateAverage = (number1 + number2) / 2


End Function

V tomto příkladu funkce CalculateAverage ověřuje, že hodnoty number1 a number2 jsou větší než 0. Pokud tato podmínka není splněna, zobrazí se chybová zpráva a funkce ukončí provádění pomocí příkazu End Function. V opačném případě funkce provede výpočet průměrné hodnoty a vrátí výsledek.

Použití funkce End v Excelu VBA

V programovacím jazyce VBA (Visual Basic for Applications) pro Excel existuje funkce End, která se používá k určení posledního vyplněného řádku nebo sloupce v daném rozsahu buněk. Funkce End umožňuje programátorovi efektivně pracovat s daty a provádět různé operace na základě nejnovějších hodnot.

Syntaxe funkce End je následující:

Parametr Position určuje směr hledání Poslední vyplněné buňky:

  • xldown-vyhledávání ve sloupci.
  • xltoleft-vyhledávání vlevo na řádku.
  • xlToRight-vyhledávání vpravo na řádku.
  • xlup-vyhledávání nahoru ve sloupci.

Příklad použití funkce End k nalezení posledního vyplněného řádku ve sloupci A:

lastRow = Cells(Rows.Count, "A").End(xlUp).Row

V tomto příkladu bude lastRow obsahovat číslo posledního vyplněného řádku ve sloupci a.

Funkci End lze také použít k nalezení posledního vyplněného sloupce v řádku. Například pro nalezení posledního vyplněného sloupce v řádku 1:

lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

LastColumn tak bude obsahovat číslo posledního vyplněného sloupce v řádku 1.

Použití funkce End v Excelu VBA umožňuje programátorům efektivně najít nejnovější hodnoty v rozsahech buněk a provádět různé operace na základě těchto hodnot.

Syntaxe a funkce end

Funkce End v Excelu VBA se používá k určení konce řádku nebo konce sloupce v daném datovém rozsahu. Může být užitečná při zpracování velkého množství informací nebo při automatizaci akcí v tabulkách.

Syntaxe funkce End je následující:

Výraz.End(Direction)
VýrazPovinný parametr. Představuje rozsah, ve kterém je třeba najít konec.
DirectionPovinný parametr. Určuje směr hledání konce řádku nebo sloupce. Může mít jednu z následujících hodnot: xlDown, xlToRight.

Hodnota xlDown označuje hledání konce řádku dolů a xltoright vyhledává konec sloupce doprava.

Příklady použití funkce End:

PříkladPopis
lastRow = Range("A1").End(xlDown).RowUrčení čísla posledního vyplněného řádku ve sloupci a.
lastColumn = Range("A1").End(xlToRight).ColumnUrčení čísla posledního vyplněného sloupce v řádku 1.

Funkce funkce end:

  • Funkce End bude hledat konec směrem k zadanému směru, dokud nepotká první prázdnou buňku.
  • Pokud v rozsahu nejsou vyplněné buňky, funkce End Vrátí první buňku v rozsahu.
  • Chcete-li použít funkci End, musíte aktivovat pracovní sešit, který obsahuje rozsah dat.

Příklady použití funkce End v Excelu VBA

Funkce End v Excelu VBA se používá k určení posledního vyplněného řádku nebo sloupce v daném datovém rozsahu. To může být užitečné, když chcete provádět operace pouze na vyplněných buňkách nebo pochopit, kolik buněk je naplněno v rozsahu.

Příklad 1: Určení posledního použitého řádku ve sloupci

Sub EndExample1()Dim LastRow As LongLastRow = Cells(Rows.Count, "A").End(xlUp).RowMsgBox "Последняя заполненная строка в столбце A: " & LastRowEnd Sub

V tomto příkladu se funkce End používá k určení posledního vyplněného řádku ve sloupci "a". Hodnota LastRow je uložena do proměnné typu Long a zobrazena na obrazovce pomocí MsgBox.

Příklad 2: Určení posledního použitého sloupce v řádku

Sub EndExample2()Dim LastColumn As LongLastColumn = Cells(1, Columns.Count).End(xlToLeft).ColumnMsgBox "Последняя заполненная колонка в строке 1: " & LastColumnEnd Sub

V tomto příkladu se funkce End používá k určení posledního vyplněného sloupce v řádku "1". Hodnota LastColumn je uložena do proměnné typu Long a zobrazena na obrazovce pomocí MsgBox.

Příklad 3: Určení rozsahu dat na základě poslední vyplněné buňky

Sub EndExample3()Dim LastRow As LongDim LastColumn As LongDim DataRange As RangeLastRow = Cells(Rows.Count, "A").End(xlUp).RowLastColumn = Cells(1, Columns.Count).End(xlToLeft).ColumnSet DataRange = Range(Cells(1, 1), Cells(LastRow, LastColumn))MsgBox "Диапазон данных: " & DataRange.AddressEnd Sub

V tomto příkladu se funkce End používají k určení posledního vyplněného řádku a sloupce a poté se vytvoří datový rozsah založený na těchto hodnotách. Hodnota DataRange je uložena do proměnné typu Range a zobrazena na obrazovce pomocí MsgBox.

Tyto příklady ukazují, jak lze funkci End použít k určení posledního vyplněného řádku a sloupce v rozsahu dat. Tyto příklady můžete přizpůsobit vašim potřebám a použít funkci End ve svých vlastních makrech aplikace Excel VBA.

Čtěte také