Vba excel cint что это

This tutorial will demonstrate how to use the CInt VBA function to convert an expression to the integer data type.

CInt Function

VBA CInt Convert Expression to Integer

The VBA CInt function can be used to convert expressions to integer data type inside VBA code. The resulting number is rounded to become an integer.

Sub CIntExample_1()
MsgBox CInt(12.34)  'Result is: 12
MsgBox CInt(12.345) 'Result is: 12
MsgBox CInt(-124)   'Result is: -124
MsgBox CInt(-12.34) 'Result is: -12
End Sub

VBA CInt Rounding

The VBA CInt function will round the decimal part of a number type or a number like expression. However, it does not round correctly in all cases. When the decimal part is 0.5 then VBA CInt function returns the closest even integer.

Sub CIntExample_2()
MsgBox CInt(0.34)
'Result is:    0

MsgBox CInt(0.99)
'Result is:    1

MsgBox CInt(-124.95)
'Result is:    -125

MsgBox CInt(1.5)
'Result is:    2

MsgBox CInt(2.5)
'Result is:    2
End Sub

We can add a decimal number relatively small to our expected decimal value to change the behavior of VBA Cint function to the expected.

Sub CIntExample_3()
MsgBox CInt(2.5)
'Result is:    2
MsgBox CInt(2.5 + 0.001)
'Result is:    3

MsgBox CInt(14.5)
'Result is:   14
MsgBox CInt(14.5 + 0.001)
'Result is:   15
End Sub

VBA CInt Converting Strings to Integers

The VBA CInt function can be used to convert strings to integers if the characters in the string have a meaning as numbers.

Sub CIntExample_4()
Dim StrEx As String
StrEx = "112"
MsgBox CInt(StrEx)
'Result is: 112

StrEx = "112.3"
MsgBox CInt(StrEx)
'Result is: 112   --> 112.3 is rounded

StrEx = "11,2"
MsgBox CInt(StrEx)
'Result is: 112   -->  , is ignored

StrEx = "$112"
MsgBox CInt(StrEx)
'Result is: 112   -->  $ is ignored
End Sub

VBA CInt Run-Time Error 13 Type Mismatch

Using VBA Cint function with strings that contain non-numerical characters or characters that don’t have meaning in numerical context will result in a Run-Time error ’13’: Type mismatch.

Sub CIntExample_5()
'The code below will result in an ERROR message
'CInt can’t handle non numerical characters
Dim StrEx As String
StrEx = "Ab13"
MsgBox CInt(StrEx)
End Sub

VBA CInt Run-Time Error 6 Overflow

Using VBA Cint function with strings that result in a value smaller or bigger than the expected integer will result in a Run-Time error ’6’: Overflow. Integer data type in excel has an expected value of -32768 to 32767.

Sub CIntExample_6()
'The code below will result in an ERROR message
'CInt cant handle non numerical characters
Dim StrEx As String
StrEx = "1234567"
MsgBox CInt(StrEx)
End Sub

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More

VBA CInt Regional Settings

VBA CInt function has different behavior converting strings with comma or dot.  It uses the Regional Settings of the operating system for decimal separator and digit separator.

Sub CIntExample_7()
Dim StrEx As String
StrEx = "1,9"
MsgBox CInt(StrEx)
‘If Regional settings have , as a grouping separator then 
'Result is: 19
‘If Regional settings have , as a decimal separator then 
'Result is: 2 (2 because 1.9 gets rounded)

StrEx = "1.9"
MsgBox CInt(StrEx)
‘If Regional settings have . as a grouping separator then 
'Result is: 19
‘If Regional settings have . as a decimal separator then 
'Result is: 2 (2 because 1.9 gets rounded)
End Sub

VBA CInt Converting Booleans to Integers

VBA Cint function can convert boolean variables to integers. If the evaluated expression is true the resulting integer is -1 and if the evaluated expression is false, the resulting integer is 0.

Sub CIntExample_8()
Dim BoolEx As Boolean
BoolEx = True
MsgBox CInt(BoolEx)  'Result is: -1
MsgBox CInt(2 = 2)   'Result is: -1

BoolEx = False
MsgBox CInt(BoolEx)  'Result is: 0
MsgBox CInt(1 = 2)   'Result is: 0
End Sub

VBA CInt Converting Dates to Integers

VBA Cint function can convert a date variable to an integer. The returned value is the internal number used by excel for date storage rounded. If that number is outside of the expected integer limits for VBA then we get a  Run-Time error ’6’: Overflow.

Sub CIntExample_9()
Dim DateEx As Date
DateEx = #2/3/1940#
MsgBox CInt(DateEx)
'Result is: 14644
DateEx = #8/7/1964#
MsgBox CInt(DateEx)
'Result is: 23596
End Sub

В этом учебном материале вы узнаете, как использовать Excel функцию CINT с синтаксисом и примерами.

Описание

Microsoft Excel функция CINT преобразует значение в целое число.
Функция CINT — это встроенная в Excel функция, которая относится к категории функций преобразования типов данных. Его можно использовать как функцию VBA в Excel. В качестве функции VBA вы можете использовать эту функцию в коде макроса, который вводится через редактор Microsoft Visual Basic Editor.

Синтаксис

Синтаксис функции CINT в Microsoft Excel:

CInt( expression )

Параметры или аргументы

expression

Значение, которое нужно преобразовать в целое число.

Возвращаемое значение

Функция CINT возвращает целочисленное значение.

Применение

• Excel для Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2011 для Mac, Excel 2010, Excel 2007, Excel 2003, Excel XP, Excel 2000

Тип функции

• Функция VBA

Пример (как функция VBA)

Функцию CINT можно использовать только в коде VBA в Microsoft Excel. Давайте взглянем на некоторые примеры Excel функции CINT, чтобы понять, как использовать функцию CINT в коде Excel VBA:

В этом примере переменная LValue теперь будет содержать значение 8.
Будьте осторожны при использовании CINT.
Если бы вы использовали следующий код:

Переменная LValue по-прежнему будет содержать значение 8.
Пока дробь не будет больше 0.5, функция CINT не будет округлять число в большую сторону.
СОВЕТ:

• Если дробь меньше или равна 0.5, результат будет округлен в меньшую сторону.
• Если дробь больше, чем 0.5, результат будет округлен в большую сторону.

Мы сочли полезным в прошлом прибавлять 0.0001 к значение перед применением функции CINT для имитации обычного процесса округления.
Например, CInt (8.50001) приведет к значению 9.

Excel VBA CInt Function

In this article, we will see an outline on Excel VBA CInt. CInt is a type conversion function. So if we try to understand it in general terms this function is used to convert a value from any other data type to integer data type. The syntax to use this function is actually very simple as it takes just one argument.

Syntax:

Though this function is used to convert a value to an integer it is to be noted that the value should be numeric. A non-numeric value will give an error. Actually there are three types of Error that can be encountered while using this function.

How to Use the CInt Function in Excel VBA?

The use of this function is very easy as it takes a single expression as an argument. This function is very useful in certain applications when there is data in multiple forms. This function can be used in a single statement or we can use a user-defined function to call it in another function. We will learn how to use the CInt function in Excel by using the VBA Code.

You can download this VBA CInt Excel Template here – VBA CInt Excel Template

Example #1

Let us begin with the most basic example to show how this function works. As we know CInt function converts any given expression to an integer. So we will provide a basic input and see the result. For this, follow the below steps:

Step 1: Insert a new module inside Visual Basic Editor (VBE). Click on Insert tab > select Module.

Step 2: When the module is inserted we can start with our subprocedure for example 1.

Code:

Sub Example1()

End Sub

Step 3: We will simply provide a decimal value to the function and display it using the Msgbox function.

Code:

Sub Example1()

End Sub

Step 4: Run the code by pressing the F5 key or by clicking on the Play Button.

We can see that we have given the input a decimal value but the function converted the value to an integer.

Example #2

Let us have some value in any sheet and try to convert it to an integer using the function. The value what I have in sheet 1 for cell A1 is as follows. For this, follow the below steps:

Step 1: Declare another subprocedure for example 2 for this circumstance.

Code:

Sub Example2()

End Sub

Step 2: Now declare two variables one as String and another one as Integer.

Code:

Sub Example2()

Dim A As String, B As Integer

End Sub

Step 3: Assign the value of cell A1 to variable A.

Code:

Sub Example2()

Dim A As String, B As Integer
A = Range("A1").Value

End Sub

Step 4: And then in the variable B we will convert the value of A to Integer using the CInt function.

Code:

Sub Example2()

Dim A As String, B As Integer
A = Range("A1").Value
B = CInt(A)

End Sub

Step 5: To see our result if the value is displayed or not let us use the Msgbox function as variable A is a string data type.

Code:

Sub Example2()

Dim A As String, B As Integer
A = Range("A1").Value
B = CInt(A)
MsgBox B

End Sub

Step 6: Run the code by pressing the F5 key or by clicking on the Play Button.

Example #3

The practical example of this function will be very good when we take any input from the user. So now for this example let the user give any values and we will display it by converting the value to an integer using the CInt function. For this, follow the below steps:

Step 1: Declare another sub procedure to start with this example.

Code:

Sub Example3()

End Sub

Step 2: Now we will declare two variables, one as Integer and one as any other data type but for this example, I have taken it as a long data type.

Code:

Sub Example3()

Dim A As Long, B As Integer

End Sub

Step 3: In the variable A store the input we will get from the user using the input box function.

Code:

Sub Example3()

Dim A As Long, B As Integer
A = InputBox("Enter a Decimal Value")

End Sub

Step 4: Now in the variable B store the input received from the user and convert it to an integer using the CInt function.

Code:

Sub Example3()

Dim A As Long, B As Integer
A = InputBox("Enter a Decimal Value")
B = CInt(A)

End Sub

Step 5: Now we can go ahead and display the value which we have converted to the user as follows.

Code:

Sub Example3()

Dim A As Long, B As Integer
A = InputBox("Enter a Decimal Value")
B = CInt(A)
MsgBox "The Number you entered is " & A

End Sub

Step 6: Now when we execute the code above first we will get a pop up to enter a decimal value.

Step 7: When we press Ok we can see the result is converted to an integer.

Example #4

Now as in example 3 we asked a user to provide any value and we tried to convert it to an integer. But multiple users can insert different types of values so what if someone puts value which is not in range for integer we will get an error. For this, follow the below steps:

Step 1: We can again execute the code of example 3 and put the values.

Step 2: Now we can click on OK.

We receive a run time error because the storage capacity of an integer value is overflown and variable B cannot store this value.

Step 3: So in this example, we will put an error handler for the CInt function, so for example 4 let us use the same code of example 3 as shown below.

Code:

Sub Example4()

Dim A As Long, B As Integer
A = InputBox("Enter a Decimal Value")
B = CInt(A)
MsgBox "The Number you entered is " & A

End Sub

Step 4: But we will make a few changes before we begin to process the input let us use the error handler on error Go to.

Code:

Sub Example4()

Dim A As Long, B As Integer
On Error GoTo 100:
A = InputBox("Enter a Decimal Value")
B = CInt(A)
MsgBox "The Number you entered is " & A
100:
MsgBox "The value cannot be Converted"
End

End Sub

Step 5: Now when we run the code by pressing the F5 key. It provides the same input.

Step 6: Let us see what happens when we press Ok.

This is one of the type of error we have handled for CInt function.

Conclusion

So we saw what CInt function can do and we have said earlier that there can be three types of errors associated with this function. So let us discuss those three types.

In the first case, we saw that if a user or any value is provided to the variable which is out of the range for the integer. The second instance can be if the value is non-numeric. The third and last type of error we can encounter using this function is for an array.

Things to Remember

The important things to remember about these functions are:

• Non Numeric Values will not be converted and it will show as an error.
• CInt function cannot be used in an array.
• If the values exceed the range of integer we will encounter an error.
• If the values are in decimal places this function rounds the values with the respective decimals.

Recommended Articles

This is a guide to VBA CInt. Here we discuss how to Use the CInt Function in Excel VBA along with practical examples and downloadable excel template. You can also go through our other related articles to learn more –

1. VBA SendKeys
2. VBA Name Worksheet
3. VBA On Error Goto
4. VBA Msgbox Yes/No