VBA INT

Funkcja Excel VBA INT (liczba całkowita)

VBA INT to wbudowana funkcja, która służy do podawania nam tylko całkowitej części liczby podanej nam na wejściu, 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. Podanie liczby INT zaokrągla ją 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?

Możesz pobrać ten szablon VBA INT Excel tutaj - szablon VBA INT Excel

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ć podwójnych 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.

Tak więc 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 przeliczyć 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 uruchamiam ten kod, zaokrągla liczbę do -85 .

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

Kilka razy w swojej 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ęść DATA 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, aby uzyskać wynik podobny do poniższego (jeśli formatowanie nie zostanie zastosowane).

W kolumnie daty zastosuj formatowanie „DD-MMM-RRRR”, a dla kolumny czasu zastosuj format daty w programie Excel jako „GG: MM: SS AM / PM”