Hướng dẫn này sẽ trình bày cách sử dụng hàm CDec VBA.
Chức năng CDec
VBA CDec Chuyển đổi biểu thức thành số thập phân
Hàm VBA CDec chuyển đổi một biểu thức thành kiểu dữ liệu thập phân. Kiểu dữ liệu thập phân thực sự là một kiểu con của kiểu dữ liệu biến thể.
| 12345678910 | Sub CDecExample_1 ()MsgBox CDec (12.34000001)'Kết quả là: 12.34000001MsgBox CDec (10000000000012.3)'Kết quả là: 10000000000012,3MsgBox CDec (-0.00000000000001)'Kết quả là: -0.00000000000001MsgBox CDec (-12,34)'Kết quả là: -12,34Kết thúc Sub |
VBA CDec chuyển đổi chuỗi thành số thập phân
Hàm VBA CDec có thể được sử dụng để chuyển đổi chuỗi thành số thập phân nếu các ký tự trong chuỗi có nghĩa là số.
| 12345678910111213141516171819 | Sub CDecExample_2 ()Dim StrEx As chuỗiStrEx = "112.112112"MsgBox CDec (StrEx)'Kết quả là: 112.112112StrEx = "112,3"MsgBox CDec (StrEx)'Kết quả là: 112,3StrEx = "11,2"MsgBox CDec (StrEx)'Kết quả là: 112, bị bỏ quaStrEx = "112,07 đô la"MsgBox CDec (StrEx)'Kết quả là: 112,07 $ bị bỏ quaKết thúc Sub |
Lập trình VBA | Code Generator làm việc cho bạn!
Lỗi thời gian chạy VBA CDec 13 Loại không khớp
Sử dụng hàm VBA CDec 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 CDecExample_3 ()'Đoạn mã dưới đây sẽ dẫn đến một thông báo LỖI'CDec không thể xử lý các ký tự không phải sốDim StrEx As chuỗiStrEx = "Ab13"MsgBox CDec (StrEx)Kết thúc Sub |
VBA CDec thời gian chạy lỗi 6 tràn
Sử dụng hàm VBA CDec với các chuỗi dẫn đến giá trị nhỏ hơn hoặc lớn hơn số thập phân dự kiến sẽ dẫn đến lỗi Thời gian chạy '6': Tràn. Số thập phân phải nằm trong khoảng -7,9 E28 đến +7,9 E28.
| 1234567 | Sub CDecExample_4 ()'Đoạn mã dưới đây sẽ dẫn đến một thông báo LỖI'CDec có thể xử lý các số từ -7,9 E28 đến +7,9 E28Dim StrEx As VariantStrEx = 8E + 30MsgBox CDec (StrEx)Kết thúc Sub |
Cài đặt khu vực VBA CDec
Hàm VBA CDec 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 CDecExample_5 ()Dim StrEx As chuỗiStrEx = "1,0000009"MsgBox CDec (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à: 1.0000009StrEx = "1.0000009"MsgBox CDec (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à: 1.0000009Kết thúc Sub |
