Bạn có thể được yêu cầu chuyển đổi các số được lưu trữ dưới dạng văn bản thành số thực trong mã VBA của mình. Trong hướng dẫn này, chúng ta sẽ xem xét các hàm mà bạn cần sử dụng để chuyển đổi một chuỗi thành kiểu dữ liệu số nguyên, dài, kép, thập phân hoặc tiền tệ (Nhấp vào đây để tìm hiểu về cách chuyển đổi số thành chuỗi)
Chuyển đổi chuỗi thành số nguyên
Bạn có thể sử dụng hàm CInt hoặc CLng để chuyển đổi một chuỗi thành một số nguyên. Nếu phân số nhỏ hơn .5 thì hàm sẽ làm tròn xuống, nếu phân số lớn hơn hoặc bằng .5 thì hàm sẽ làm tròn lên. Đoạn mã sau sẽ chuyển đổi một chuỗi thành một số nguyên:
| 1 | MsgBox CInt ("7,55") |
Kết quả là:
Đoạn mã sau sử dụng hàm CLng để chuyển đổi một chuỗi thành một số nguyên:
| 1 | MsgBox CLng ("13.5") |
Kết quả là:
Ghi chú: Bạn có thể sử dụng hàm CInt hoặc CLng để chuyển đổi một chuỗi thành một số nguyên hoặc các kiểu dữ liệu dài (tương ứng). Kiểu dữ liệu dài giống như kiểu dữ liệu số nguyên ngoại trừ các số lớn hơn được phép. Trước đây, sự phân biệt là bắt buộc vì những hạn chế về bộ nhớ. Trong lập trình hiện đại, không có lý do gì để không sử dụng kiểu dữ liệu dài vì bộ nhớ không còn là vấn đề nữa. Vì vậy, tốt hơn hết là sử dụng kiểu dữ liệu dài thay vì số nguyên.
Bạn có thể sử dụng Cửa sổ ngay lập tức để xem giá trị sẽ được xử lý như thế nào nếu không được chuyển đổi thành số nguyên:
| 1 | Gỡ lỗi. In "13.5" + "13.5" |
Thông thường, văn bản sẽ được lưu trữ dưới dạng một biến và biến này sẽ cần được chuyển đổi thành kiểu dữ liệu số như được hiển thị trong đoạn mã dưới đây:
| 1234567 | Sub using_Variables ()Làm mờ giá trị Một dưới dạng chuỗivalueOne = 5MsgBox CLng (valueOne) + CLng (valueOne)Kết thúc Sub |
Chuyển đổi chuỗi thành thập phân
Bạn có thể sử dụng hàm CDbl hoặc CDec để chuyển đổi một chuỗi thành số thập phân. Đoạn mã sau sẽ chuyển đổi một chuỗi thành kiểu dữ liệu kép:
| 1 | MsgBox CDbl ("9.1819") |
Kết quả là:
Đoạn mã sau sẽ chuyển đổi một chuỗi thành kiểu dữ liệu thập phân:
| 1 | MsgBox CDec ("13.57") + CDec ("13.4") |
Kết quả là:
Bạn có thể sử dụng Cửa sổ ngay lập tức để xem giá trị sẽ được xử lý như thế nào nếu không được chuyển đổi thành kiểu dữ liệu kép hoặc thập phân:
| 1 | Debug.Print "13.57" + "13.4" |
Kết quả là:
Ghi chú: Kiểu dữ liệu thập phân có thể lưu trữ các số lớn hơn kiểu dữ liệu kép, vì vậy, bạn luôn nên sử dụng kiểu dữ liệu thập phân khi không chắc chắn.
Chuyển đổi chuỗi thành tiền tệ
Bạn có thể sử dụng hàm CCur để chuyển đổi một chuỗi thành tiền tệ. Đoạn mã sau sẽ chuyển đổi một chuỗi thành một kiểu dữ liệu tiền tệ:
| 1 | Phạm vi ("A1"). Giá trị = CCur ("18,5") |
Kết quả là:
