Trong VBA, bạn có thể tạo Nút quay cho phép người dùng tăng một số trong ô trong một phạm vi xác định. Mỗi khi người dùng nhấp vào một nút, số lượng sẽ tăng hoặc giảm. Trong hướng dẫn này, bạn sẽ học cách tạo nút Spin và sử dụng nó trong Excel và VBA.
Nếu bạn muốn tìm hiểu cách sử dụng nút Tùy chọn, hãy nhấp vào liên kết này: Nút tùy chọn Excel VBA
Tạo một nút quay
Để chèn nút Spin trong Trang tính, bạn cần đi tới Tab nhà phát triển, nhấp chuột Chèn và trong Điều khiển ActiveX, hãy chọn Nút quay:
Hình ảnh 1. Chèn nút Spin trong Trang tính
Khi bạn chọn nút Spin mà bạn đã chèn, bạn có thể nhấp vào Tính chất Bên dưới Tab nhà phát triển:
Hình ảnh 2. Thay đổi thuộc tính nút Spin
Tại đây bạn có thể đặt các thuộc tính khác nhau của nút Spin. Ngay từ đầu, chúng tôi đã thay đổi thuộc tính Tên đến spbSpinButton. Bây giờ, chúng ta có thể sử dụng nút Spin với tên này trong mã VBA. Các thuộc tính quan trọng khác là Min và Max, xác định một dải số và Thay đổi nhỏ xác định một bước tăng dần.
Đặt nút quay bằng VBA
Đầu tiên chúng ta sẽ xem cách đặt thuộc tính của nút Spin trong VBA và lấy giá trị trong Worksheet. Mã cần phải có trong trường hợp Thay đổi của đối tượng spbSpinButton. Bạn có thể tham gia sự kiện này bằng cách nhấp chuột phải vào nút Quay và chọn Xem mã Lựa chọn. Đây là mã:
1234567891011 | Sub riêng tư spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueKết thúc Sub |
Đầu tiên, chúng tôi đặt giới hạn dưới cho dải số:
1 | Sheet1.spbSpinButton.Min = 100 |
Sau đó, chúng tôi đặt giới hạn trên cho phạm vi số:
1 | Sheet1.spbSpinButton.Max = 200 |
Chúng tôi cũng cần thiết lập bước để tăng số:
1 | Sheet1.spbSpinButton.SmallChange = 10 |
Cuối cùng, chúng tôi đang gán giá trị hiện tại của nút Spin cho ô B2. Giá trị này nằm trong Giá trị thuộc tính của đối tượng Sheet1.spbSpinButton:
1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Bây giờ, bất cứ khi nào chúng ta nhấp vào nút Spin, giá trị sẽ tăng hoặc giảm 10 trong phạm vi 100-200:
Hình ảnh 3. Tăng một số bằng cách sử dụng nút Spin trong VBA
Đặt nút Spin trong Excel
Một cách khác để đặt nút Quay là sử dụng Thuộc tính. Bấm vào Tính chất Bên dưới Tab nhà phát triển:
Hình ảnh 4. Đặt nút Spin trong Excel
Tại đây, chúng tôi có thể đặt tất cả các thuộc tính mà chúng tôi muốn: Min là 10, Max là 100 và Thay đổi nhỏ là 2. Nếu bạn muốn đặt kết quả của nút Spin vào ô B2, bạn phải đặt ô này vào thuộc tính LinkedCell.