ẩn nhiện sheet với vbal

[levanhung123]

em có 1 file mà muốn ẩn sheest , em hiện các sheet theo cụm đã tô màu, em muốn chỉ hiện các sheet màu đó còn các sheet kia sẽ tự động ẩn ,, mong mọi người chỉ giùm ạ

 

[BuiQuangThuan]

Bạn duyệt qua từng sheet. Sheet nào không thoả mãn điều kiện của bạn thì ẩn đi. Viết code theo logic đó chắc là ổn

 

[Maika8008]

Ghi macro việc tô màu sheet và ẩn sheet, hiện sheet rồi tự suy luận, biên tập lại các lệnh. Dễ hơn hút ốc.

em có 1 file mà muốn ẩn sheest , em hiện các sheet theo cụm đã tô màu, em muốn chỉ hiện các sheet màu đó còn các sheet kia sẽ tự động ẩn ,, mong mọi người chỉ giùm ạ

 

[levanhung123]

mong mọi người giúp em với ạ.

 

[Hoàng Tuấn 868]

mong mọi người giúp em với ạ.

Đã có 2 thành viên giúp bạn rồi đó, bạn chỉ việc thực hiện theo hướng dẫn thôi. Nếu vướng mắc trong khi thực hiện thì đưa lên hỏi tiếp chứ không làm gì cả mà nhờ từ đầu đến cuối thì không nên.

 

[Gà Công Nghệ]

mong mọi người giúp em với ạ.

Bạn xem lại nội quy diễn đàn, rồi xem lại tiêu đề và nội dung của bạn (xem ghi có lỗi gì không). Thân!.

 

[barney1]

sub luyen_go_code_cho_be_hung123
Range("A1:C7").select
seclection.autofilter
activesheet.range("$a$1:$c$7").autofilter field:=3, criterial:=sheet1.range("f2")
selection.copy
sheets.add after:=sheets(sheets.count)
activesheet.name= sheet1.range("f2")
sheets("sheet1").select
section.autofilter
sub
' Dang luyen tap hihi

 

[Hoàng Tuấn 868]

sub luyen_go_code_cho_be_hung123
Range("A1:C7").select
seclection.autofilter
activesheet.range("$a$1:$c$7").autofilter field:=3, criterial:=sheet1.range("f2")
selection.copy
sheets.add after:=sheets(sheets.count)
activesheet.name= sheet1.range("f2")
sheets("sheet1").select
section.autofilter
sub
' Dang luyen tap hihi

Kiểm tra lại đi chứ sai be bét rồi kìa. Mà hình như không liên quan gì đến ẩn, hiện sheet thì phải.

 

[Thóc Sama]

Kiểm tra lại đi chứ sai be bét rồi kìa. Mà hình như không liên quan gì đến ẩn, hiện sheet thì phải.

Đích thị không nhìn thấy dòng nào là .Visible=xlSheetHidden (hay đại loại thế cả).

 

[Hoàng Tuấn 868]

Đích thị không nhìn thấy dòng nào là .Visible=xlSheetHidden (hay đại loại thế cả).

Khả năng là bài #7 chép ở đâu về nhưng không chạy thử, cũng không biết chức năng của nó làm gì. Nếu có chạy thử cũng không chạy được vì đang thiếu một số thứ.

 

[namvu230397]

Sub Ansheet()
Dim ws As Worksheet
Dim wb As Workbook

Set wb = ActiveWorkbook
For Each ws In wb.Worksheets
    If ws.Tab.ColorIndex = xlColorIndexNone Then
        ws.Visible = xlSheetHidden
    End If
Next
End Sub

Bạn có thể dùng mã sau

 

[kelacloi]

Nghịch chatGpt tý.

Không biết có phải nó lấy từ trên này không mà giống thế.

Sub HideSheetsWithNoTabColor()
    Dim ws As Worksheet
    
    ' Loop through each sheet in the workbook
    For Each ws In ThisWorkbook.Worksheets
        ' Check if tab color of the sheet is set to None
        If ws.Tab.ColorIndex = xlColorIndexNone Then
            ' Hide the sheet
            ws.Visible = False
        End If
    Next ws
End Sub

Bài đã được tự động gộp: 15/4/23

Nghịch chatGpt tý.

Không biết có phải nó lấy từ trên này không mà giống thế.

Sub HideSheetsWithNoTabColor()
    Dim ws As Worksheet
   
    ' Loop through each sheet in the workbook
    For Each ws In ThisWorkbook.Worksheets
        ' Check if tab color of the sheet is set to None
        If ws.Tab.ColorIndex = xlColorIndexNone Then
            ' Hide the sheet
            ws.Visible = False
        End If
    Next ws
End Sub

Cách khác từ con chat:

Sub HideSheetsWithNoTabColor()
    Dim ws As Worksheet
    Dim tabColor As Long
    
    ' Loop through each sheet in the workbook
    For Each ws In ThisWorkbook.Worksheets
        ' Get the tab color of the sheet
        tabColor = GetTabColor(ws)
        
        ' Check if tab color of the sheet is None
        If tabColor = 0 Then ' 0 represents no tab color
            ' Hide the sheet
            ws.Visible = False
        End If
    Next ws
End Sub

Function GetTabColor(ws As Worksheet) As Long
    ' Function to get the tab color of a worksheet
    ' Returns the RGB value of the tab color, or 0 if no tab color is set
    On Error Resume Next
    GetTabColor = ws.Tab.Color
    On Error GoTo 0
End Function

 

[namvu230397]

Không biết có phải nó lấy từ trên này không mà giống thế.

Dạ thưa bác là những bài như này không cần thiết phải hỏi đến GPT ạ

 

[Maika8008]

Dạ thưa bác là những bài như này không cần thiết phải hỏi đến GPT ạ

Ai có tài khoản thì hỏi con chat này cho nhanh chứ bạn. Như yêu cầu của thớt thì nó trả lời quá tốt, code xài được luôn.

Còn chủ thớt, ngoài việc năn nỉ thì không có chút chịu khó học hỏi nào, cả sự kiên nhẫn nữa. Hôm qua sau khi năn nỉ là bỏ đi luôn, không thấy liếc mắt xem kết quả thế nào. Chắc là lên fb được người khác giúp rồi.

 

[SA_DQ]

. . . . .
Còn chủ thớt, ngoài việc năn nỉ thì không có chút chịu khó học hỏi nào, cả sự kiên nhẫn nữa. Hôm qua sau khi năn nỉ là bỏ đi luôn, không thấy liếc mắt xem kết quả thế nào. Chắc là lên fb được người khác giúp rồi.

Sau khi năn nỉ đến hơn tiếng đồng hồ mới rời khỏi GPE.COM kia mà;
Nói oan cho em nó quá!

 

[namvu230397]

Ai có tài khoản thì hỏi con chat này cho nhanh chứ bạn. Như yêu cầu của thớt thì nó trả lời quá tốt, code xài được luôn.

Còn chủ thớt, ngoài việc năn nỉ thì không có chút chịu khó học hỏi nào, cả sự kiên nhẫn nữa. Hôm qua sau khi năn nỉ là bỏ đi luôn, không thấy liếc mắt xem kết quả thế nào. Chắc là lên fb được người khác giúp rồi.

Em cũng có tài khoản này, nhiều khi đăng bài ở đây xong là em cũng ra hỏi nó. Lắm lúc con bot còn thua các bác ấy chứ

 

[Maika8008]

Em cũng có tài khoản này, nhiều khi đăng bài ở đây xong là em cũng ra hỏi nó. Lắm lúc con bot còn thua các bác ấy chứ

ChatGPT hoặc Bing New được cái là trả lời ngay, cho mình cái ý tưởng cộng cái sườn của code. Theo đó mà mình chỉnh sửa lại để dùng cho phù hợp.

 

[VetMini]

"Con chat" của quý vị code như hạch.
Chịu khó xem lại cách nó code xem.

 

[kelacloi]

Dạ thưa bác là những bài như này không cần thiết phải hỏi đến GPT ạ

Em không có ý là bác lấy từ nó, ý của em là ngược lại, nó lấy trên này, mỗi lần nó trả lời một kiểu mà.
Em chỉ chat hỏi nó cho vui thế thôi.

 

[htin1997]

Em không biết các bác cốt kiết thế nào chứ em thấy đoạn này nè:

Chủthớt.Visible =xlSheetVeryHiden