Hàm VBA CInt - Chuyển đổi sang số nguyên

Hướng dẫn này sẽ trình bày cách sử dụng hàm CInt VBA để chuyển đổi một biểu thức sang kiểu dữ liệu số nguyên.

Hàm CInt

VBA CInt Chuyển đổi biểu thức thành số nguyên

Hàm VBA CInt có thể được sử dụng để chuyển đổi biểu thức sang kiểu dữ liệu số nguyên bên trong mã VBA. Số kết quả được làm tròn để trở thành một số nguyên.

123456

Sub CIntExample_1 ()MsgBox CInt (12.34) 'Kết quả là: 12MsgBox CInt (12.345) 'Kết quả là: 12MsgBox CInt (-124) 'Kết quả là: -124MsgBox CInt (-12.34) 'Kết quả là: -12Kết thúc Sub

Làm tròn VBA CInt

Hàm VBA CInt sẽ làm tròn phần thập phân của một kiểu số hoặc một số giống như biểu thức. Tuy nhiên, nó không làm tròn chính xác trong mọi trường hợp. Khi phần thập phân là 0,5 thì hàm VBA CInt trả về số nguyên chẵn gần nhất.

12345678910111213141516

Sub CIntExample_2 ()MsgBox CInt (0,34)'Kết quả là: 0MsgBox CInt (0,99)'Kết quả là: 1MsgBox CInt (-124,95)'Kết quả là: -125MsgBox CInt (1.5)'Kết quả là: 2MsgBox CInt (2.5)'Kết quả là: 2Kết thúc Sub

Chúng tôi có thể thêm một số thập phân tương đối nhỏ vào giá trị thập phân dự kiến ​​của chúng tôi để thay đổi hành vi của hàm VBA Cint thành dự kiến.

1234567891011

Sub CIntExample_3 ()MsgBox CInt (2.5)'Kết quả là: 2MsgBox CInt (2,5 + 0,001)'Kết quả là: 3MsgBox CInt (14.5)'Kết quả là: 14MsgBox CInt (14,5 + 0,001)'Kết quả là: 15Kết thúc Sub

Lập trình VBA | Code Generator làm việc cho bạn!

VBA CInt Chuyển đổi chuỗi thành số nguyên

Hàm VBA CInt có thể được sử dụng để chuyển đổi chuỗi thành số nguyên nếu các ký tự trong chuỗi có ý nghĩa là số.

123456789101112131415161718

Sub CIntExample_4 ()Dim StrEx As chuỗiStrEx = "112"MsgBox CInt (StrEx)'Kết quả là: 112StrEx = "112,3"MsgBox CInt (StrEx)'Kết quả là: 112 -> 112,3 được làm trònStrEx = "11,2"MsgBox CInt (StrEx)'Kết quả là: 112 ->, bị bỏ quaStrEx = "112 đô la"MsgBox CInt (StrEx)'Kết quả là: 112 -> $ bị bỏ quaKết thúc Sub

Lỗi thời gian chạy VBA CInt 13 Loại không khớp

Sử dụng hàm VBA Cint với các chuỗi chứa ký tự không phải số hoặc ký tự không có nghĩa trong ngữ cảnh số sẽ dẫn đến lỗi Thời gian chạy '13': Nhập không khớp.

1234567

Sub CIntExample_5 ()'Đoạn mã dưới đây sẽ dẫn đến một thông báo LỖI'CInt không thể xử lý các ký tự không phải sốDim StrEx As chuỗiStrEx = "Ab13"MsgBox CInt (StrEx)Kết thúc Sub

VBA CInt Lỗi thời gian chạy 6 tràn

Sử dụng hàm VBA Cint với các chuỗi dẫn đến giá trị nhỏ hơn hoặc lớn hơn số nguyên mong đợi sẽ dẫn đến lỗi Thời gian chạy '6': Tràn. Kiểu dữ liệu số nguyên trong excel có giá trị dự kiến ​​từ -32768 đến 32767.

1234567

Sub CIntExample_6 ()'Đoạn mã dưới đây sẽ dẫn đến một thông báo LỖI'Không thể xử lý các ký tự không phải sốDim StrEx As chuỗiStrEx = "1234567"MsgBox CInt (StrEx)Kết thúc Sub

Bạn mệt mỏi với việc tìm kiếm ví dụ về mã VBA? Hãy thử AutoMacro!

Cài đặt khu vực VBA CInt

Hàm VBA CInt có các chuỗi chuyển đổi hành vi khác nhau bằng dấu phẩy hoặc dấu chấm. Nó sử dụng Cài đặt Khu vực của hệ điều hành cho dấu phân cách thập phân và dấu phân cách chữ số.

12345678910111213141516

Sub CIntExample_7 ()Dim StrEx As chuỗiStrEx = "1,9"MsgBox CInt (StrEx)‘Nếu Cài đặt khu vực có, như một dấu phân tách nhóm thì'Kết quả là: 19‘Nếu Cài đặt khu vực có, dưới dạng dấu phân tách thập phân thì'Kết quả là: 2 (2 vì 1,9 được làm tròn)StrEx = "1.9"MsgBox CInt (StrEx)‘Nếu cài đặt Khu vực có. như một dấu phân cách nhóm sau đó'Kết quả là: 19‘Nếu cài đặt Khu vực có. như một dấu phân cách thập phân sau đó'Kết quả là: 2 (2 vì 1,9 được làm tròn)Kết thúc Sub

Lập trình VBA | Code Generator làm việc cho bạn!

VBA CInt Chuyển đổi Boolean thành Số nguyên

Hàm VBA Cint có thể chuyển đổi các biến boolean thành số nguyên. Nếu biểu thức được đánh giá là đúng, số nguyên kết quả là -1 và nếu biểu thức được đánh giá là sai, số nguyên kết quả là 0.

12345678910

Sub CIntExample_8 ()Dim BoolEx As BooleanBoolEx = ĐúngMsgBox CInt (BoolEx) 'Kết quả là: -1MsgBox CInt (2 = 2) 'Kết quả là: -1BoolEx = SaiMsgBox CInt (BoolEx) 'Kết quả là: 0MsgBox CInt (1 = 2) 'Kết quả là: 0Kết thúc Sub

VBA CInt Chuyển đổi ngày thành số nguyên

Hàm VBA Cint có thể chuyển đổi một biến ngày thành một số nguyên. Giá trị trả về là số nội bộ được excel sử dụng để lưu trữ ngày được làm tròn. Nếu số đó nằm ngoài giới hạn số nguyên dự kiến ​​cho VBA thì chúng tôi nhận được lỗi Thời gian chạy '6': Tràn.

123456789

Sub CIntExample_9 ()Dim DateEx As DateDateEx = # 2/3/1940 #MsgBox CInt (DateEx)'Kết quả là: 14644DateEx = # 8/7/1964 #MsgBox CInt (DateEx)'Kết quả là: 23596Kết thúc Sub