Kredit obrázku: mavoimages/iStock/Getty Images
Naučte se používat funkci "Roundup" aplikace Excel z jejího vestavěného programovacího jazyka VBA nebo Visual Basic for Applications, což vám pomůže spustit jakoukoli funkci aplikace Excel z jazyka VBA. Tato dovednost je užitečná, protože Excel má mnoho funkcí, které VBA nemá a které možná budete muset použít z programu VBA. Všimněte si, že funkce VBA, která vám umožňuje klepnout na funkci „Roundup“, vás neupozorní na nesprávnou syntaxi nebo argument, jako by tomu bylo při použití standardního rozhraní listu.
Účel
Funkce "Roundup" aplikace Excel zaokrouhlí číslo nahoru na počet číslic, který určíte. Například spuštěním "Roundup (2.2, 0)" Excel sdělíte, že chcete zaokrouhlit číslo 2,2 nahoru na další celé číslo. "0" ve druhém argumentu říká Excelu, že za desetinnou čárkou nechcete žádné číslice, což je ekvivalentní tvrzení, že chcete celočíselnou odpověď.
Video dne
VBA kruhová funkce
VBA nemá zabudovanou funkci „Roundup“. Nejbližší funkcí, kterou má, je funkce „Zaokrouhlit“, která zaokrouhluje nahoru nebo dolů v závislosti na tom, zda je koncová číslice v zaokrouhlovaném čísle větší nebo menší než 5. Například zadáním "Round (2.2, 0)" v okně VBA "Immediate" se zobrazí 2 namísto 3, na které by funkce "Roundup" aplikace Excel zaokrouhlovala nahoru.
Vlastnost "Formule".
Ačkoli VBA nemá vlastní funkci "Roundup", může používat funkci "Roundup" aplikace Excel. Chcete-li dát VBA pokyn, aby to udělal, nastavte vlastnost "Formula" virtuálního objektu "Range" na funkci "Roundup". Následující příklad ukazuje, jak to provést. Otevřete vývojové prostředí VBA současným stisknutím kláves "Alt" a "F11" v aplikaci Excel. Klikněte myší do okna "Okamžité" a zadejte následující příkaz: "Rozsah ("A1").Formula = "=Roundup (2.2, 0)". Vraťte se do Excelu pomocí právě popsaného stisknutí klávesy "Alt-F11". V buňce A1 uvidíte výsledek „3“, což znamená, že váš příkaz úspěšně použil funkci „Roundup“ aplikace Excel.
Interaktivní příklad
Můžete vytvořit interaktivní program VBA, který od uživatele přijímá argumenty pro funkci "Roundup" a zobrazuje výsledek této funkce. Po otevření vývojového prostředí VBA vložte do okna následující program:
Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Zadejte číslo, které chcete zaokrouhlit")) a2 = CInt (InputBox("Zadejte počet desetinných míst, na které chcete zaokrouhlit číslo, které jste právě zadali.")) s = "=Roundup(" & a1 & "," & a2 & ")" Range("A1").Formula = s Rozsah("A1") .Vypočítat MsgBox (Rozsah("A1").Hodnota) Konec Sub
Spusťte program kliknutím na jeden z jeho příkazů a poté kliknutím na příkaz "Spustit" v nabídce "Spustit". Když vás Excel vyzve k zadání argumentů funkce, zadejte je a stiskněte "Enter". Váš program zobrazí výsledek funkce "Roundup" pro zadané argumenty.
