Hỏi thêm về AutoFilter (1 người xem)

[anhtuan1066]

Khi làm việc với AutoFilter ta đễ ý thấy có các nút hình tam giác nằm cạnh cell tiêu đề cho mình chọn...
Sau khi chọn vào nút tam giác này và chọn 1 d/k nào đó để lọc thì có cách nào cho nó biến mất luôn mấy nút tam giác này ko?
Có lần tôi đã nhìn thấy 1 file có tính năng như tôi nói ở trên nhưng tôi tự làm mà mò mãi vẫn ko làm dc như thế... (Cái này chỉ mang ý nghĩa thẩm mỹ thôi)
Các bạn giúp 1 tay đi!
ANH TUẤN

 

[TranThanhPhong]

Bác Tuấn thử dùng đoạn code này:

Sub DeleteShape()
'Loop through the Shapes collection
Dim myshape As Shape
For Each myshape In ActiveSheet.Shapes
If myshape.Type = 8 Then myshape.Delete
Next myshape
End Sub

TP.

 

[anhtuan1066]

Uh... đúng rồi... tất nhiên là macro... cám ơn ttphong2007, đễ tôi thử xem..có gì ko hiểu sẽ hỏi tiếp

 

[Mr Okebab]

Bác Tuấn thử dùng đoạn code này:

Sub DeleteShape()
'Loop through the Shapes collection
Dim myshape As Shape
For Each myshape In ActiveSheet.Shapes
If myshape.Type = 8 Then myshape.Delete
Next myshape
End Sub

TP.

Xóa đi thì nặng tay quá. Thôi cho nó vào phòng thôi. Lúc cần thì . . . lôi ra.

Cho vào . . phòng :

Sub HShape()
    Dim myshape As Shape
    For Each myshape In ActiveSheet.Shapes
        If myshape.Type = 8 Then myshape.Visible = msoFalse
    
    Next myshape
    Set myshape = Nothing
End Sub

Lôi ra . . làm tiếp :

Sub UHShape()
    Dim myshape As Shape
    For Each myshape In ActiveSheet.Shapes
        If myshape.Type = 8 Then myshape.Visible = msoTrue
    Next myshape
    Set myshape = Nothing
End Sub

Thân!

 

[vungoc]

Ông này thông minh quá - chẳng chịu bó tay cái nào !
(Đúng là đại cao thủ).

 

[ndu96081631]

Xóa đi thì nặng tay quá. Thôi cho nó vào phòng thôi. Lúc cần thì . . . lôi ra.

Cho vào . . phòng :

Sub HShape()
    Dim myshape As Shape
    For Each myshape In ActiveSheet.Shapes
        If myshape.Type = 8 Then myshape.Visible = msoFalse
    
    Next myshape
    Set myshape = Nothing
End Sub

Lôi ra . . làm tiếp :

Sub UHShape()
    Dim myshape As Shape
    For Each myshape In ActiveSheet.Shapes
        If myshape.Type = 8 Then myshape.Visible = msoTrue
    Next myshape
    Set myshape = Nothing
End Sub

Thân!

Gôm 2 code này thành 1:

Sub HShape()
  Dim myshape As Shape
  For Each myshape In ActiveSheet.Shapes
    If myshape.Type = 8 Then myshape.Visible = Not (myshape.Visible)
  Next myshape
  Set myshape = Nothing
End Sub

 

[Supernoop]

Khi sử dụng AutoFilter tôi lọc ra được cái mình cần nhưng hok biết làm sao để có thể khi lọc thì dòng tổng hok đi theo chẳng biết làm sao nữa. Các bro bày giúp mình với

 

[salam]

Khi sử dụng AutoFilter tôi lọc ra được cái mình cần nhưng hok biết làm sao để có thể khi lọc thì dòng tổng hok đi theo chẳng biết làm sao nữa. Các bro bày giúp mình với

Khi lọc bạn không chọn dòng tổng là được rồi.

 

[Đào Việt Cường]

Sử dụng tiếng Việt

Khi sử dụng AutoFilter tôi lọc ra được cái mình cần nhưng hok biết làm sao để có thể khi lọc thì dòng tổng hok đi theo chẳng biết làm sao nữa. Các bro bày giúp mình với

Dear all,
--------
Xin đừng trả lời các bài viết có sử dụng từ ngữ không có trong từ điển tiếng Việt (từ hok được sử dụng hơn 1 lần thì không phải do lỗi chính tả). Các bạn nên nhắc nhở người viết theo kiểu này, nên giữ cho tiếng Việt trong sáng!

 

[nicecandy06]

Mình mới gia nhập là thành viên nhưng không biết làm thế nào để post câu hỏi cả, nên post bừa vào đây, mọi người thông cảm nhé. Mình đang có vấn đề với Filter, mình có 1 file k hiểu người ta dùng filter ở dạng gì mà có cả thanh lọc ngang nữa, khi click vào đó sẽ hiện ra chi tiết, mình đoán là 1 dạng của filter (advance). Mình đã hỏi cả mấy anh ở 1088 nhưng cũng bó tay k biết là dùng lệnh gì hay function gì trg excel. Cũng khó để miêu tả chi tiết hơn. Mình attached cái workbook này ở đây. Các bác pro chỉ giúp mình nhé. Thanks in advance. Mà làm cách nào để attach file đó vào đây nhỉ???

 

[Đào Việt Cường]

Dear all,
-------
Các bạn vui lòng đọc kỹ nội quy và hướng dẫn của diễn đàn.

Các bạn nên nêu ra thắc mắc trong chủ đề mới để mọi người đọc tập trung hơn!
Mình xin tạm khoá chủ đề này nhé!