Sử dụng Combo box trong trình bày và thống kê dữ liệu (1 người xem)

[litaona]

Mình hiện tại đang có dự án như thế này các cao thủ vào chỉ giúp mình với nhé. Ai ở hn thì cho mình xin sdt vì có thể gặp trực tiếp dễ trao đổi hon
Cụ thể là mình có một bảng dữ liệu rất chi tiết gồm rất nhiều cột và dòng là mô tả các thông tin khách hang
Bay giơ mình muốn xuất sang sheet mới và hide bảng dữ liệu này chỉ hiện lên một ô combox. khi nhấp vào đấy thì chỉ show ra các cột thông tin mà mình muốn hiện ra .
Cảm ơn các bác
Mình gửi file thông tin thô

 

[nhapmon]

@litaona
mình đang thực tập đoạn code của anh Ndu,
post lên để bạn tham khảo và nhờ anh Ndu chỉ dạy thêm
p/s, nếu lít bạn dài quá, bạn nên sử dụng textbox kết hợp listbox. bạn search tìm trên diễn đàn (mình sử dụng code anh QuangHai, chạy rất tốt)

@ anh Ndu
tôi đang học làm theo đoạn code này
http://www.giaiphapexcel.com/forum/...alidation-2-cột-hoặc-những-thủ-thuật-tương-tự

áp dụng cho bài này, nhưng sao lúc thì chọn nó nhảy đúng thứ tự các cột lúc lại ko.
với lại muốn xóa cũng không được
nhờ anh chỉ giúp thêm
tks

 

[ndu96081631]

@litaona
mình đang thực tập đoạn code của anh Ndu,
post lên để bạn tham khảo và nhờ anh Ndu chỉ dạy thêm
p/s, nếu lít bạn dài quá, bạn nên sử dụng textbox kết hợp listbox. bạn search tìm trên diễn đàn (mình sử dụng code anh QuangHai, chạy rất tốt)

@ anh Ndu
tôi đang học làm theo đoạn code này
http://www.giaiphapexcel.com/forum/...alidation-2-cột-hoặc-những-thủ-thuật-tương-tự

áp dụng cho bài này, nhưng sao lúc thì chọn nó nhảy đúng thứ tự các cột lúc lại ko.
với lại muốn xóa cũng không được
nhờ anh chỉ giúp thêm
tks

Code của bạn là:

ActiveCell.Resize(, 8).Value = .Find(ComboBox1.Value).Resize(, 8).Value

Hãy sửa thành:

ActiveCell.Resize(, 8).Value = [COLOR=#ff0000].Resize(, 1)[/COLOR].Find(ComboBox1.Value, [COLOR=#ff0000], xlValues, xlWhole[/COLOR]).Resize(, 8).Value

Còn về cái vụ không xóa được dữ liệu, bạn thêm code này vào nhé:

Private Sub ComboBox1_DropButtonClick()
  Dim Arr
  Arr = Sheet1.Range("SoLieu")
  ComboBox1.ListFillRange = ""
  ComboBox1.List() = Arr
End Sub

 

[litaona]

Chào bạn nhập môn mình đọc qua cái bạn gửi thấy cũng gần giống như mình mong muốn rồi nhưng ý mình là chi cần vào ô combox ví dụ để ở đầu sheet lựa chọn ví dụ Mã chi nhánh là show ra các cột mình muốn show ra luôn.

Mình cũng ko bít code là nào bạn ah. mình mới nhập môn mà.

Ps: anh nu có ở hn ko thì cho em xin sdt với

 

[litaona]

Ah trong trường hợp nhiều dòng có mã chi nhánh trùng nhau thì lam sao chỉ cần nhập một má CN vào ô combox thì nó hiện ra được các dòng còn lại cùng Mã CN dc nhỉ