Ẩn hiện sheet tự động trong excel

[satthuvae]

Em chào các Anh/Chị

Hiện tại e có khoảng 6 sheet, trong đó có sheet "trang chu" và các sheet có liên quan

Em muốn tạo nút marco ẩn hiện theo các sheet theo điều kiện khác nhau à.

E xin gửi File đính kèm.

Em xin cám ơn Anh/chị rất nhiều à.

 

[hoanganhvo2612]

Em chào các Anh/Chị

Hiện tại e có khoảng 6 sheet, trong đó có sheet "trang chu" và các sheet có liên quan

Em muốn tạo nút marco ẩn hiện theo các sheet theo điều kiện khác nhau à.

E xin gửi File đính kèm.

Em xin cám ơn Anh/chị rất nhiều à.

Bạn thực hiện thu macro rồi tùy chỉnh tạo các sub theo mong muốn thôi

 

[satthuvae]

Bạn thực hiện thu macro rồi tùy chỉnh tạo các sub theo mong muốn thôi

Do e không biết viết marco nhờ Anh/Chị xem giúp à.

 

[snow25]

Em chào các Anh/Chị

Hiện tại e có khoảng 6 sheet, trong đó có sheet "trang chu" và các sheet có liên quan

Em muốn tạo nút marco ẩn hiện theo các sheet theo điều kiện khác nhau à.

E xin gửi File đính kèm.

Em xin cám ơn Anh/chị rất nhiều à.

Đây là 1 code các cái khác tương tu bạn chỉ thay tên đi là được muốn hiện sheets nào thay tên sheets đó chỗ IF

Sub anhien()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    If UCase(sh.Name) <> UCase("trang chu") And UCase(sh.Name) <> UCase("nguoi phu thuoc") And UCase(sh.Name) <> UCase("thong tin") Then
        sh.Visible = False
    Else
        sh.Visible = True
    End If
Next
End Sub

 

[satthuvae]

Đây là 1 code các cái khác tương tu bạn chỉ thay tên đi là được muốn hiện sheets nào thay tên sheets đó chỗ IF

Sub anhien()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    If UCase(sh.Name) <> UCase("trang chu") And UCase(sh.Name) <> UCase("nguoi phu thuoc") And UCase(sh.Name) <> UCase("thong tin") Then
        sh.Visible = False
    Else
        sh.Visible = True
    End If
Next
End Sub

Dạ e xin cám ơn Anh à.

Bài đã được tự động gộp: 13/12/18

Dạ e xin cám ơn Anh à.

Anh snow25 ơi

Hiện tại e chỉ làm được ẩn đi thôi, ko biết ấn vào nút đó không hiện lại lên à.

Anh xem e sai sót ở đâu à.

Cám ơn Anh

 

[snow25]

Dạ e xin cám ơn Anh à.

Bài đã được tự động gộp: 13/12/18

Anh snow25 ơi

Hiện tại e chỉ làm được ẩn đi thôi, ko biết ấn vào nút đó không hiện lại lên à.

Anh xem e sai sót ở đâu à.

Cám ơn Anh

Bạn muốn hiện cái gì.Nó ẩn đúng yêu cầu của bạn là để lại 3 sheets đó mà.

Public a As Long
Sub Button1_Click()
Dim sh As Worksheet
a = a + 1
If a Mod 2 = 0 Then
For Each sh In ThisWorkbook.Worksheets
    If UCase(sh.Name) <> UCase("trang chu") And UCase(sh.Name) <> UCase("nguoi phu thuoc") And UCase(sh.Name) <> UCase("thong tin") Then
        sh.Visible = False
    Else
        sh.Visible = True
    End If
Next
Else
   For Each sh In ThisWorkbook.Worksheets
       sh.Visible = True
   Next
End If
End Sub

Bạn lắp code này vào xem sao.

 

[Loc Uyen]

Bạn muốn hiện cái gì.Nó ẩn đúng yêu cầu của bạn là để lại 3 sheets đó mà.

Ý bạn ấy là bấm một lần là ẩn, ấn lần hai là hiện, chắc vậy

 

[satthuvae]

Bạn muốn hiện cái gì.Nó ẩn đúng yêu cầu của bạn là để lại 3 sheets đó mà.

Public a As Long
Sub Button1_Click()
Dim sh As Worksheet
a = a + 1
If a Mod 2 = 0 Then
For Each sh In ThisWorkbook.Worksheets
    If UCase(sh.Name) <> UCase("trang chu") And UCase(sh.Name) <> UCase("nguoi phu thuoc") And UCase(sh.Name) <> UCase("thong tin") Then
        sh.Visible = False
    Else
        sh.Visible = True
    End If
Next
Else
   For Each sh In ThisWorkbook.Worksheets
       sh.Visible = True
   Next
End If
End Sub

Bạn lắp code này vào xem sao.

Dạ e cám ơn anh nhiều à.

 

[VetMini]

If UCase(sh.Name) <> UCase("trang chu") And UCase(sh.Name) <> UCase("nguoi phu thuoc") And UCase(sh.Name) <> UCase("thong tin")

UCase("trang chu") là "TRANG CHU". Tính mần chi cho mệt.

 

[VetMini]

Const KHONG_AN = "#trang chu#nguoi phu thuoc#thong tin#"
For Each sh In WorkSheets
If InStr(KHONG_AN, "#" & LCase(sh.Name & "#") = 0 Then sh.Visible = Not sh.Visible
Next sh