Hướng dẫn này sẽ trình bày cách sử dụng Hàm văn bản trong VBA.
Hàm Văn bản được sử dụng trong trang tính Excel để trả về một phần của chuỗi ở định dạng được chỉ định. Hàm Text không phải là một hàm VBA, nhưng có thể được sử dụng trong VBA bằng cách tham chiếu đến đối tượng Worksheet Function.
WorksheetFunction.Text
Do đó, cú pháp trong VBA sẽ như sau:
= WorksheetFunction.Text (Arg1, Arg2)
trong đó Arg1 là chuỗi gốc và Arg2 là định dạng của chuỗi mà chúng ta muốn trả về.
| 1234567 | Sub TestWSFunction ()Dim dte As StringDim strD dưới dạng chuỗidte = "08/05/2021"strD = WorksheetFunction.Text (dte, "mmmm")MsgBox strDKết thúc Sub |
Trong ví dụ trên, biến chuỗi dte đang lưu trữ một ngày tháng. Sau đó, hàm Văn bản trả về phần tháng của ngày.
Định dạng số bằng hàm văn bản
Chúng ta có thể sử dụng hàm văn bản để định dạng số trong mã VBA của mình.
| 1234567 | Định dạng phụCurrency ()Dim strNum As StringDim strFormat As StringstrNum = "75896.125"strFormat = WorksheetFunction.Text (strNum, "$ #, ## 0.00")MsgBox strFormatKết thúc Sub |
Chuỗi được trả về trong ví dụ trên sẽ là $ 75,896,13.
Các ví dụ khác về định dạng số bằng Hàm văn bản là:
| 12345678 | = WorksheetFunction.Text (75896.125, "0")điều này sẽ trả về: "75896"= WorksheetFunction.Text (75896.125, "0.0")điều này sẽ trả về: "75896,1"= WorksheetFunction.Text (75896.125, "#, ## 0")điều này sẽ trả về: "75,896" |
Tuy nhiên, Excel có một hàm VBA tích hợp sẵn mà chúng ta có thể sử dụng thay cho hàm Văn bản nếu chúng ta muốn định dạng ngày và số trong VBA. Đây được gọi là chức năng Định dạng.
Chức năng định dạng VBA
Lấy ví dụ ở trên, thay vì sử dụng WorksheetFunction.Text, chúng ta chỉ có thể sử dụng Hàm định dạng để đạt được kết quả tương tự.
| 12345678 | = Định dạng (75896.125, "0")điều này sẽ trả về: "75896"= Định dạng (75896.125, "0.0")điều này sẽ trả về: "75896,1"= Định dạng (75896.125, "#, ## 0")điều này sẽ trả về: "75,896" |
Tương tự, chúng ta có thể sử dụng Hàm Định dạng để định dạng các phần ngày tháng của một chuỗi.
| 1234567 | Sub TestFormatFunction ()Dim dte As StringDim strD dưới dạng chuỗidte = "08/05/2021"strD = Định dạng (dte, "mmmm")MsgBox strDKết thúc Sub |
