Funkcja Int zwraca wartość tego samego typu co przekazany argument. Wartość funkcji odpowiada części całkowitej argumentu. A tak po prostu za pomocą funkcji Int możemy pobrać część całkowitą liczby.
Funkcja Int ma następujące argumenty.
argument obowiązkowy liczba może być liczbą typu Double lub dowolnym poprawnym wyrażeniem numerycznym.
Dim MojaLiczba
MojaLiczba = Int(99.8)
' w tym przykładzie zwracana jest liczba całkowita 99.
Dim MojaLiczba
MojaLiczba = Int(-99.8)
' w tym przykładzie zwracana jest liczba całkowita -100.
Dim MojaLiczba
MojaLiczba = Int(-99.2)
' w tym przykładzie zwracana jest liczba całkowita -100.
Dim MojaLiczba
MojaLiczba = Int(Range("B2").Value)
Range("D2").Value = MojaLiczba
' w tym przykładzie pobierana jest liczba z komórki B2 arkusza Excela, w komórce D2 wyświetlana jest część całkowita liczby pobranej z komórki A2.
Dim MojaLiczba
MojaLiczba = Range("B2").Value
If IsNumeric(MojaLiczba) = True Then
MojaLiczba = Int(MojaLiczba)
Range("D2").Value = MojaLiczba
End If
' opis analogicznie jak wyżej z tym że wcześniej sprawdzamy za pomocą funkcji IsNumeric czy wartość wprowadzona do komórki B2 jest liczbą.
Dim MojaLiczba
MojaLiczba = Range("B2").Value
MojaLiczba = Int((MojaLiczba + .05) * 10) / 10
Range("D2").Value = MojaLiczba
' w tym przykładzie pobierana jest liczba z komórki B2 arkusza Excela, w komórce D2 wyświetlana jest część liczby zaokrąglona do jednego miejsca po przecinku pobranej z komórki A2.
Dim MojaLiczba
MojaLiczba = Int((6 * Rnd) + 1)
Range("D2").Value = MojaLiczba
' w tym przykładzie wykorzystując funkcje Rnd i Int generujemy liczbę losową całkowitą z przedziału od 1 do 6. Liczba ta wyświetlana jest w komórce D2.
Opisane przykłady możemy przetestować w następujący sposób:
Z menu Widok wybieramy Paski narzędzi a następnie Przybornik formantów.
Z Przybornika formantów wybieramy ikonę Przycisk polecenia a następnie miejsce w arkuszu gdzie chcemy go umieścić. Ikona Tryb projektowania w przyborniku powinna się uaktywnić.
Kliknij dwa razy na wstawiony Przycisk. W procedurze zdarzenia Click naszej Przycisku polecenia wpisz kod z wybranego przykładu.
Przykładowy kod może wyglądać.
Private Sub CommandButton1_Click()
Dim MojaLiczba
MojaLiczba = Int(Range("B2").Value)
Range("D2").Value = MojaLiczba ' tą linie kodu możesz dodać do przykładów w których jej nie ma.
End Sub
Pozamykaj wszystkie okienka, zapisz i zamknij arkusz. Po ponownym otwarciu (z opcją włącz makra) przetestuj działanie przykładu klikając na Przycisk polecenia (oczywiście wcześniej jeżeli wymaga tego przykład wpisz odpowiednią wartość do komórki B2).
|