Khi làm việc với VBA trong Excel, hầu hết chúng ta đều gặp phải sự cố khi cố gắng tạo biểu mẫu nhập dữ liệu. Trong bài viết này, tôi sẽ chỉ cho bạn cách bạn có thể tạo biểu mẫu nhập dữ liệu trong Excel khá thuận tiện và đẹp mắt bằng cách sử dụng VBA .
3 bước đơn giản để tạo biểu mẫu nhập dữ liệu trong Excel VBA
Ở đây, tôi có ba trang tính có tên Washington, New York, và California có chứa tên, số liên lạc, tuổi, và giới tính của một số khách hàng của ba chi nhánh ngân hàng này.
Mục tiêu của chúng tôi hôm nay là tạo một biểu mẫu để nhập bất kỳ dữ liệu nào vào cơ sở dữ liệu này bằng cách sử dụng VBA .
Chúng tôi sẽ hoàn thành mục tiêu của mình trong hai bước.
- Đầu tiên, chúng tôi sẽ tạo một mục nhập dữ liệu UserForm để nhập dữ liệu mới;
- Sau đó, chúng tôi sẽ thêm một nút trên trang tính để mở biểu mẫu.
Bước 1:Phát triển UserForm để tạo biểu mẫu nhập dữ liệu bằng Excel VBA
Đây là một quá trình lâu dài và có thể mất một thời gian để bạn hiểu hoàn toàn. Do đó, để có kết quả hiệu quả, hãy làm theo các bước được đề cập ở đây với sự cẩn thận và kiên nhẫn tối đa.
- Nhấn ALT + F11 trên bàn phím của bạn để mở Visual Basic cửa sổ.
- Trong Visual Basic , đi tới Chèn> Định dạng Người dùng trên thanh công cụ. Nhấp vào UserForm . UserForm mới được gọi là UserForm1 sẽ mở.
- Đầu tiên, hãy kéo một Nhãn (Label1) từ hộp công cụ đến góc trên cùng bên trái của UserForm . Thay đổi cách hiển thị của Nhãn vào Trang tính .
Kéo Hộp danh sách (Listbox1) ở bên phải của Nhãn1 .
- Sau đó, kéo thêm một vài Nhãn bằng tổng số cột của tập dữ liệu ( 4 trong ví dụ này) ở phía bên trái của UserForm. Bên cạnh mỗi Nhãn , kéo một TextBox .
Thay đổi cách hiển thị của Nhãn vào tiêu đề cột của tập dữ liệu của bạn ( Tên khách hàng, Địa chỉ liên hệ, Tuổi, và Giới tính tại đây).
- Cuối cùng, kéo một CommandButton ở phía ngoài cùng bên phải của UserForm . Thay đổi cách hiển thị của nút thành Nhập dữ liệu .
- Nhấp đúp vào Hộp danh sách . Một thủ tục con riêng tư được gọi là ListBox1_Click sẽ mở. Nhập mã sau vào đó.
⧭ Mã VBA:
Private Sub ListBox1_Click()
For i = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(i) = True Then
Worksheets(UserForm1.ListBox1.List(i)).Activate
End If
Next i
End Sub
- Tiếp theo, nhấp đúp vào CommandButton . Một thủ tục con riêng tư khác được gọi là CommandButton_Click sẽ mở. Nhập mã sau vào đó.
⧭ Mã VBA:
Private Sub CommandButton1_Click()
Total_Rows = ActiveSheet.UsedRange.Rows.Count
Total_Columns = ActiveSheet.UsedRange.Columns.Count
Active_Column = 1
For Each Ctrl In UserForm1.Controls
If TypeName(Ctrl) = "TextBox" Then
ActiveSheet.UsedRange.Cells(Total_Rows + 1, Active_Column) = Ctrl.Text
Active_Column = Active_Column + 1
End If
Next Ctrl
End Sub
- Cuối cùng, chuyển đến Chèn> Mô-đun trong thanh công cụ và nhấp vào Mô-đun .
- Mô-đun mới được gọi là Mô-đun1 sẽ được chèn. Nhập mã sau vào đó:
⧭ Mã VBA:
Sub Run_UserForm()
UserForm1.Caption = "Data Entry Form"
UserForm1.ListBox1.BorderStyle = fmBorderStyleSingle
UserForm1.ListBox1.ListStyle = fmListStyleOption
For i = 1 To Sheets.Count
UserForm1.ListBox1.AddItem Sheets(i).Name
Next i
Load UserForm1
UserForm1.Show
End Sub
Bạn xong việc rồi! Bạn đã tạo thành công biểu mẫu nhập dữ liệu để nhập bất kỳ dữ liệu mới nào vào cơ sở dữ liệu.
Đọc thêm: Các kiểu nhập dữ liệu trong Excel (Tổng quan nhanh)
Bước 2:Chèn nút để mở biểu mẫu nhập dữ liệu
Chúng tôi đã tạo thành công biểu mẫu nhập dữ liệu bằng Biểu mẫu người dùng trong Excel VBA . Bây giờ, chúng tôi sẽ thêm một nút vào trang tính của mình để mở biểu mẫu.
Làm theo các bước được đề cập bên dưới để đạt được điều này.
- Nhấp và mở Nhà phát triển từ Ruy-băng trong Excel ở trên cùng. Nhà phát triển theo mặc định, tab bị ẩn trong Excel. Nếu bạn không thấy nó trong Ruy-băng trong Excel của mình , hãy làm theo các bước được đề cập ở đây để hiện nó .
- Thuộc Nhà phát triển trong phần Điều khiển , nhấp vào Chèn . Bạn sẽ tìm thấy một số công cụ sẵn sàng để sử dụng. Kéo Nút ( Kiểm soát biểu mẫu ) từ phía trên cùng bên trái.
- Kéo nút đến vùng mong muốn trên trang tính của bạn và thả nó ra. Hộp thoại có tên Chỉ định Macro sẽ mở. Trong Tên macro trường, chèn Run_UserForm .
Sau đó nhấp vào OK .
- Bây giờ, nếu muốn, bạn có thể thay đổi cách hiển thị của nút. Tôi đã thay đổi nó thành Nhập dữ liệu mới .
Xin chúc mừng! Bạn đã thêm thành công nút để mở biểu mẫu nhập dữ liệu.
Bây giờ, nếu muốn, bạn có thể nhập một nút vào mỗi trang tính của chúng tôi để tăng thêm độ tinh vi cho quy trình.
Đọc thêm: Cách tự động chèn mục nhập dữ liệu dấu thời gian trong Excel (5 phương pháp)
Bài đọc tương tự
- Cách điền Bảng tính Excel từ Biểu mẫu Web
- Tạo Nhật ký Dữ liệu trong Excel (2 Cách Thích hợp)
- Cách Tạo Biểu mẫu Có thể Điền trong Excel (5 Ví dụ Thích hợp)
Bước 3:Đầu ra cuối cùng để tạo biểu mẫu nhập dữ liệu
Chúng tôi đã tạo thành công biểu mẫu nhập dữ liệu bằng Excel VBA và thêm một nút để mở nó. Để xem kết quả đầu ra, hãy nhấp vào nút Nhập dữ liệu mới trên trang tính.
Biểu mẫu nhập dữ liệu sẽ mở ra. Trước hết, hãy chọn trang tính mà bạn muốn tạo mục nhập mới.
Ở đây, tôi đã chọn New York . Thời điểm bạn chọn một trang tính, trang tính đó sẽ hoạt động.
- Sau đó, điền vào phần còn lại của dữ liệu mà bạn muốn nhập. Ở đây tôi đã đặt Jennifer Marlo, 444204240, 26 tuổi, và Nữ .
- Sau đó, nhấp vào Nhập dữ liệu .
Bạn sẽ tìm thấy dữ liệu mới được nhập vào hàng cuối cùng của cơ sở dữ liệu.
Đọc thêm: Cách tạo biểu mẫu nhập dữ liệu Excel mà không có UserForm
Những điều cần nhớ
- Trong khi nhập dữ liệu mới, mã tuân theo trình tự của Hộp văn bản của UserForm . Do đó, trong khi thêm Hộp văn bản trên UserForm , duy trì trình tự của các cột trong cơ sở dữ liệu của bạn.
Kết luận
Do đó, đây là quá trình để tạo biểu mẫu nhập dữ liệu cho cơ sở dữ liệu của bạn bằng Excel VBA . Bạn có câu hỏi nào không? Hãy hỏi chúng tôi. Và đừng quên truy cập trang web ExcelDemy của chúng tôi để có thêm bài đăng và cập nhật.
Các bài viết liên quan
- Cách tạo biểu mẫu tự động điền trong Excel (Hướng dẫn từng bước)
- Tạo biểu mẫu nhập dữ liệu với danh sách thả xuống trong Excel (2 phương pháp)
- Cách Tự động Nhập Dữ liệu trong Excel (2 Cách Hiệu quả)
- Hạn chế nhập dữ liệu trong ô Excel (2 phương pháp đơn giản)