Tạo Mục Lục Bằng Cách Lọc Dữ Liệu.

[TuAnAnh94]

Em có 1 bảng dữ liệu excel rất dài theo hàng ngang,mỗi lần nhập dữ liệu rất vất vả. Em muốn tạo 1 box mà khi nhập tiêu đề vào excel sẽ tự lọc các tiêu đề giống trong box.
Cụ thể trong file đính kèm. Em cảm ơn!

 

[Ba Tê]

Em có 1 bảng dữ liệu excel rất dài theo hàng ngang,mỗi lần nhập dữ liệu rất vất vả. Em muốn tạo 1 box mà khi nhập tiêu đề vào excel sẽ tự lọc các tiêu đề giống trong box.
Cụ thể trong file đính kèm. Em cảm ơn!

Có thể là như vầy.

 

[TuAnAnh94]

Cảm ơn thầy Bate đã trả lời.
Thầy có thể giải thích giúp em đoạn bôi "màu" ko ạ.
Với cách thêm "Option Explicit" vào code. Vì sheet đó của em cũng đã có trước 1 code rồi.

Option Explicit​

​

Private Sub BaTe_Change()​

Application.ScreenUpdating = False​

Dim TieuDe As Range, J As Long, Txt As String, Col As Long, N As Long​

Cells.EntireColumn.Hidden = False​

Txt = Range("B1").Value​

Col = Range("XFD4").End(xlToLeft).Column​

Set TieuDe = Range("A4").Resize(, Col)​

N = 16384 - Col​

Cells(1, Col + 1).Resize(, N).EntireColumn.Hidden = True​

For J = 5 To Col​

If Cells(4, J).Value <> Txt Then Cells(4, J).EntireColumn.Hidden = True​

Next J​

End Sub​

 

[Ba Tê]

Cảm ơn thầy Bate đã trả lời.
Thầy có thể giải thích giúp em đoạn bôi đỏ ko ạ.
Với cách thêm "Option Explicit" vào code. Vì sheet đó của em cũng đã có trước 1 code rồi.

Option Explicit​

​

Private Sub BaTe_Change()​

Application.ScreenUpdating = False​

Dim TieuDe As Range, J As Long, Txt As String, Col As Long, N As Long​

Cells.EntireColumn.Hidden = False​

Txt = Range("B1").Value​

Col = Range("XFD4").End(xlToLeft).Column​

Set TieuDe = Range("A4").Resize(, Col)​

N = 16384 - Col​

Cells(1, Col + 1).Resize(, N).EntireColumn.Hidden = True​

For J = 5 To Col​

If Cells(4, J).Value <> Txt Then Cells(4, J).EntireColumn.Hidden = True​

Next J​

End Sub​

Chú ý không viết font chữ màu đỏ (Chỉ dùng cho BQT diễn đàn)
Option Explicit nếu có rồi thì thôi, chỉ dùng 1 dòng trên cùng thôi.
Giải thích thì tôi chịu, chỉ học lóm trên GPE này không qua trường lớp nào cả nên lý thuyết chẳng giải thích được.

 

[phulien1902]

Chú ý không viết font chữ màu đỏ (Chỉ dùng cho BQT diễn đàn)
Option Explicit nếu có rồi thì thôi, chỉ dùng 1 dòng trên cùng thôi.
Giải thích thì tôi chịu, chỉ học lóm trên GPE này không qua trường lớp nào cả nên lý thuyết chẳng giải thích được.

Bác nói: chỉ học lóm trên GPE này không qua trường lớp nào .
Nhưng em thấy những gì mà bác đã làm được, bác còn giỏi hơn hàng nghìn người có học hành đàng hoàng.
Chúc bác dồi dào sức khỏe, cống hiến nhiều kiến thức cho cộng đồng!

 

[Ba Tê]

... bác còn giỏi hơn hàng nghìn người có học hành đàng hoàng.

Câu này thì "không xong rồi".

 

[phulien1902]

Câu này thì "không xong rồi".

Em biết, mọi sự so sánh đều là khập khiễng.
Nhưng có một chân lý luôn đúng, đó là:
Hữu xạ tự nhiên hương

 

[TuAnAnh94]

Thầy Ba tê cho em hỏi có thể xài 2 code VBA khác nhau cho chung 1 sheet ko?
Vd như 1 code để lọc 1 code để làm mục lục như câu hỏi của em.

 

[Ba Tê]

Thầy Ba tê cho em hỏi có thể xài 2 code VBA khác nhau cho chung 1 sheet ko?
Vd như 1 code để lọc 1 code để làm mục lục như câu hỏi của em.

- giaiphapexcel.com(GPE)
Thấy file, thấy yêu cầu, thấy kết quả muốn có và giải thích rõ làm thế nào để có kết quả như vậy, ... lúc đó mới có câu trả lời chính xác và có code chính xác được.
Bây giờ trả lời bạn chỉ có thể là "Có thể được, có thể không".
Bạn "hà tiện công gõ" vài phím: "vd", "ko" ... thì khó hy vọng mọi người viết code đầy đủ ký tự cho bạn!
GPE là chính xác từng câu lệnh, từng câu chữ ... và tôi là thành viên GPE!

 

[TuAnAnh94]

Cảm ơn thầy đã nhắc nhở. Em sẽ chú ý hơn trong các bài đăng sau.
Em có nhặt nhạnh đc vài code trên diễn đàn và muốn áp dụng vào công việc. Viết chung trong 1 sheet nên nó cứ lỗi hoài. Trình độ của em có hạn, nghiền ngẫm mãi ko ra nên nhờ các thầy trên diễn đàn chỉ giáo.