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 ExcelPrzykł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”