Làm cách nào để điền một ComboBox Userform với tất cả các tên trang tính trong Excel?

Bài viết này nói về cách điền tất cả các tên trang tính của sổ làm việc hiện tại vào Hộp tổ hợp biểu mẫu người dùng trong Excel.

Điền một Userform ComboBox với tất cả các tên trang tính có mã VBA

Điền một Userform ComboBox với tất cả các tên trang tính có mã VBA

Mã VBA sau có thể giúp bạn chèn tất cả các tên trang tính của sổ làm việc hiện tại vào hộp tổ hợp biểu mẫu người dùng. Hãy làm như sau.

1. Nhấn nút Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng chèn Biểu mẫu người dùng bằng cách nhấp vào Chèn > Biểu mẫu người dùng như ảnh chụp màn hình dưới đây.

3. Sau đó vẽ và chèn điều khiển hộp tổ hợp vào Userform. Xem ảnh chụp màn hình:

4. Nhấp chuột phải vào hộp tổ hợp đã chèn và chọn Mã Chế độ xem từ menu ngữ cảnh. Xem ảnh chụp màn hình:

5. Trong phần mở đầu Microsoft Visual Basic cho các ứng dụng , vui lòng sao chép và dán mã VBA bên dưới để thay thế mã gốc trong cửa sổ Mã.

Mã VBA: Điền vào một ComboBox biểu mẫu người dùng với tất cả các tên trang tính của sổ làm việc hiện tại

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

Chú thích: Trong mã, ComboBox1 là tên của Hộp tổ hợp được chèn vào. Vui lòng thay đổi nó thành cái của riêng bạn.

6. Nhấn nút F5 phím để chạy mã. Trong Biểu mẫu người dùng đang mở, bạn có thể thấy tất cả các tên trang tính của sổ làm việc hiện tại đang hiển thị trong hộp tổ hợp như ảnh chụp màn hình bên dưới:

Bài viết liên quan:

• Làm cách nào để sao chép giá trị Hộp tổ hợp vào ô hiện hoạt trong Excel?
• Làm thế nào để hiển thị định dạng ngày trong đầu ra hộp tổ hợp trong Excel?
• Làm cách nào để mở một trang tính cụ thể theo giá trị đã chọn của Hộp Tổ hợp trong Excel?
• Làm cách nào để ngăn hoặc tắt việc nhập vào hộp tổ hợp trong Excel?
• Làm cách nào để tab ra khỏi hộp tổ hợp để chọn ô cụ thể trong Excel?