Lọc dữ liệu từ Form (1 người xem)

[duyangels]

Nhờ các bác giúp làm thế nào mình có thể lọc dự liệu từ Form, hiện tại mình đang lọc bằng chức năng Filter trên excel. Có cách nào đưa lên form với đầy đủ tính năng của Filter. File đính kèm.
Mình thiết kế sẵn bảng lọc dữ liệu nhờ các bác giúp, thank các bác trước.

 

[Let'GâuGâu]

Nhờ các bác giúp làm thế nào mình có thể lọc dự liệu từ Form, hiện tại mình đang lọc bằng chức năng Filter trên excel. Có cách nào đưa lên form với đầy đủ tính năng của Filter. File đính kèm.
Mình thiết kế sẵn bảng lọc dữ liệu nhờ các bác giúp, thank các bác trước.

thử nha...................................................

 

[duyangels]

Cám ơn bác ..................................

 

[duyangels]

Bác Gâu gâu cho e hỏi thêm trường hợp muốn chọn tên khách hàng và chọn thẳng luôn chủng loại hàng luôn hoặc là chọn năm luôn không cần chọn tháng, có được ko bác, hiện tại thì phải chọn từng cái theo thứ tự thì mới được và không xem cả năm được. cám ơn bác trước.

 

[Let'GâuGâu]

Bác Gâu gâu cho e hỏi thêm trường hợp muốn chọn tên khách hàng và chọn thẳng luôn chủng loại hàng luôn hoặc là chọn năm luôn không cần chọn tháng, có được ko bác, hiện tại thì phải chọn từng cái theo thứ tự thì mới được và không xem cả năm được. cám ơn bác trước.

vậy bạn nên xài listbox thay vì combo?

 

[doveandrose]

vậy bạn nên xài listbox thay vì combo?

ủa sao phải xài listbox vậy huynh đài

 

[Let'GâuGâu]

ủa sao phải xài listbox vậy huynh đài

ai biết chủ thớt muốn làm cái gì, tôi nghĩ là để xem thôi, trong listbox thi coi nó sướng hơn.........chắc là vậy.......hên sui

 

[duyangels]

Listbox có thể làm giống chức năng filter của excel được ko bác
Ví dụ 1: em muốn chọn khách hàng và năm cần xem rồi OK lọc được ko bác.
Ví dụ 2: em muốn chọn khách hàng và xem chủng loại da không cần chọn tháng và năm (tức là mặc định sẽ chọn hết tháng và năm).
Ví dụ 3: mở form chọn thẳng năm luôn và xem.
Ví dụ 4: mở form chọn chủng loại da luôn.
...
Giống chức năng filter của excel được ko bác.
Bác xem giúp nhé, thank bác trước.

 

[doveandrose]

tiêu đề bài viết là lọc dữ liệu từ Form . vậy lọc xong xem ở đâu ? chẳng lẽ lọc xong phải tắt form đi rồi xem kết quả trên sheet ?
sao không thiết kế xem kết quả ngay trên form luôn ta ? hay là tôi chưa đọc kĩ form của bạn ?

 

[Let'GâuGâu]

Listbox có thể làm giống chức năng filter của excel được ko bác
Ví dụ 1: em muốn chọn khách hàng và năm cần xem rồi OK lọc được ko bác.
Ví dụ 2: em muốn chọn khách hàng và xem chủng loại da không cần chọn tháng và năm (tức là mặc định sẽ chọn hết tháng và năm).
Ví dụ 3: mở form chọn thẳng năm luôn và xem.
Ví dụ 4: mở form chọn chủng loại da luôn.
...
Giống chức năng filter của excel được ko bác.
Bác xem giúp nhé, thank bác trước.

ý tưởng là của bạn, form của bạn tôi làm theo thôi

 

[doveandrose]

ý tưởng là của bạn, form của bạn tôi làm theo thôi

gì đây ? hi hi

 

[Let'GâuGâu]

gì đây ? hi hi

làm gì có .......hihihiihih

 

[duyangels]

ok cám ơn 2 bác nhiều, như vậy ok hơn nhiều. Bác xem giúp hình như chủng loại da chưa lọc được.

 

[duyangels]

gì đây ? hi hi

Lỗi này mình sữa lại đã ok rồi cám ơn bác. 2 bác xêm giúp chỗ chủng loại da chưa lọc được. cám ơn bác

Private Sub cmdChonlai_Click() [k26:r26].Clear
With FrmLocDthu
.CbbMaKH = ""
.CbbThang = ""
.ComboBox1 = ""
.ComboBox2 = ""
End With
End Sub

 

[Let'GâuGâu]

Lỗi này mình sữa lại đã ok rồi cám ơn bác. 2 bác xêm giúp chỗ chủng loại da chưa lọc được. cám ơn bác

bạn vào module 6, sửa lại sub loc

Sub loc()
Application.ScreenUpdating = False
[A6:H60000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("K25:N26"), CopyToRange:=Range("K28:R28"), Unique:=False
Application.ScreenUpdating = True
End Sub

 

[duyangels]

Ok rồi bác ơi, Nhờ bác giúp thêm chỗ này, mình có thể tính tổng số lượng và doanh số sau khi lọc vào 2 textbox bên dưới được ko bác, Cám ơn bác nhiều. File đính kèm

 

[Let'GâuGâu]

Ok rồi bác ơi, Nhờ bác giúp thêm chỗ này, mình có thể tính tổng số lượng và doanh số sau khi lọc vào 2 textbox bên dưới được ko bác, Cám ơn bác nhiều. File đính kèm

bạn sửa code cho 2 sub này

Private Sub UserForm_Initialize()
  With Me
    .CbbMaKH.List = Range([k7], [k7].End(4)).Value
    .CbbNam.List = Range([M7], [M7].End(4)).Value
    .CbbThang.List = Range([L7], [L7].End(4)).Value
    .CbbLoaida.List = Range([N7], [N7].End(4)).Value
End With
End Sub
===========
Private Sub cmdOk_Click()
[k29:R60000].ClearContents
Me.TtbDoanhSo = ""
Me.TtbSoLuong = ""
loc
ListBox1.List = Range([k29], [k29].End(4)).Resize(, 8).Value
Me.TtbDoanhSo = Format(Application.Sum(Range([r29], [r29].End(4))), "#,##0")
Me.TtbSoLuong = Format(Application.Sum(Range([P29], [P29].End(4))), "#,##0")
End Sub
======================
Private Sub cmdChonlai_Click()
    [k26:r26].Clear
    With FrmLocDthu
    .CbbMaKH = ""
    .CbbThang = ""
    .CbbLoaida = ""
    .CbbNam = ""
    .TtbDoanhSo = ""
    .TtbSoLuong = ""
    End With
End Sub

 

[duyangels]

Ngon rồi bác ơi, Bác có thể giúp e điều chỉnh code để có thể mở formLocDthu khi đang ở sheet khác được ko bác ví dụ đang ở sheet "Menu" chọn Doanh thu để mở formlocDthu luôn, em có thử nhưng ko có dữ liệu, hình như nó lấy dữ liệu sheet hiện tại thì phải. Cám ơn bác.

 

[Let'GâuGâu]

Ngon rồi bác ơi, Bác có thể giúp e điều chỉnh code để có thể mở formLocDthu khi đang ở sheet khác được ko bác ví dụ đang ở sheet "Menu" chọn Doanh thu để mở formlocDthu luôn, em có thử nhưng ko có dữ liệu, hình như nó lấy dữ liệu sheet hiện tại thì phải. Cám ơn bác.

bạn tự dzọc thử xem, bạn ở sheet nào gọi form cũng được miễn là bạn khai báo dữ liệu nguồn nó nằm ở sheet nào
ví dụ như để nạp list cho các combobox

Private Sub UserForm_Initialize()
  With Sheets("NguonDthu")
    FrmLocDthu.CbbMaKH.List = .Range(.[k7], .[k7].End(4)).Value
    FrmLocDthu.ComboBox2.List = .Range(.[M7], .[M7].End(4)).Value
    FrmLocDthu.CbbThang.List = .Range(.[L7], .[L7].End(4)).Value
    FrmLocDthu.ComboBox1.List = .Range(.[N7], .[N7].End(4)).Value
End With
End Sub

 

[duyangels]

cám ơn Bác nhiều.........