Bài viết này sẽ trình bày cách sử dụng câu lệnh VBA Switch.
Câu lệnh VBA Switch được sử dụng theo cách tương tự như câu lệnh VBA Select Case.
Cú pháp của câu lệnh Switch
Câu lệnh switch đánh giá danh sách các biểu thức để xem chúng đúng hay sai và trả về giá trị của các biểu thức đầu tiên được đánh giá là đúng. Danh sách đối số được tạo thành từ các cặp - một biểu thức và một giá trị được trả về nếu biểu thức được đánh giá là đúng.
Chuyển(expr-1, giá trị-1, [ expr-2, giá trị-2… , [ expr-n, giá trị-n ]])
Sử dụng câu lệnh Switch trong một Thủ tục VBA
Để sử dụng điều này trong một macro có thể tương tự như ví dụ dưới đây:
| 1234567 | Sub TestSwitch ()Dim strCompany As StringDim CompanyID dưới dạng số nguyênCompanyID = 2strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesKết thúc Sub |
Chúng tôi đang khai báo một biến số nguyên để giữ các giá trị từ các biểu thức trong câu lệnh switch. Sau đó, chúng tôi khai báo một biến chuỗi khác để trả về giá trị được chứa trong biểu thức đó.
Sử dụng câu lệnh chuyển đổi với một phạm vi
Thay vì mã hóa cứng giá trị mà công tắc sẽ đánh giá thành mã, chúng ta có thể sử dụng một giá trị mà chúng ta đã lưu trữ trong một ô Excel để trả về chuỗi mà chúng ta yêu cầu.
| 1234567 | Sub TestSwitch ()Dim strCompany As StringDim CompanyID dưới dạng số nguyênCompanyID = Phạm vi ("A2")strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesKết thúc Sub |
Để sử dụng quy trình này, chúng ta cần có một số trong ô A2 trong trang tính. Sau đó, chúng tôi có thể chạy macro để lấy tên của công ty (tức là Samsung).
Nếu chúng tôi không có số trong ô A3 và chúng tôi chạy mã, lỗi Loại Không khớp sẽ được trả về.
Tạo một chức năng tùy chỉnh với VBA Switch
Chúng tôi cũng có thể tạo một chức năng tùy chỉnh bằng cách sử dụng VBA switch và sử dụng nó trong Workbook của chúng tôi.
| 123 | Hàm SwitchStatement (i As Integer) Dưới dạng chuỗiSwitchStatement = Switch (i = 1, "Apple", i = 2, "IBM", i = 3, "Samsung")Chức năng kết thúc |
Để sử dụng điều này trong sổ làm việc của chúng tôi, chúng tôi có thể sử dụng hộp thoại Chèn Hàm.
Bấm vào ô A3, sau đó bấm vào Chèn Hàm trên thanh Hàm.
Từ hộp thoại Chèn Hàm, hãy chọn Đã xác định người dùng từ Chọn danh sách thả xuống Danh mục, và sau đó chọn SwitchStatement.
Nhấp chuột VÂNG, và sau đó nhấp vào ô A2.
Tên của công ty, như được lưu trữ trong Tuyên bố Chuyển đổi sẽ được trả về trang tính của chúng tôi.
