Giúp đỡ về lọc dữ liệu từ textbox của userform (2 người xem)

Người dùng đang xem chủ đề này

alexanderhuti

Thành viên chính thức
Tham gia
25/8/09
Bài viết
62
Được thích
6
Tôi có 1 vấn đề nhờ anh/chị/em giúp đỡ như sau:
- Khi mở file, sẽ hiển thị lên UserForm1.
- Trong UserForm1, có textbox để nhập dữ liệu. Tại đây tôi sẽ nhập code vào, có 2 loại code:
1. bắt đầu bằng 1A và tiếp theo là 3 ký tự (có thể chữ hoặc số) vd: 1A500, 1A51B
2. bắt đầu bằng S và tiếp theo là 3 ký tự (có thể chữ hoặc số) vd: S123, S1A3

Điều kiện:
- Khi tôi nhập code thỏa mãn 1 trong 2 loại trên, thì sẽ tự động đóng bảng Useform1, rồi lọc dữ liệu ở Cột C (Code) trong file. (nói là nhập, chứ thật ra tôi dùng máy scan mã vạch cầm tay để scan).
- Sau đó, khi nhấn 1 tổ hợp phím tắt (tự đặt) thì lại hiện ra Userform1 để tôi tiếp tục tìm kiếm code khác.

^^ Nghe thì thấy hơi ngây ngô vì chỉ cần dùng chức năng filter là lọc được rồi, cần chi phải bày vẽ ra bảng userform1. ^^ Nhưng tôi muốn học hỏi qua bài này để áp dụng vào file khác. Mong mọi người giúp đỡ.
 

File đính kèm

Tôi có 1 vấn đề nhờ anh/chị/em giúp đỡ như sau:
- Khi mở file, sẽ hiển thị lên UserForm1.
- Trong UserForm1, có textbox để nhập dữ liệu. Tại đây tôi sẽ nhập code vào, có 2 loại code:
1. bắt đầu bằng 1A và tiếp theo là 3 ký tự (có thể chữ hoặc số) vd: 1A500, 1A51B
2. bắt đầu bằng S và tiếp theo là 3 ký tự (có thể chữ hoặc số) vd: S123, S1A3

Điều kiện:
- Khi tôi nhập code thỏa mãn 1 trong 2 loại trên, thì sẽ tự động đóng bảng Useform1, rồi lọc dữ liệu ở Cột C (Code) trong file. (nói là nhập, chứ thật ra tôi dùng máy scan mã vạch cầm tay để scan).
- Sau đó, khi nhấn 1 tổ hợp phím tắt (tự đặt) thì lại hiện ra Userform1 để tôi tiếp tục tìm kiếm code khác.

^^ Nghe thì thấy hơi ngây ngô vì chỉ cần dùng chức năng filter là lọc được rồi, cần chi phải bày vẽ ra bảng userform1. ^^ Nhưng tôi muốn học hỏi qua bài này để áp dụng vào file khác. Mong mọi người giúp đỡ.
Về cơ bản thì code chỉ có thế này:
[GPECODE=vb]Private Sub TextBox1_Change()
If (UCase(TextBox1) Like "S???") Or (UCase(TextBox1) Like "1A???") Then
Sheet1.[A3:K10000].AutoFilter 3, UCase(TextBox1)
End
End If
End Sub[/GPECODE]
Bạn muốn thêm "mắm muối dưa cà" gì đó thì tùy bạn.
Trong file đính kèm, mỗi lần muốn mở Form thì bạn nhấn tổ hợp phím Ctrl+Shift+F, không thích xài Form nữa thì nhấn ESC.
 

File đính kèm

Upvote 0
Em chân thành cảm ơn bác nhiều. ^^ "Mắm muối dưa cà" thì cũng có thêm được chút chút ^^
 
Upvote 0

Bài viết mới nhất

Back
Top Bottom