Loại biến đôi
VBA Kép kiểu dữ liệu được sử dụng để lưu trữ các số yêu cầu vị trí thập phân. Nó có thể lưu trữ từ -1.79769313486231E308 đến -4.94065645841247E-324 cho các giá trị âm và 4.94065645841247E-324 đến 1.79769313486232E308 cho các giá trị dương.
Để khai báo một biến Double, bạn sử dụng Câu lệnh Dim (viết tắt của Dimension):
| 1 | Làm mờ dblA thành đôi |
Sau đó, để gán giá trị cho một biến, chỉ cần sử dụng dấu bằng:
| 1 | dlbA = 3658,25 |
Đặt điều này trong một thủ tục trông giống như sau:
| 12345678 | Sub dblExample ()'khai báo biến képLàm mờ dblA thành đôi'điền biến képdblA = 3658,25'hiển thị hộp tin nhắnMsgBox dblAKết thúc Sub |
Nếu bạn chạy đoạn mã trên, hộp thông báo sau sẽ được hiển thị.
Loại dữ liệu duy nhất
Kiểu dữ liệu Đơn chỉ là một phiên bản ngắn hơn của kiểu dữ liệu Đôi. Do thực tế này, nó có thể ảnh hưởng đến việc làm tròn khi được sử dụng trong một thủ tục vì kiểu dữ liệu đơn sẽ làm tròn đến 4 chữ số thập phân, trong khi Kiểu dữ liệu kép sẽ làm tròn thành 12 chữ số thập phân. Nếu bạn không cần kiểu dữ liệu Đôi, bạn có thể sử dụng kiểu dữ liệu Đơn
Kiểu dữ liệu Int hoặc Long
Nếu bạn không cần vị trí thập phân, bạn có thể sử dụng kiểu dữ liệu Int hoặc kiểu dữ liệu Dài.
| 1 | Dim intA dưới dạng Số nguyên |
| 1 | Dim lngB as Long |
Khai báo biến kép ở cấp mô-đun hoặc cấp toàn cầu
Trong các ví dụ trước, chúng tôi đã khai báo biến Double trong một thủ tục. Các biến được khai báo với một thủ tục chỉ có thể được sử dụng trong thủ tục đó.
Thay vào đó, bạn có thể khai báo các biến Double ở cấp độ mô-đun hoặc toàn cục.
Cấp độ mô-đun
Cấp mô-đun các biến được khai báo ở đầu mô-đun mã với Lờ mờ tuyên bố.
Các biến này có thể được sử dụng với bất kỳ thủ tục nào trong mô-đun mã đó.
Cấp độ toàn cầu
Cấp độ toàn cầu các biến cũng được khai báo ở đầu mô-đun mã. Tuy nhiên, thay vì sử dụng Lờ mờ tuyên bố, sử dụng Công cộng để chỉ ra rằng biến Double có sẵn để được sử dụng trong suốt Dự án VBA của bạn.
| 1 | DblA công khai dưới dạng đôi |
Nếu bạn khai báo biến kép ở cấp mô-đun và sau đó cố gắng sử dụng biến này trong một mô-đun khác, sẽ xảy ra lỗi.
Tuy nhiên, nếu bạn đã sử dụng từ khóa Public để khai báo biến kép, lỗi sẽ không xảy ra và thủ tục sẽ chạy hoàn hảo.
Định dạng được lưu trữ kép dưới dạng chuỗi
Có thể có lúc bạn muốn định dạng kiểu dữ liệu kép thành một chuỗi - ví dụ: bạn có thể muốn hiển thị một ký hiệu tiền tệ và làm tròn số đến 2 chữ số thập phân.
Để đạt được điều này, bạn sử dụng chức năng Định dạng.
Quy trình sau
| 1234567891011 | Sub TestDoubleToCurrencyString ()'khai báo biến chuỗiDim strMoney As String'khai báo gấp đôi và điền giá trịDim dblValue As DoubledblValue = 44055.256'chuyển đôi thành một chuỗi có ký hiệu tiền tệ với 2 chữ số thập phânstrMoney = Định dạng (dblValue, "$ #, ## 0,00")'xem kết quảMsgBox strMoneyKết thúc Sub |
sẽ trả về kết quả này:
Tương tự, bạn có thể muốn hiển thị một số dưới dạng số điện thoại được định dạng.
Quy trình này:
| 1234567891011 | Sub TestDoubleToPhone ()'khai báo biến chuỗiDim strPhone As String'khai báo gấp đôi và điền giá trịDim dblValue As DoubledblValue = 555968541'chuyển đổi đôi thành một chuỗi có ký hiệu tiền tệstrPhone = Định dạng (dblValue, "(000) -000 0000")'xem kết quảMsgBox strPhoneKết thúc Sub |
sẽ trả về kết quả này:
