Hướng dẫn này sẽ trình bày cách sử dụng hàm CDbl VBA để chuyển đổi biểu thức sang kiểu dữ liệu kép.
Hàm CDbl
VBA CDbl Chuyển đổi biểu thức thành số nguyên
Hàm VBA CDbl có thể được sử dụng để chuyển đổi các biểu thức sang kiểu dữ liệu kép bên trong mã VBA.
| 123456 | Sub CDblExample_1 ()MsgBox CDbl (12.345) 'Kết quả là: 12.345MsgBox CDbl (-124) 'Kết quả là: -124MsgBox CDbl (0,000034) 'Kết quả là: 0,000034MsgBox CDbl (-12.000034) 'Kết quả là: -12.000034Kết thúc Sub |
VBA CDbl chuyển đổi chuỗi thành đôi
Hàm VBA CDbl có thể được sử dụng để chuyển đổi chuỗi thành gấp đôi nếu các ký tự trong chuỗi có ý nghĩa là số.
| 123456789101112131415161718 | Sub CDblExample_2 ()Dim StrEx As chuỗiStrEx = "112"MsgBox CDbl (StrEx)'Kết quả là: 112StrEx = "0,0003"MsgBox CDbl (StrEx)'Kết quả là: 0,0003StrEx = "11,00002"MsgBox CDbl (StrEx)'Kết quả là: 1100002, bị bỏ quaStrEx = "112 đô la"MsgBox CDbl (StrEx)'Kết quả là: 112 $ bị bỏ quaKết thúc Sub |
Lập trình VBA | Code Generator làm việc cho bạn!
VBA CDbl Thời gian chạy Lỗi 13 Loại Không khớp
Sử dụng hàm VBA CDbl 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 CDblExample_3 ()'Đoạn mã dưới đây sẽ dẫn đến một thông báo LỖI'CDbl không thể xử lý các ký tự không phải sốDim StrEx As chuỗiStrEx = "Ab13"MsgBox CDbl (StrEx)Kết thúc Sub |
Cài đặt khu vực VBA CDbl
Hàm VBA CDbl 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 CDblExample_4 ()Dim StrEx As chuỗiStrEx = "1,9"MsgBox CDbl (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,9StrEx = "1.9"MsgBox CDbl (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.9Kết thúc Sub |
VBA CDbl chuyển đổi Boolean thành Double
Hàm VBA CDbl có thể chuyển đổi các biến boolean thành gấp đôi. Nếu biểu thức được đánh giá là đúng thì kết quả kép là -1 và nếu biểu thức được đánh giá là sai thì kết quả kép là 0.
| 12345678910 | Sub CDblExample_5 ()Dim BoolEx As BooleanBoolEx = ĐúngMsgBox CDbl (BoolEx) 'Kết quả là: -1MsgBox CDbl (2 = 2) 'Kết quả là: -1BoolEx = SaiMsgBox CDbl (BoolEx) 'Kết quả là: 0MsgBox CDbl (1 = 2) 'Kết quả là: 0Kế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!
VBA CDbl chuyển đổi ngày thành đôi
Hàm VBA CDbl 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.
| 123456789101112 | Sub CDblExample_6 ()Dim DateEx As DateDateEx = # 2/3/1940 #MsgBox CDbl (DateEx)'Kết quả là: 14644DateEx = # 8/7/1964 10:41:00 PM #MsgBox CDbl (DateEx)'Kết quả là: 23596.9451388889DateEx = # 3/7/1934 11:32:04 AM #MsgBox CDbl (DateEx)'Kết quả là: 12485.4806018519Kết thúc Sub |
