Xin Code Macro Filter

[hptnvnn2]

Mình đang cần 1 macro để thay thế Autofill trong Excel vì 1 lý do :
Khi mình sử dụng auto fill mình fill theo cột xong hết fill qua cột khác để lấy thông tin chính xác nhất nhưng khi fill xong 1 người chính xác nhất rồi muốn fill tiếp người khác thì phải chọn all lại hết mấy cái fill kia để hiện all hết , cái này nhức đầu nhất , bảng excel mình có gần 2000 người trong 1 danh sách fill dùng 5 cột để ra kết quả chính xác nhưng làm vậy rất mất thời gian, mình có 1 giải pháp xin các bạn có thể giúp cho mình code macro giải pháp là như thế này
1. Khi mình fill hết 5 cột mình chọn All nó sẽ tự trả 5 cột kia về all , nếu có thêm chức năng 30s ko ai sử dụng fill thì tự trả về all hết 5 côt fill all thì cảm ơn rất nhiều

 

[ndu96081631]

Mình đang cần 1 macro để thay thế Autofill trong Excel vì 1 lý do :
Khi mình sử dụng auto fill mình fill theo cột xong hết fill qua cột khác để lấy thông tin chính xác nhất nhưng khi fill xong 1 người chính xác nhất rồi muốn fill tiếp người khác thì phải chọn all lại hết mấy cái fill kia để hiện all hết , cái này nhức đầu nhất , bảng excel mình có gần 2000 người trong 1 danh sách fill dùng 5 cột để ra kết quả chính xác nhưng làm vậy rất mất thời gian, mình có 1 giải pháp xin các bạn có thể giúp cho mình code macro giải pháp là như thế này
1. Khi mình fill hết 5 cột mình chọn All nó sẽ tự trả 5 cột kia về all , nếu có thêm chức năng 30s ko ai sử dụng fill thì tự trả về all hết 5 côt fill all thì cảm ơn rất nhiều

Hình như cái bạn đang nói là AutoFilter chứ nhỉ
Nếu muốn nhiều điều kiện lọc hơn thì người ta dùng Advanced Filter ---> Và cụ thể như thế nào có lẽ bạn phải vào Help của Excel để tự tìm hiểu ---> Vì có ai biết dử liệu của bạn thế nào đâu mà hướng dẩn (có file đính kèm thì lại khác)
???

 

[hptnvnn2]

mình thật sự không biết phải làm sao để fill 1 cột all , mà mấy cột còn lại tự qua all hết bạn biết thì giúp luôn đi minh ko biết

 

[ndu96081631]

mình thật sự không biết phải làm sao để fill 1 cột all , mà mấy cột còn lại tự qua all hết bạn biết thì giúp luôn đi minh ko biết

Thử code này xem

Sub ShowAll()
  Dim i As Long
  With ActiveSheet.AutoFilter
    For i = 1 To .Filters.Count
      .Range.AutoFilter i
    Next
  End With
End Sub

Tham khảo bài này:
http://www.giaiphapexcel.com/forum/showthread.php?t=16961
Bài đó là TÔ MÀU khi AutoFilter, còn yêu cầu của bạn là ShowAll Data ---> Vậy về mặt ý nghĩa là giống nhau

 

[hptnvnn2]

mình vẫn không hiểu giống nhau về mặt nào mình không phải tính tô màu mà mình muốn dùng 5 cột Autofill dùng xong mình xài 1 cột autofill để fill all thì tất cả 4 cột còn lại cũng sẽ tự autofill all hết

 

[ndu96081631]

mình vẫn không hiểu giống nhau về mặt nào mình không phải tính tô màu mà mình muốn dùng 5 cột Autofill dùng xong mình xài 1 cột autofill để fill all thì tất cả 4 cột còn lại cũng sẽ tự autofill all hết

Thì... vầy đây (xem trong file)
Ẹc... Ẹc...

 

[boyxin]

mình vẫn không hiểu giống nhau về mặt nào mình không phải tính tô màu mà mình muốn dùng 5 cột Autofill dùng xong mình xài 1 cột autofill để fill all thì tất cả 4 cột còn lại cũng sẽ tự autofill all hết

tốt nhất để bạn có câu trả lời (hướng dẫn) hợp lý, đúng ý mong muốn. Thì bạn đính kèm file dữ liệu của bạn lên để anh em còn nghiên cứu

 

[ndu96081631]

Ai dza... đúng là ngu thật!
Đoạn code của mình là:

Sub ShowAll()
  With ActiveSheet.AutoFilter.Range
    .AutoFilter: .AutoFilter
  End With
End Sub

Tại sao không là:

Sub ShowAll()
  On Error Resume Next
  ActiveSheet.ShowAllData
End Sub

Ẹc... Ẹc....

 

[hoangvuluan]

Macro atFilter

Dưới đây là macro tôi vẫn dùng để giải quyết đề lọc dữ liệu. Vì mới cải tiến lại nên có thể test chưa hết, bạn test và cho ý kiến nhé.

* Một số lưu ý về cách dùng:
1. Để hủy lọc (hiện tất cả = ShowAllData), chỉ cần chọn 1 ô trống và chạy marco
2. Chọn điều kiện lọc theo các cách sau:
- có thể click vào 1 ô bất kỳ trong danh sách để lọc nhanh theo 1 điều kiện tương ứng với cột chứa ô đó.
- có thể dùng Ctrl, hoặc Shift để chọn 1 dãy ô hoặc 1 vài ô trong danh sách để làm điều kiện.
- có thể dùng 2 dòng phía trên / hoặc phía dưới vùng dữ liệu (nhưng phải ngăn cách với vùng dữ liệu ít nhất là 1 dòng trống) để tạo đk như kiểu advance filter (nhưng không cần các tiêu đề vì vị trí của các ô sẽ xác định cột cần lọc).

 

[hptnvnn2]

Ai dza... đúng là ngu thật!
Đoạn code của mình là:

Sub ShowAll()
  With ActiveSheet.AutoFilter.Range
    .AutoFilter: .AutoFilter
  End With
End Sub

Tại sao không là:

Sub ShowAll()
  On Error Resume Next
  ActiveSheet.ShowAllData
End Sub

Ẹc... Ẹc....

Mình đã làm được rồi xin cảm ơn bạn , và tất cả các bạn trong 4Room giúp đỡ

 

[hoangvuluan]

ShowAllData

Ai dza... đúng là ngu thật!
Đoạn code của mình là:

Sub ShowAll()
  With ActiveSheet.AutoFilter.Range
    .AutoFilter: .AutoFilter
  End With
End Sub

Tại sao không là:

Sub ShowAll()
  On Error Resume Next
  ActiveSheet.ShowAllData
End Sub

Ẹc... Ẹc....

Nếu chỉ cần showalldata thì tại sao không gắp biểu tượng này từ Customize\Commands\Data\Show All cho đơn giản, khỏi cần macro!

 

[hptnvnn2]

Tại vì cái bảng của mình có rất nhiều người dùng có 1 số thì biết lệnh Command ShowAll ở đâu 1 số không có biết nên tốt nhất làm 1 cái button để bấm vô dễ nhìn + dễ xài , nhưng bị 1 cái lỗi , lỗi này phải đễ files wa 1 máy rồi share lên đễ không bị xóa nếu để files này trong máy xài chung thì bị xóa row column , mà xử dụng protect thì bị khóa luôn macro T_T
Dù sao cũng đã làm được cảm ơn các bác nhiều