W tym samouczku zademonstrujemy, jak używać funkcji CInt VBA do konwersji wyrażenia na typ danych całkowitych.
Funkcja Cint
VBA CInt Konwertuj wyrażenie na liczbę całkowitą
Funkcja VBA CInt może służyć do konwertowania wyrażeń na typ danych całkowitych w kodzie VBA. Otrzymana liczba jest zaokrąglana do liczby całkowitej.
| 123456 | Sub CIntPrzykład_1()MsgBox CInt(12.34) 'Wynik: 12MsgBox CInt(12.345) 'Wynik to: 12MsgBox CInt(-124) 'Wynik to: -124MsgBox CInt(-12.34) 'Wynik to: -12Napis końcowy |
VBA Cint Zaokrąglanie
Funkcja VBA CInt zaokrągli część dziesiętną typu liczbowego lub wyrażenia podobnego do liczby. Jednak nie we wszystkich przypadkach zaokrągla się poprawnie. Gdy część dziesiętna wynosi 0,5, funkcja VBA CInt zwraca najbliższą parzystą liczbę całkowitą.
| 12345678910111213141516 | Sub CIntPrzykład_2()MsgBox CInt(0.34)„Wynik to: 0”MsgBox CInt(0.99)„Wynik to: 1”MsgBox CInt(-124.95)'Wynik to: -125MsgBox CInt(1.5)„Wynik to: 2”MsgBox CInt(2.5)„Wynik to: 2”Napis końcowy |
Możemy dodać stosunkowo małą liczbę dziesiętną do naszej oczekiwanej wartości dziesiętnej, aby zmienić zachowanie funkcji VBA Cint na oczekiwane.
| 1234567891011 | Sub CIntPrzykład_3()MsgBox CInt(2.5)„Wynik to: 2”MsgBox CInt(2,5 + 0,001)„Wynik to: 3”MsgBox CInt(14.5)„Wynik to: 14”MsgBox CInt (14,5 + 0,001)„Wynik to: 15”Napis końcowy |
Programowanie VBA | Generator kodu działa dla Ciebie!
VBA CInt Konwersja ciągów na liczby całkowite
Funkcja VBA CInt może służyć do konwertowania ciągów na liczby całkowite, jeśli znaki w ciągu mają znaczenie liczbowe.
| 123456789101112131415161718 | Sub CIntPrzykład_4()Dim StrEx jako ciągStrEx = "112"MsgBox CInt(StrEx)„Wynik to: 112”StrEx = "112.3"MsgBox CInt(StrEx)'Wynik to: 112 --> 112,3 jest zaokrągloneStrEx = "11,2"MsgBox CInt(StrEx)'Wynik to: 112 --> , jest ignorowanyStrEx = "112 USD"MsgBox CInt(StrEx)'Wynik to: 112 --> $ jest ignorowaneNapis końcowy |
Błąd wykonania VBA CInt 13 Niezgodność typu
Użycie funkcji VBA Cint z ciągami zawierającymi znaki nieliczbowe lub znaki, które nie mają znaczenia w kontekście liczbowym, spowoduje błąd wykonania „13”: Niezgodność typu.
| 1234567 | Sub CIntPrzykład_5()'Poniższy kod spowoduje wyświetlenie komunikatu BŁĄD'CInt nie obsługuje znaków nieliczbowychDim StrEx jako ciągStrEx = "Ab13"MsgBox CInt(StrEx)Napis końcowy |
Błąd wykonania VBA CInt 6 Przepełnienie
Użycie funkcji VBA Cint z ciągami, których wynikiem jest wartość mniejsza lub większa niż oczekiwana liczba całkowita, spowoduje błąd wykonania „6”: Przepełnienie. Typ danych Integer w programie Excel ma oczekiwaną wartość od -32768 do 32767.
| 1234567 | Sub CIntExample_6()'Poniższy kod spowoduje wyświetlenie komunikatu BŁĄD'CInt nie obsługuje znaków nieliczbowychDim StrEx jako ciągSTREX = "1234567"MsgBox CInt(StrEx)Napis końcowy |
Masz dość wyszukiwania przykładów kodu VBA? Wypróbuj Automakro!
Ustawienia regionalne VBA CInt
Funkcja VBA CInt ma inne zachowanie, konwertując ciągi znaków z przecinkiem lub kropką. Używa ustawień regionalnych systemu operacyjnego dla separatora dziesiętnego i separatora cyfr.
| 12345678910111213141516 | Sub CIntPrzykład_7()Dim StrEx jako ciągWysiłek = "1,9"MsgBox CInt(StrEx)„Jeżeli ustawienia regionalne mają , jako separator grupowania to”„Wynik to: 19”„Jeżeli ustawienia regionalne mają jako separator dziesiętny, to”Wynik to: 2 (2, ponieważ 1.9 zostaje zaokrąglone)StrEx = "1,9"MsgBox CInt(StrEx)„Jeśli ustawienia regionalne mają . w takim razie jako separator grupujący„Wynik to: 19”„Jeśli ustawienia regionalne mają . jako separator dziesiętny wtedyWynik to: 2 (2, ponieważ 1.9 zostaje zaokrąglone)Napis końcowy |
Programowanie VBA | Generator kodu działa dla Ciebie!
VBA CInt Konwersja wartości logicznych na liczby całkowite
Funkcja VBA Cint może konwertować zmienne logiczne na liczby całkowite. Jeśli oceniane wyrażenie jest prawdziwe, wynikowa liczba całkowita wynosi -1, a jeśli oceniane wyrażenie jest fałszywe, wynikowa liczba całkowita wynosi 0.
| 12345678910 | Sub CIntExample_8()Dim BoolEx jako BooleanBoolEx = PrawdaMsgBox CInt(BoolEx) 'Wynik to: -1MsgBox CInt(2 = 2) 'Wynik: -1BoolEx = FałszMsgBox CInt(BoolEx) 'Wynik to: 0MsgBox CInt(1 = 2) 'Wynik to: 0Napis końcowy |
VBA CInt Konwersja dat na liczby całkowite
Funkcja VBA Cint może konwertować zmienną daty na liczbę całkowitą. Zwracana wartość to zaokrąglona liczba wewnętrzna używana przez program Excel do przechowywania dat. Jeśli ta liczba wykracza poza oczekiwane limity liczb całkowitych dla VBA, otrzymujemy błąd wykonania „6”: Przepełnienie.
| 123456789 | Sub CIntExample_9()Dim DateEx As DateDataEx = #2/3/1940#MsgBox CInt(DateEx)„Wynik to: 14644”DataEx = #8/7/1964#MsgBox CInt(DateEx)„Wynik to: 23596”Napis końcowy |
