Hỏi về Filter và Sort

[anhtuan1066]

Nhờ các bạn xem giúp code trong file đính kèm... Nhất là ngay chổ IF ấy.. File chạy nhưng tôi vẫn cảm thấy có gì đó ko ổn trong cách đặt điều kiện... Các bạn có thể gợi ý tôi 1 cách nào đó tổng quát hơn 1 chút ko?
ANH TUẤN

Tôi xin nói rõ hơn về ý định file này:
1> Nếu đã thực hiện FilterAndSort rồi thì khi bấm vào Button nó sẽ xóa nội dung cột C
2> Nếu như trước đó chưa FilterandSort thì sẽ thực hiện FilterandSort
Tôi lập luận như sau: Nếu chưa Filter thì cột C chưa có dử liệu và ngược lại... Nhưng.. cảm thấy nó.. sao sao ấy... Có ai có thể gợi ý 1 cách nào khác cụ thể và trực tiếp vấn đề hơn ko?

 

[minhlev]

Em thấy trong code của bác không cần ElseIf + Đkiện + Then + Kquả mà chỉ cần Else: + Kquả thôi.

 

[SoiBien]

Bác làm giống như bác Bắp ấy, file dùng để protect và unprotect sheet, cái buttong nó màu đỏ rồi xanh, mấu chốt là bác thay caption cho nó, đang là filterandSort thì khi bấm vào sẽ chuyển thành "Delete", và ngược lại. Rồi dựa vào cái caption đó bác quyết định làm cái gì.

 

[anhtuan1066]

Ý tôi ko phải hỏi về việc tối ưu code như thế nào.. mà là muốn biết việc đặt điều kiện trong file như thế đã ổn chưa? Chỉ 1 cái IF range("C1").Value ="" hoặc <>"" thì làm sao nói lên dc rằng cột C có dử liệu hay ko? Quan trọng hơn nữa, với IF như thế thì làm sao xác định dc là dử liệu đã dc lọc hay chưa?
Các bạn có hiểu tôi nói ko nhỉ?
Sẳn đây cho hỏi luôn về file tiếp theo đây! Tại sao IF.... THEN rồi xuống dòng thì dc... còn ghi:

Sub Zero()
If ActiveWindow.DisplayZeros = True Then ActiveWindow.DisplayZeros = False
Else: ActiveWindow.DisplayZeros = True
End If
End Sub

thì nó lại báo lỗi
+++++++++++++++++++++++++++++++++++++++++++++
Ah... Soibien có thể giới thiệu cho tôi cái file gì của Bắp mà bạn vừa nói đó.. tôi ko biết nó nằm ở đâu

 

[minhlev]

Bác xem thử cái file này nhé (theo gợi ý của bác Soibien)

 

[anhtuan1066]

Cám ơn minhlev.. tôi hiểu hết tất cả code trong này, trừ 2 dòng:

Sheet1.CmdB1.Accelerator = "D"

và

Sheet1.CmdB1.Accelerator = "F"

Bạn có thể giãi thích nó là cái gì ko?

 

[minhlev]

Thưa bác, 2 dòng đó với mục đích sử dụng phím tắt Alt+D (cho nút Delete Filter Range) và Alt+F (cho nút Filter And Sort).

 

[Mr Okebab]

Ý tôi ko phải hỏi về việc tối ưu code như thế nào.. mà là muốn biết việc đặt điều kiện trong file như thế đã ổn chưa? Chỉ 1 cái IF range("C1").Value ="" hoặc <>"" thì làm sao nói lên dc rằng cột C có dử liệu hay ko? Quan trọng hơn nữa, với IF như thế thì làm sao xác định dc là dử liệu đã dc lọc hay chưa?
Các bạn có hiểu tôi nói ko nhỉ?
Sẳn đây cho hỏi luôn về file tiếp theo đây! Tại sao IF.... THEN rồi xuống dòng thì dc... còn ghi:

thì nó lại báo lỗi
+++++++++++++++++++++++++++++++++++++++++++++
Ah... Soibien có thể giới thiệu cho tôi cái file gì của Bắp mà bạn vừa nói đó.. tôi ko biết nó nằm ở đâu

Bác tham khảo nhé !!

Thân!