Làm cách nào để điền hộp văn bản dựa trên lựa chọn hộp kết hợp trên UserForm trong Excel?
Giả sử bạn có một bảng chứa cột Tên và số Nhân viên như hình minh họa bên dưới. Bây giờ bạn cần tạo Biểu mẫu người dùng được nhúng với một hộp tổ hợp thu thập tất cả các tên bên trong và một hộp văn bản sẽ điền số nhân viên tương ứng khi chọn tên từ hộp tổ hợp. Phương pháp trong bài viết này có thể giúp bạn gỡ bỏ nó.
Điền vào hộp văn bản dựa trên lựa chọn hộp kết hợp trên Biểu mẫu người dùng với VBA
Điền vào hộp văn bản dựa trên lựa chọn hộp kết hợp trên Biểu mẫu người dùng với VBA
Vui lòng làm như sau để điền vào hộp văn bản với giá trị tương ứng dựa trên lựa chọn hộp kết hợp trên Biểu mẫu người dùng.
1. Nhấn nút Khác + F11 phím để 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ổ, nhấp Chèn > Biểu mẫu người dùng. Xem ảnh chụp màn hình:
3. Sau đó chèn điều khiển hộp Tổ hợp và điều khiển hộp văn bản vào Biểu mẫu người dùng đã tạo như hình minh họa bên dưới.
4. Bấm chuột phải vào bất kỳ khoảng trống nào của Biểu mẫu người dùng, rồi bấm Mã Chế độ xem từ menu ngữ cảnh. Xem ảnh chụp màn hình:
5. Trong cửa sổ Userform (Code) đang mở, vui lòng sao chép và dán mã VBA bên dưới để thay thế bản gốc.
Mã VBA: Điền vào hộp văn bản dựa trên lựa chọn hộp kết hợp trên Biểu mẫu người dùng
Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
Set xRg = Worksheets("Sheet5").Range("A2:B8")
Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End Sub
Chú thích: Trong mã, A2: B2 là phạm vi chứa các giá trị bạn sẽ điền riêng trong cả hộp kết hợp Biểu mẫu người dùng và hộp văn bản. Và Sheet5 là tên của trang tính chứa dải dữ liệu. Vui lòng thay đổi chúng khi bạn cần.
6. Nhấn nút Khác + Q chìa khóa để thoát khỏi Microsoft Visual Basic cho các ứng dụng cửa sổ.
7. nhấp chuột Nhà phát triển > Chèn > Nút lệnh (Điều khiển ActiveX) để chèn một nút lệnh vào trang tính.
8. Nhấp chuột phải vào tab trang tính và chọn Mã Chế độ xem từ menu chuột phải. Sau đó sao chép và dán mã VBA vào cửa sổ mã.
Mã VBA: Hiển thị biểu mẫu người dùng
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
UserForm1.Show
End Sub
9. Tắt Chế độ thiết kế trong sổ làm việc.
Nhấp vào nút lệnh để mở biểu mẫu người dùng được chỉ định. Sau đó, bạn có thể thấy tất cả các tên được thu thập trong hộp kết hợp. Khi chọn tên từ hộp kết hợp, số nhân viên tương ứng sẽ được tự động điền vào hộp văn bản như hình minh họa bên dưới.
Các bài liên quan:
- Làm thế nào để điền một hộp tổ hợp với dữ liệu được chỉ định trên Workbook đang mở?
- Làm cách nào để tự động điền các ô khác khi chọn giá trị trong danh sách thả xuống của Excel?
- Làm cách nào để tự động điền các ô khác khi chọn giá trị trong danh sách thả xuống của Excel?
- Làm cách nào để điền kết quả tìm kiếm của google vào trang tính trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!