Biểu mẫu người dùng Excel - Mẹo Excel

Mục lục

Excel 97 đã giới thiệu Biểu mẫu người dùng mới. Bằng tiếng Anh, hãy dạy tôi cách tạo và sử dụng hộp danh sách.

MrExcel gần đây đã hoàn thành một ứng dụng tùy chỉnh cho một trong những độc giả của chúng tôi. Trong Ứng dụng Excel này, người dùng sẽ nhập 150 điểm dữ liệu cho một số bộ phận cụ thể trên trang tính.

1. Khi nhấp vào một nút, số bộ phận này và các giá trị dữ liệu liên quan được cam kết với cơ sở dữ liệu trên Sheet2. Điều này là tốt, nhưng sau đó chúng tôi cần một cách để người dùng gọi lên một bản ghi từ trang tính 2 để họ có thể xem lại các mục nhập. Tôi muốn cho phép người dùng mở một biểu mẫu có hộp thả xuống hiển thị tất cả các mục trên trang tính

2. Người dùng có thể cuộn qua, chọn một mục và sau đó tôi sẽ kéo các giá trị đó từ trang 2 lên đến trang 1.

Giống như nhiều bạn, tôi đã bắt đầu viết macro Excel trong Excel 5.0. Toàn bộ Macro Editor trong Excel 97 này hơi đáng sợ. Đối với mẹo của tuần này, tôi sẽ chỉ cho bạn từng bước cách tạo hộp danh sách cho dự án này. Tiêu điểm tuần này chỉ là hộp kết hợp. Đối tượng mục tiêu là những người biết kiến thức cơ bản về macro Excel, nhưng chưa bao giờ sử dụng biểu mẫu để tương tác với macro.

Bước đầu tiên: Tôi đã thay đổi các macro hiện có để khi chúng thêm bản ghi vào sheet2, macro sẽ đặt tên cho phạm vi chứa số bộ phận được đặt tên là "PartList". Có một tiêu đề trong ô A1, với mục đầu tiên trong ô A2. Tôi đã sử dụng lệnh End để tìm hàng cuối cùng:

LastRow = Range("A6000").End(xlUp).Row ActiveWorkbook.Names.Add Name:="PartList", RefersTo:="=Sheet2!$A$2:$A$" & LastRow

Bước thứ hai: Bố trí dạng hộp danh sách. Làm theo các bước sau:

Khởi động Trình soạn thảo Visual Basic bằng cách nhấn alt-F11
Từ menu, chọn Chèn> Biểu mẫu Người dùng. Trình chỉnh sửa sẽ cung cấp cho bạn một UserForm1 trống.
Nếu bạn không nhìn thấy hộp Thuộc tính-UserForm1 ở góc dưới bên trái, hãy nhấn vào biểu tượng "Cửa sổ Thuộc tính" - nó trông giống như một bàn tay có ngón tay trỏ vào trang tính màu trắng.
Mục thứ 4 trong cửa sổ thuộc tính là Caption. Ngay bây giờ, Caption sẽ là UserForm1. Bấm vào hộp ở bên phải Chú thích trong cửa sổ Thuộc tính và nhập tiêu đề mới cho biểu mẫu. Tôi đã gọi là "Chọn một số bộ phận để xem xét". Tôi đã để tất cả các thuộc tính khác cho biểu mẫu ở trạng thái mặc định của chúng.
Tạo hộp danh sách bằng cách sử dụng biểu mẫu người dùng
Nhấp lại vào bất kỳ đâu bên trong biểu mẫu người dùng và Hộp công cụ điều khiển sẽ xuất hiện.
Trong hộp công cụ Điều khiển, hãy chọn chữ A. Bấm và kéo để tạo hộp nhãn ở đầu biểu mẫu. Nó mặc định có chú thích là Label1. Nhấp lại vào bên trong hộp văn bản và bạn có thể chỉnh sửa chú thích. Đưa ra hướng dẫn cho người dùng tại đây: "Chọn một mục từ danh sách bên dưới và nhấp vào OK để xem lại các giá trị".
Bấm vào biểu mẫu, nhưng bên ngoài hộp nhãn và bạn sẽ thấy hộp công cụ điều khiển một lần nữa. Vật phẩm thứ 4 trong hàng trên cùng là một công cụ hộp tổ hợp. Nhấp vào đây và kéo trong biểu mẫu người dùng để tạo hộp tổ hợp. Đây là nơi danh sách các bộ phận sẽ xuất hiện. Tên mặc định là ComboBox1.
Thuộc tính hộp tổ hợp
Cửa sổ thuộc tính bây giờ sẽ hiển thị cho bạn các thuộc tính cho ComboBox1. Cuộn xuống qua các thuộc tính cho đến khi bạn thấy thuộc tính RowSource. Đối với thuộc tính RowSource, gõ = Sheet2! PartList
Bây giờ bạn có thể chạy thử nghiệm nhanh để đảm bảo mọi thứ đang hoạt động bình thường. Bấm vào thanh tiêu đề của biểu mẫu người dùng của bạn để chọn toàn bộ biểu mẫu. Bây giờ hãy nhấp vào biểu tượng "phát" (nó trông giống như nút phát trên VCR của bạn). Bạn sẽ được quay lại sổ làm việc Excel của mình và có biểu mẫu người dùng đơn giản của chúng tôi. Nếu bạn nhấp vào menu thả xuống số bộ phận, bạn sẽ thấy danh sách các số bộ phận hợp lệ. Chọn một và nó sẽ ở trong hộp kết hợp. Cho đến nay, không quá thú vị. Nhấp vào dấu X nhỏ ở góc trên bên phải để loại bỏ hộp.
Quay lại trình soạn thảo Visual Basic. Bấm vào biểu mẫu người dùng để hiển thị Hộp công cụ điều khiển. Nhấp vào công cụ CommandButton và vẽ một nút. Thay đổi chú thích thành OK bằng cách sử dụng cửa sổ Thuộc tính - CommandButton1.
Vẽ nút thứ hai và gắn nhãn là Hủy.
Chúng ta đang gần hoàn tất. Hãy gắn một chút mã vào nút Hủy. Nhấp chuột phải vào nút Hủy và chọn "Mã Xem". Editor sẽ thiết lập câu lệnh Sub và End Sub của bạn. Giữa chúng, hãy nhập một dòng mã:
```
UserForm1.Hide
```
Vâng, đó là tất cả những gì cần thiết để gán mã cho một nút. Để quay lại biểu mẫu người dùng, hãy nhấp đúp vào từ UserForm1 trong Cửa sổ dự án. (Bạn không thể thấy cửa sổ dự án? Hãy nhấn vào biểu tượng Project Explorer, ngay bên trái của biểu tượng Thuộc tính.)
Để hoàn thành user form1, hãy làm điều gì đó với nút OK. Khi người dùng nhấp vào OK, tôi muốn giá trị từ hộp danh sách xuất hiện trong sheet1 ô A2 và sau đó tôi muốn khởi chạy macro mà tôi đã viết trước đó có tên là ReviewItem. Nhấp chuột phải vào nút OK và chọn Mã Chế độ xem. Nhập mã này cho Private Sub CommandButton1_Click ():
```
Worksheets("Sheet1").Range("A2") = UserForm1.ComboBox1.Value UserForm1.Hide ReviewItem
```