VBA INT - Jak korzystać z funkcji Integer w VBA Excel?

Spisie treści

Funkcja Excel VBA INT (liczba całkowita)

Funkcja Excel VBA INT (liczba całkowita)

VBA INT to wbudowana funkcja, która służy do podania tylko części całkowitej liczby podanej nam jako dane wejściowe, ta funkcja jest używana w tych danych, których część dziesiętna nie wpływa tak bardzo na dane, aby ułatwić obliczenia lub analizę, której używamy Funkcja INT, aby uzyskać tylko wartości całkowite.

Ta funkcja jest dostępna w arkuszu, a także w języku VBA. Funkcja Integer zaokrągla określoną liczbę w dół do najbliższej liczby całkowitej.

Funkcji VBA Int można używać w procedurze podrzędnej i procedurze funkcji. Przyjrzyjmy się teraz składni funkcji INT w języku VBA.

Ma tylko jeden argument do podania, tj . Liczbę.

Liczba to liczba, którą próbujemy przekonwertować na liczbę INTEGER. Po podaniu liczby funkcja INT zaokrągla ją w dół do najbliższej liczby całkowitej.

Na przykład, jeśli podana liczba to 68,54, funkcja Excel VBA Int zaokrągla w dół do 68, czyli w kierunku zera. Jeśli podana liczba to -68,54, funkcja INT zaokrągla liczbę do 69, czyli od zera.

Jak korzystać z funkcji VBA INT?

Przykład 1

Spójrzmy teraz na prosty przykład funkcji „INT” w języku VBA. Wykonajmy zadanie zaokrąglenia liczby 84,55 w dół do najbliższej liczby całkowitej.

Krok 1: Uruchom podprocedurę.

Krok 2: Zadeklaruj zmienną jako liczbę całkowitą .

Kod:

Sub INT_Example1 () Dim K As Integer End Sub

Krok 3: Teraz przypisz formułę do zmiennej „ k ”, stosując funkcję INT.

Kod:

Sub INT_Example1 () Dim K As Integer K = Int (End Sub

Krok 4: Podaj liczbę jako 84,55 .

Uwaga: ponieważ jest to liczba liczbowa, nie musimy podawać cudzysłowów.

Kod:

Sub INT_Example1 () Dim K As Integer K = Int (84.55) End Sub

Krok 5: Teraz przekazanie wyniku zmiennej w oknie komunikatu VBA.

Kod:

Sub INT_Example1 () Dim K As Integer K = Int (84.55) MsgBox K End Sub

Ok, uruchommy kod i zobaczmy, co się stanie.

Wynik to 84 i jest zaokrąglany w dół do najbliższej liczby całkowitej.

Przykład nr 2

Teraz, mając tę samą liczbę ze znakiem minus, spróbujemy zamienić na najbliższą wartość całkowitą. Poniżej znajduje się kod ze znakiem minus.

Kod:

Sub INT_Example2 () Dim k As Integer k = Int (-84,55) 'Liczba ujemna z funkcją INT MsgBox k End Sub

Kiedy uruchomiłem ten kod, zaokrąglił liczbę do -85 .

Przykład 3 - wyodrębnij część daty z daty i godziny

Kilka razy w mojej karierze spotkałem się ze scenariuszem wyodrębniania daty i czasu oddzielnie od kombinacji daty i czasu.

Na przykład spójrz na poniższe dane dotyczące daty i czasu.

Jak wyodrębnić część daty i godzinę?

Najpierw musimy wyodrębnić część Date. W tym celu zastosujmy funkcję INT. Poniższy kod wyodrębni część DATE z powyższych danych.

Kod:

Sub INT_Example2 () Dim k As Integer For k = 2 To 12 Cells (k, 2) .Value = Int (Cells (k, 1) .Value) 'Spowoduje to wyodrębnienie daty do drugiej kolumny Cells (k, 3). Value = Cells (k, 1) .Value - Cells (k, 2) .Value 'Spowoduje to wyodrębnienie czasu do trzeciej kolumny Next k End Sub

Uruchom ten kod. Możesz otrzymać wynik podobny do poniższego (jeśli formatowanie nie zostanie zastosowane).