Výsledek funkce do proměnné - VBA Excel

Úvodem

Obdržel jsem dotaz: "Jak zapsat výsledek běžné funkce do proměnné, t.j. aniž bych ji napřed zapsal do buňky a pak četl z buňky do proměnné. "

Jak elegantně tento výpočet provést přímo na pozadí VBA a do příslušné buňky vložit jen výsledek? Toto se dozvíte v tomto článku.

Druhá možnost je provést výpočet vložení funkce (vzorec) do příslušné buňky, jak jsem popsal v článku Zapiš vzorec (funkci) do buňky a poté přečíst výslednou hodnotu jak je sepsáno v článku: Přečti údaj z buňky - Excel VBA.

Jak na to?

SUBTOTAL

Jak na výpočet funkce SUBTOTAL.

MojeHodnota = Application.WorksheetFunction.Subtotal(9, Range("G:G"))

SUMA

Jak na výpočet funkce SUMA.

Posledni = Cells(Rows.Count, "A").End(xlUp).Row MojeSuma = Application.WorksheetFunction.Sum(Range("A1:A" & Posledni)) Dim vysledek As Variant vysledek = Application.WorksheetFunction.VLookup(12,Range("A1:E1000"),3,FALSE)

Kontrola chyb

Jak kontrolovat případné chybné výpočty funkce:

(1)

Dim vysledek As Variant On Error Resume Next Err.Clear vysledek = Application.WorksheetFunction.VLookup(12,Range("A1:E1000"),3,FALSE) If Err.Number = 0 Then ' Hodnota je OK, bude pokračovat Else ' Chybová hodnota místo pro další kód End If

(2)

Dim vysledek As Variant vysledek = Application.WorksheetFunction.VLookup(12,Range("A1:E1000"),3,FALSE) If IsError(Res) = False Then ' Hodnota je OK, bude pokračovat Else ' Chybová hodnota místo pro další kód End If

Výpis hodnoty

vysledek = Application.WorksheetFunction.VLookup(12,Range("A1:E1000"),3,FALSE) MsgBox (vysledek)

nebo

vysledek = Application.WorksheetFunction.VLookup(12,Range("A1:E1000"),3,FALSE) Debug.Print vysledek

Závěrem

Využíváte WorksheetFunction? Máte nějaké zajímavé kódy? Můžete doplnit do komentářů.

Článek byl aktualizován: 19.09.2020 11:06

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře