Hướng dẫn này sẽ trình bày cách sử dụng hàm CLng VBA để chuyển đổi một biểu thức sang kiểu dữ liệu số nguyên dài.
Hàm CLng
VBA CLng Chuyển đổi biểu thức thành dài
Hàm VBA CLng có thể được sử dụng để chuyển đổi các biểu thức thành kiểu dữ liệu dài bên trong mã VBA.
| 123456 | Sub CLngExample_1 ()MsgBox CLng (12.34) 'Kết quả là: 12MsgBox CLng (12.345) 'Kết quả là: 12MsgBox CLng (-124) 'Kết quả là: -124MsgBox CLng (-12.34) 'Kết quả là: -12Kết thúc Sub |
Làm tròn VBA CLng
Hàm VBA CLng 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 CLng trả về số nguyên chẵn gần nhất.
| 1234567891011 | Sub CLngExample_2 ()MsgBox CLng (0.34) 'Kết quả là: 0MsgBox CLng (0.99) 'Kết quả là: 1MsgBox CLng (-124,95) 'Kết quả là: -125MsgBox CLng (1.5) 'Kết quả là: 2MsgBox CLng (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 CLng thành dự kiến.
| 1234567891011 | Sub CLngExample_3 ()MsgBox CLng (2.5)'Kết quả là: 2MsgBox CLng (2,5 + 0,001)'Kết quả là: 3MsgBox CLng (14,5)'Kết quả là: 14MsgBox CLng (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 CLng chuyển đổi chuỗi thành dài
Hàm VBA CLng có thể được sử dụng để chuyển đổi chuỗi thành long nếu các ký tự trong chuỗi có ý nghĩa là số.
| 123456789101112131415161718 | Sub CLngExample_4 ()Dim StrEx As chuỗiStrEx = "112"MsgBox CLng (StrEx)'Kết quả là: 112StrEx = "112,3"MsgBox CLng (StrEx)'Kết quả là: 112 112,3 được làm trònStrEx = "11,2"MsgBox CLng (StrEx)'Kết quả là: 112, bị bỏ quaStrEx = "112 đô la"MsgBox CLng (StrEx)'Kết quả là: 112 $ bị bỏ quaKết thúc Sub |
Lỗi thời gian chạy VBA CLng 13 Loại không khớp
Sử dụng hàm VBA CLng 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 CLngExample_5 ()'Đoạn mã dưới đây sẽ dẫn đến một thông báo LỖI'CLng không thể xử lý các ký tự không phải sốDim StrEx As chuỗiStrEx = "Ab13"MsgBox CLng (StrEx)Kết thúc Sub |
VBA CLng Lỗi thời gian chạy 6 tràn
Sử dụng hàm VBA CLng 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ừ -2,147,483,648 đến 2,147,483,647.
| 1234567 | Sub CLngExample_6 ()'Đoạn mã dưới đây sẽ dẫn đến một thông báo LỖI'CLng không thể xử lý các ký tự không phải sốDim StrEx As chuỗiStrEx = "2147483648"MsgBox CLng (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 CLng
Hàm VBA CLng 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 CLngExample_7 ()Dim StrEx As chuỗiStrEx = "1,9"MsgBox CLng (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 CLng (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 CLng Chuyển đổi Boolean thành Longs
Hàm VBA CLng có thể chuyển đổi các biến boolean thành longs. Nếu biểu thức được đánh giá là đúng, giá trị dài kết quả là -1 và nếu biểu thức được đánh giá là sai thì độ dài kết quả là 0.
| 1234567891011121314 | Sub CLngExample_8 ()Dim BoolEx As BooleanBoolEx = ĐúngMsgBox CLng (BoolEx)'Kết quả là: -1MsgBox CLng (2 = 2)'Kết quả là: -1BoolEx = SaiMsgBox CLng (BoolEx)'Kết quả là: 0MsgBox CLng (1 = 2)'Kết quả là: 0Kết thúc Sub |
VBA CLng Chuyển đổi ngày thành ngày dài
Hàm VBA CLng có thể chuyển đổi biến ngày thành dài. 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 con số đó nằm ngoài giới hạn dài dự kiến cho VBA thì chúng tôi nhận được lỗi Thời gian chạy '6': Tràn.
| 123456789101112 | Sub CLngExample_9 ()Dim DateEx As DateDateEx = # 2/3/1940 #MsgBox CLng (DateEx)'Kết quả là: 14644DateEx = # 8/7/1964 #MsgBox CLng (DateEx)'Kết quả là: 23596DateEx = # 3/7/1934 11:32:04 AM #MsgBox CLng (DateEx)'Kết quả là: 12485Kết thúc Sub |
