Giúp mình viết nút dùng để " lọc dữ liệu" trong excel.

[phankhoi90]

Hiện tại là mình không biết viết nút dùng để lọc dữ liệu như thế nào cả. ví dụ như trong một bảng tính gồm có các thành phần: ngày gửi tiền, kì hạn gửi, lãi suất,....
vậy nên khi mình chọn một hình thức nào rồi click vào nút "loc dữ liệu" thì nó sẽ lọc trong mấy trăm người còn lại khoảng vài chục gì đó.
A nào biết thì chỉ giúp em với. em mới học VBA nên không biết.

 

[huynhnoseed]

Hiện tại là mình không biết viết nút dùng để lọc dữ liệu như thế nào cả. ví dụ như trong một bảng tính gồm có các thành phần: ngày gửi tiền, kì hạn gửi, lãi suất,....
vậy nên khi mình chọn một hình thức nào rồi click vào nút "loc dữ liệu" thì nó sẽ lọc trong mấy trăm người còn lại khoảng vài chục gì đó.
A nào biết thì chỉ giúp em với. em mới học VBA nên không biết.

Bạn bôi đen vùng cần lọc rồi vào Data/Filter/AutoFiler là bạn có được điều bạn muốn. Chúc bạn thành công.

 

[phankhoi90]

Nhưng thầy không cho sử dụng như vậy anh ơi. thầy bắt viết code bang VBA. tạo nút lọc dữ liệu.
A giúp em với.

 

[ChanhTQ@]

Nhưng thầy không cho sử dụng như vậy anh ơi. thầy bắt viết code bang VBA. tạo nút lọc dữ liệu.
A giúp em với.

Code AdvancedFilter: http://www.giaiphapexcel.com/forum/showthread.php?14732-Lọc-dữ-liệu-theo-ngày-tháng/page3

AutoFilter: Xem trong file đính kèm; File này có trên diễn đàn, nhưng mình quên ghi lại tiêu đề topic rồi

 

[spacemanforever]

Nhưng thầy không cho sử dụng như vậy anh ơi. thầy bắt viết code bang VBA. tạo nút lọc dữ liệu.
A giúp em với.

Bạn tham khảo cách tạo button (nút) và macro tại đây.
http://www.giaiphapexcel.com/forum/...book-cho-vào-các-sheet-của-workbook-đang-đóng
Dùng autofilter bằng vba tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?41438-Lỗi-copy-sau-khi-autofilter

chúc bạn thành công

 

[phankhoi90]

cám ơn các bạn. mình đã làm được rồi. Bây giờ mình có điều này muốn nhờ các bạn giúp mình tí.
Thiết kế 2 nút lệnh “Đánh dấu” (CmdDanhdau) và “Xóa dấu” (CmdXoadau) trên
Sheet.
Khi Click nút “Đánh dấu” (CmdDanhdau): chương trình sẽ tô màu nền (BackColor) và
màu chữ (ForeColor) của các phương án lỗ hoặc hòa vốn itrong file đính kèm)
Khi Click nút “Xóa dấu” (CmdXoadau): chương trình sẽ xóa việc tô màu của nút
“Đánh dấu” và trở về hiện trạng như cũ.

 

[ChanhTQ@]

Bạn thử với macro này xem sao:

Sub ToMauTriKhongDuong()
 Dim Rng As Range, Cls As Range
 
 Set Rng = Cells.SpecialCells(xlCellTypeConstants, 21)
 For Each Cls In Rng
   If Cls.Value <= 0 Then
      Cls.Interior.ColorIndex = 38
      Cls.Font.ColorIndex = 3
   End If
 Next Cls
End Sub

Nếu ưng í thì tự làm tiếp cái kia đi nha. (Chắc rằng bạn sẽ tự thôi, đúng không!?!)

 

[phankhoi90]

em đã thử nhưng thấy vẫn không được. Anh có thể chỉ rõ được không ah.
yêu cầu trong file đính kèm.