Jedním z nejběžnějších úkolů při práci s čísly v aplikaci VBA Excel je získání celé části čísla. Program VBA (Visual Basic for Applications) umožňuje snadné řešení tohoto problému pomocí několika vestavěných funkcí.
Funkce INT vrací celou část čísla a zahodí desetinnou čárku. Například INT (3.14) vrátí 3. Tato funkce zaokrouhluje dolů na nejbližší celé číslo.
Kromě toho VBA nabízí další funkci — FIX, která také vrací celou část čísla, ale zaokrouhluje na nulu. Například FIX(3.14) vrátí 3 a FIX (-3.14) vrátí -3.
Pokud chcete získat pouze desetinnou část čísla, můžete použít funkci MOD, která vrací zbytek z dělení dvou čísel:
zůstatek = Číslo1 MOD číslo2
V tomto článku jsme se zabývali základními funkcemi VBA Excel pro práci s celou částí čísla. Pomohou vám vyřešit mnoho problémů souvisejících s čísly a jejich analýzou v Excelu. Úspěch v programování!
Co je VBA Excel
Excel podporuje VBA, takže uživatel může zaznamenat makro, které se provede stisknutím tlačítka nebo za určitých podmínek. Pomocí VBA je možné vytvářet vlastní funkce, postupy a třídy a interagovat s prvky rozhraní aplikace Excel, jako jsou buňky, rozsahy, grafy, grafy a další objekty.
Díky VBA může uživatel automatizovat duplicitní úkoly, zjednodušit práci s daty, vytvářet vlastní zprávy a analytické nástroje a provádět složité výpočty a manipulace s daty.
VBA Excel je výkonný nástroj pro vývoj aplikací, přidávání nových funkcí a rozšiřování možností aplikace Excel. Poskytuje flexibilitu a přizpůsobitelnost programu a umožňuje uživateli vytvářet jedinečná a přizpůsobitelná řešení pro své potřeby.
Základní pojmy
Celá část čísla - je to část čísla, která je před desetinnou čárkou. Například v čísle 3.14 se celá část rovná 3.
Funkce zaokrouhlování - jedná se o vestavěné funkce v Excelu, které umožňují zaokrouhlit číslo na nejbližší celé číslo nebo na určitý počet desetinných míst. Některé z nejběžnějších funkcí zaokrouhlování v Excelu zahrnují ROUND, ROUNDUP a ROUNDDOWN.
Celá funkce - je to funkce VBA, která umožňuje zaokrouhlit číslo na nejbližší menší celé číslo. Například funkce INT (3.14) vrátí hodnotu 3.
Odhození desetinné části čísla - je to proces zaokrouhlení čísla na nejbližší celé číslo, aniž bychom vzali v úvahu desetinnou část. Například, když hodíme desetinnou část čísla 3.14, dostaneme hodnotu 3.
Pro práci s celou částí čísla se v aplikaci VBA Excel často používá funkce INT. Umožňuje získat pouze celou část čísla a odhodit desetinnou čárku. Pokud chcete zaokrouhlit číslo na nejbližší celé číslo, musíte použít funkci ROUND. Tyto funkce jsou velmi užitečné při provádění různých výpočtů a manipulace s čísly v Excelu VBA.
Příklad kódu:
| Kód | Popis |
|---|---|
| Dim num As Double | Oznámení proměnné typu Double |
| num = 3.14 | Přiřazení hodnoty proměnné |
| Dim intPart As Integer | Oznámení proměnné typu Integer pro uložení celé části čísla |
| intPart = Int(num) | Přiřazení proměnné intPart celé části čísla |
V uvedeném příkladu kódu obsahuje proměnná num číslo 3.14. Funkce INT (num) přiřazuje proměnné intPart pouze celou část tohoto čísla, tj. hodnotu 3.
Celá část čísla
Funkce INT vrací celou část čísla. Odhodí desetinnou část čísla a vrátí pouze celou část.
Dim number As DoubleDim integerPart As Longnumber = 3.14integerPart = Int(number) ' integerPart будет равно 3number = 5.75integerPart = Int(number) ' integerPart будет равно 5Operátor \ lze také použít k získání celé části čísla. Vrátí celou část dělení dvou čísel a odhodí desetinnou část.
Dim number As DoubleDim integerPart As Longnumber = 3.14integerPart = number \ 1 ' integerPart будет равно 3number = 5.75integerPart = number \ 1 ' integerPart будет равно 5Funkci CInt lze použít k zaokrouhlení čísla na nejbližší celé číslo.
Dim number As DoubleDim integerPart As Integernumber = 3.14integerPart = CInt(number) ' integerPart будет равно 3number = 5.75integerPart = CInt(number) ' integerPart будет равно 6Celou část čísla lze použít k různým účelům, například k určení pořadí čísla nebo k analýze dat. Znalost různých způsobů, jak zvýraznit celou část čísla VBA Excel, vám umožní efektivně pracovat s číselnými daty.
Desetinná část čísla
V programovacím jazyce VBA Excel můžete získat desetinnou část čísla pomocí funkce Round .
Funkce Round umožňuje zaokrouhlit číslo na daný počet desetinných míst. Pokud neuvedete počet znaků, funkce Zaokrouhlí číslo na celou hodnotu.
Příklad použití funkce Round:
Dim number As DoubleDim decimalPart As Doublenumber = 10.2345decimalPart = Round(number - Int(number), 2) 'две знака после запятойMsgBox "Десятичная часть числа: " & decimalPartV tomto příkladu proměnná number obsahuje číslo 10.2345. Abychom získali desetinnou část čísla, odečteme od ní celou část ( Int(number) ) a výsledek zaokrouhlíme na dvě desetinná místa pomocí funkce Round .
Funkce Round může být užitečná, když potřebujete pracovat pouze s desetinnou částí čísla nebo provádět jakékoli akce pouze pomocí této části čísla.
Práce s celou částí čísla
V programovacím jazyce VBA pro práci s celou částí čísla existuje několik funkcí. Zvažte některé z nich:
Int() - funkce umožňuje získat celou část čísla. Funguje to takto: pokud je číslo kladné, pak zahodí zlomkovou část čísla (zaokrouhlením dolů), a pokud je číslo záporné, zaokrouhlí se směrem k číslu menšímu. Například:
Dim x As Doublex = 3.75Dim integerPart As DoubleintegerPart = Int(x)' Результат: integerPart = 3Fix() - funkce funguje podobně jako funkce Int(), ale na rozdíl od ní se vždy zaokrouhluje směrem k nule. Například:
Dim x As Doublex = -3.75Dim integerPart As DoubleintegerPart = Fix(x)' Результат: integerPart = -3Pokud potřebujete odhodit zlomkovou část čísla a získat pouze celou hodnotu bez zaokrouhlení, pak existuje funkce FixRound(). Funguje podobně jako funkce Fix (), ale zaokrouhlování probíhá vždy na 0. Například:
Dim x As Doublex = -3.75Dim integerPart As DoubleintegerPart = FixRound(x)' Результат: integerPart = -3Existují také funkce FixDown() a FixUp(), které zaokrouhlují číslo dolů a nahoru bez ohledu na značku. Například:
Dim x As Doublex = 3.75Dim integerPart As DoubleintegerPart = FixDown(x)' Результат: integerPart = 3integerPart = FixUp(x)' Результат: integerPart = 4Tím, že poskytnete informace o celé části čísla různými způsoby, můžete si vybrat nejvhodnější pro konkrétní úkol.
Zaokrouhlení čísla
V programovacím jazyce VBA lze k zaokrouhlení čísla použít funkci Round . Přijímá dva argumenty: zaokrouhlené číslo a počet desetinných míst. Pokud není uveden počet desetinných míst, zaokrouhlení bude probíhat na nejbližší celé číslo.
Například následující kód Zaokrouhlí číslo 3.75 na nejbližší celé číslo:
Dim num As Doublenum = 3.75num = Round(num)V důsledku toho bude proměnná num obsahovat hodnotu 4.
Pokud je třeba zaokrouhlit číslo na určitý počet desetinných míst, musí být uveden druhý argument funkce Round. Například následující kód Zaokrouhlí číslo 3.14159265 na 2 desetinná místa:
Dim num As Doublenum = 3.14159265num = Round(num, 2)V důsledku toho bude proměnná num obsahovat hodnotu 3.14.
Pokud chcete zaokrouhlit číslo na daný řád (například na stovky nebo tisíce), můžete použít funkci Round s negativním počtem desetinných míst. Například následující kód Zaokrouhlí číslo 1234.5678 na nejbližší stovku:
Dim num As Doublenum = 1234.5678num = Round(num, -2)V důsledku toho bude proměnná num obsahovat hodnotu 1200.
VBA má také další funkce zaokrouhlování čísel , jako jsou Int, Fix a Math.Round, které lze použít v závislosti na konkrétním úkolu a požadavcích.