Buzz
Sử dụng biểu mẫu trong VBA để có một bảng mạch trống để thiết kế, tổ chức biểu mẫu phù hợp với mọi nhu cầu của bạn bất cứ khi nào. Hãy cùng Mytour tìm hiểu cách tạo biểu mẫu nhập liệu tự động trong Excel VBA nhé!
Tạo một biểu mẫu người dùng bằng Excel VBA
Mở một workbook Excel mới và thực hiện vài bước chuẩn bị trước khi bắt đầu tạo biểu mẫu nhập dữ liệu.
Lưu workbook với tên mà bạn muốn, nhớ đổi định dạng file sang Excel Macro-Enabled Workbook.
Thêm 2 sheet vào workbook này với các tên sau:
- Sheet1: Trang Chính
- Sheet2: Cơ sở dữ liệu Sinh viên
Dĩ nhiên, bạn có thể đổi tên của chúng theo ý muốn của mình.
Trong sheet Trang Chính, thêm nút điều khiển macro cho biểu mẫu của người dùng. Chuyển tới tab Developer > click Nút từ danh sách Chèn và kéo thả xuống. Đặt nút này vào bất kỳ vị trí nào trên bảng tính.
Sau khi đặt nút, đổi lại tên cho nó. Click chuột phải vào nút > chọn Mới để gắn một macro hiển thị biểu mẫu.
Nhập code sau vào cửa sổ chỉnh sửa:
Sub Nút1_Click()
Hiện UserForm
End SubKhi sheet Trang Chính và Cơ sở dữ liệu Sinh viên đã sẵn sàng, giờ là lúc thiết kế biểu mẫu người dùng. Điều hướng tới tab Developer > click Visual Basic để mở Editor. Ngoài ra, bạn có thể nhấn ALT+F11 để mở cửa sổ trình chỉnh sửa.
Click tab Chèn và chọn UserForm. Một biểu mẫu cho người dùng đã sẵn sàng được sử dụng. Một hộp công cụ đi kèm mở ra cùng với biểu mẫu này, chứa tất cả công cụ cần thiết cho thiết kế bố cục.
Từ hộp công cụ này, chọn Frame. Kéo nó sang biểu mẫu người dùng và điều chỉnh lại kích thước của nó.
Trong (name), bạn có thể thay đổi tên của khung này. Để hiện tên ở front-end, bạn có thể thay đổi tên trong cột Caption.
Tiếp tục bằng cách lựa chọn Label từ hộp công cụ và thêm vào 2 nhãn dán vào ô này. Đổi tên của nhãn đầu tiên thành Số ứng dụng và thứ hai thành ID Sinh viên.
Thực hiện quy trình đổi tên tương tự cho Chú thích trong Thuộc tính. Đảm bảo bạn chọn đúng nhãn trước khi đổi tên.
Sau đó, thêm vào 2 hộp văn bản vào ô nhãn dán. Chúng sẽ được sử dụng để lưu trữ thông tin đầu vào từ người dùng. Đổi tên của 2 hộp văn bản thông qua cột (Tên) trong Thuộc tính như sau:
- Hộp văn bản 1: txtSố ứng dụng
- Hộp văn bản 2: txtID Sinh viên
Thiết kế giao diện thông tin học sinh
Thêm một bảng dọc và thêm 10 nhãn và 10 hộp văn bản. Đổi tên của nhãn như sau:
- Nhãn3: Tên
- Nhãn4: Tuổi
- Nhãn5: Địa chỉ
- Nhãn6: Điện thoại
- Nhãn7: Thành phố
- Nhãn8: Quốc gia
- Nhãn9: Ngày sinh
- Nhãn10: Mã Zip
- Nhãn11: Quốc tịch
- Nhãn12: Giới tính
Thêm các hộp văn bản tương ứng bên cạnh nhãn này, chèn hai hộp optionbutton từ hộp công cụ biểu mẫu người dùng bên cạnh nhãn giới tính. Đổi tên của chúng thành Nam và Nữ (cùng với Tùy chỉnh) tương ứng.
Thiết kế giao diện chi tiết khóa học
Thêm một bảng dọc khác và chèn 6 nhãn dán, 6 hộp văn bản tương ứng với từng nhãn. Đổi tên của nhãn như sau:
- Nhãn13: Tên khóa học
- Nhãn14: Mã khóa học
- Nhãn15: Ngày bắt đầu Đăng ký
- Nhãn16: Ngày kết thúc Đăng ký
- Nhãn17: Thời lượng khóa học
- Nhãn18: Bộ phận
Thiết kế giao diện chi tiết thanh toán
Thêm một khung mới, thêm một nhãn mới và đổi lại tên thành 'Bạn có muốn cập nhật chi tiết thanh toán không?' Chèn 2 optionbuttons; đổi lại tên chúng thành Có và Không.
Tương tự, thêm một khung mới chứa 2 nhãn bổ sung và 2 ô combo box. Đổi lại tên nhãn như sau:
- Nhãn19: Thanh toán đã nhận
- Nhãn20: Phương thức thanh toán
Thiết kế thanh điều hướng
Ở phần cuối cùng, thêm 3 nút từ hộp công cụ, chứa mã triển khai các biểu mẫu. Đổi tên các nút như sau:
- Nút1: Lưu Chi tiết
- Nút2: Xóa Biểu mẫu
- Nút3: Thoát
Viết mã tự động cho biểu mẫu: Nút lưu thông tin
Do có xác thực lỗi, cần liên kết các ô văn bản với ô trên trang tính.
Các biến lastrow sẽ tính toán hàng cuối cùng được điền và lưu giữ giá trị để sử dụng linh hoạt.
Cuối cùng, các giá trị đó được dán vào ô văn bản trong bảng tính Excel tương ứng.
Code cho nút xóa biểu mẫu và thoát
Trong nút xóa, cần viết mã để xóa các giá trị hiện tại từ biểu mẫu của người dùng như sau:
Dưới đây là cách tạo biểu mẫu tự động nhập dữ liệu trong Excel VBA. Hy vọng bài viết sẽ hữu ích với bạn.
