Xin cho em hỏi combobox có gán macro được không?

[win-sun]

- em muốn mỗi khi chọn giá trị trong combobox thì chạy luôn macro rút filter có được không các anh, xin chỉ giúp, cảm ơn

 

[Hoàng Trọng Nghĩa]

- em muốn mỗi khi chọn giá trị trong combobox thì chạy luôn macro rút filter có được không các anh, xin chỉ giúp, cảm ơn

Bạn cứ viết đoạn code nào đó rồi gán vào thôi

Private Sub ComboBox1_Change()
(Macro của bạn)
End Sub

 

[win-sun]

Bạn cứ viết đoạn code nào đó rồi gán vào thôi

Private Sub ComboBox1_Change()
(Macro của bạn)
End Sub

- Nó báo lổi run-time ban ơi, lúc thì 424, lúc thi 1044 mình chẵng hiểu nữa ???

 

[TrungChinhs]

Vậy Macro của bạn như thế nào ? bạn phải gửi file hoặc code lên thì người ta mới biết đường sửa chứ.

 

[win-sun]

Vậy Macro của bạn như thế nào ? bạn phải gửi file hoặc code lên thì người ta mới biết đường sửa chứ.

- em gửi lại anh xem giúp nhé, trong file đã có macro rồi , em cảm ơn nhiều.

 

[sealand]

Đã viết Macro thì bỏ cột phụ đi và lọc trực tiếp là đủ rôi.Riêng ví dụ của bạn phải chép cái list nguồn ra chỗ khác.
Bạn tham khảo thử file ví dụ nhé (Kiểu lọc =1hải đúng mã, >0:Tất cả có phát sinh)

 

[TrungChinhs]

Bạn xem file đính kèm.

 

[TrungChinhs]

- Bác quên kẹp file cho em rồi, xin gửi lại giúp em nhé huynh ! cảm ơn nhiều

Có File rồi mà bạn thử Load lại xem !

 

[ndu96081631]

Bạn xem file đính kèm.

Anh dùng AutoFilter với cột phụ là cột L ---> Em nghĩ anh dùng Advanced Filter sẽ hay hơn đấy
- Tại L10 anh gõ công thức =COUNTIF($E10:$J10,">0") (1 công thức duy nhất cho 1 cell duy nhất)
- Code sửa lại rất đơn giản:

Private Sub ComboBox1_Change()
  Range("E9:J1000").AdvancedFilter 1, [L9:L10]
End Sub

Mà nghĩ cũng lạ ---> Cái này chỉ là ẩn các dòng trống, theo lý ta nên dùng Command Button thì đúng hơn chứ... (Với ComboBox, chọn cái gì nó cũng làm 1 công việc, thấy tếu tếu...)

 

[ptm0412]

Code Autofilter của cả chủ topic lẫn của Trung Chinh đều không có gì sai mà vẫn báo lỗi.

Lý do: ListFillRange của Combobox là 1 name của vùng $N$9:$N$16, nằm trong vùng bị filter. Khi Filter, 1 vài dòng bị dấu đi, Name tự tính lại, ListFillRange bị gán lại, Combobox nhận lại giá trị, tức là Combobox bị change lần 2, code chạy lần 2, nên bị lỗi.

Chỉ cần dời cái list "LISTDS" ra khỏi vùng filter, hoặc qua sheet khác là OK.
Xem lại thì Sealand cũng mới phát hiện ra!

"Thấy tếu tếu", lẽ ra filter cột B thì phải hơn nhỉ?

 

[TrungChinhs]

Tôi đang thắc mắc việc bạn chọn mã hiệu nếu không để lọc theo tên mã thì làm như vầy để làm gì nhỉ ?
Nếu lọc theo mã thì tôi đã sửa lại code và danh mục List (trong File đính kèm). Còn nếu không thì bạn làm theo cách cũ.

 

[sealand]

Đỡ phức tạp ta cứ xét
1/Theo ý chủ Topic dòng nào có cột G+J>0 thì cho hiện còn lại Hide đi (Như lọc >0 nhưng không dùng AutoFilter)
2/Lọc theo mã chọnòng nào có cột B=mã và J+ G>0 thì cho hiện còn lại Hide đi (Như lọc =1 nhưng không dùng AutoFilter)