Hiện combobox theo điều kiện (2 người xem)

[alvinle1205]

Bảng 1

Bảng 2

Giờ có 2 bảng dữ liệu như hình, xin hỏi có cách nào cho hiện combox ở tháng 9 của em học sinh ở bảng 2 khi click vào nó hiện nội dung tháng 9 của bảng dữ liệu 1 để cho mình check vào từng nội dung tương ứng không ạ?

 

[snow25]

Bảng 1
View attachment 225556
Bảng 2
View attachment 225557
Giờ có 2 bảng dữ liệu như hình, xin hỏi có cách nào cho hiện combox ở tháng 9 của em học sinh ở bảng 2 khi click vào nó hiện nội dung tháng 9 của bảng dữ liệu 1 để cho mình check vào từng nội dung tương ứng không ạ?

Bạn là giáo viên à.Mình đọc bạn trình bày chẳng hiểu gì.ít ra cũng cho cái ví dụ chọn xong thì nó ra cái gì chứ.Mà không phải cao nhân có được không bạn.

 

[alvinle1205]

Bạn là giáo viên à.Mình đọc bạn trình bày chẳng hiểu gì.ít ra cũng cho cái ví dụ chọn xong thì nó ra cái gì chứ.Mà không phải cao nhân có được không bạn.

Khi mình click vào cột tháng 9 ở bảng số 2 nó sẽ hiện nội dung + số tiền tương ứng của bảng số 1 để mình lựa chọn, tại mình gà quá nên ai giúp được là cao nhân rồi

 

[hml89]

Khi mình click vào cột tháng 9 ở bảng số 2 nó sẽ hiện nội dung + số tiền tương ứng của bảng số 1 để mình lựa chọn, tại mình gà quá nên ai giúp được là cao nhân rồi

Bạn muốn nó hiện nội dung gì? số tiền là bao nhiêu?

 

[dinhthientan]

Tôi tạo một Form tra cứu, nhờ các anh /chị giúp lọc dữ liêu vào ComboBox như đã ghi chú trên Sheet. Rất cảm ơn các anh / chị.

 

[SA_DQ]

Thay vì xài ComboBox, bạn nên xem xét việc xài ListBox

 

[dinhthientan]

Thay vì xài ComboBox, bạn nên xem xét việc xài ListBox

Cảm ơn bác nhiều lắm

Bài đã được tự động gộp: 30/9/19

Thay vì xài ComboBox, bạn nên xem xét việc xài ListBox

Bác cho e hỏi, sao chọn A, B, C, E thì được nhưng chọn D thì báo lỗi Run-time error 9': Subcript out of range

 

[SA_DQ]

À, còn sai sót; Bạn đến dòng lệnh

  For Dg = 0 To 8

sửa lại dòng lệnh dưới nó thành

        If sRng.Offset(Dg, 1).Value = "" Or (Dg > 0 And sRng.Offset(Dg) <> "") Then

 

[dinhthientan]

À, còn sai sót; Bạn đến dòng lệnh

  For Dg = 0 To 8

sửa lại dòng lệnh dưới nó thành

        If sRng.Offset(Dg, 1).Value = "" Or (Dg > 0 And sRng.Offset(Dg) <> "") Then

Cảm ơn bác nhé