[Xin giúp đỡ] Macro ẩn hiện Sheet

[tvgtyb08]

Mình không thạo về Macro, mình muốn tạo Option Button để ẩn hiện file. Mình xem trên mạng và dùng 2 cách dưới đều bị lỗi không được, mong các bác xem giúp.

Sub Cach1()
Dim Sheet_1 As Worksheet
Dim Sheet_2 As Worksheet
Dim Sheet_3 As Worksheet
Dim Sheet_4 As Worksheet
Dim Sheet_5 As Worksheet
Dim Sheet_6 As Worksheet
Set Sheet_1 = Worksheets(Sheet1)
Set Sheet_2 = Worksheets(Sheet2)
Set Sheet_3 = Worksheets(Sheet3)
Set Sheet_4 = Worksheets(Sheet4)
Set Sheet_5 = Worksheets(Sheet6)
Set Sheet_6 = Worksheets(Sheet7)
        Sheet_1.Visible = xlSheetVisible
        Sheet_2.Visible = xlSheetHidden
        Sheet_3.Visible = xlSheetHidden
        Sheet_4.Visible = xlSheetHidden
        Sheet_5.Visible = xlSheetHidden
        Sheet_6.Visible = xlSheetHidden
    Sheets1.Select
End Sub

Sub Cach2()
        Sheets("Sheet1").Select
    ActiveWindow.SelectedSheets.Visible = True
        Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet3").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet4").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet5").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet6").Select
    ActiveWindow.SelectedSheets.Visible = False
Sheets("Sheet1").Select
End Sub

 

[snow25]

Mình không thạo về Macro, mình muốn tạo Option Button để ẩn hiện file. Mình xem trên mạng và dùng 2 cách dưới đều bị lỗi không được, mong các bác xem giúp.

Sub Cach1()
Dim Sheet_1 As Worksheet
Dim Sheet_2 As Worksheet
Dim Sheet_3 As Worksheet
Dim Sheet_4 As Worksheet
Dim Sheet_5 As Worksheet
Dim Sheet_6 As Worksheet
Set Sheet_1 = Worksheets(Sheet1)
Set Sheet_2 = Worksheets(Sheet2)
Set Sheet_3 = Worksheets(Sheet3)
Set Sheet_4 = Worksheets(Sheet4)
Set Sheet_5 = Worksheets(Sheet6)
Set Sheet_6 = Worksheets(Sheet7)
        Sheet_1.Visible = xlSheetVisible
        Sheet_2.Visible = xlSheetHidden
        Sheet_3.Visible = xlSheetHidden
        Sheet_4.Visible = xlSheetHidden
        Sheet_5.Visible = xlSheetHidden
        Sheet_6.Visible = xlSheetHidden
    Sheets1.Select
End Sub

Sub Cach2()
        Sheets("Sheet1").Select
    ActiveWindow.SelectedSheets.Visible = True
        Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet3").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet4").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet5").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet6").Select
    ActiveWindow.SelectedSheets.Visible = False
Sheets("Sheet1").Select
End Sub

bây giờ bạn muốn ẩn thế nào ẩn toàn bộ chỉ để lại 1 sheets thôi hay là có lựa chọn

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

Mình không thạo về Macro, mình muốn tạo Option Button để ẩn hiện file. Mình xem trên mạng và dùng 2 cách dưới đều bị lỗi không được, mong các bác xem giúp.

Sub Cach1()
Dim Sheet_1 As Worksheet
Dim Sheet_2 As Worksheet
Dim Sheet_3 As Worksheet
Dim Sheet_4 As Worksheet
Dim Sheet_5 As Worksheet
Dim Sheet_6 As Worksheet
Set Sheet_1 = Worksheets(Sheet1)
Set Sheet_2 = Worksheets(Sheet2)
Set Sheet_3 = Worksheets(Sheet3)
Set Sheet_4 = Worksheets(Sheet4)
Set Sheet_5 = Worksheets(Sheet6)
Set Sheet_6 = Worksheets(Sheet7)
        Sheet_1.Visible = xlSheetVisible
        Sheet_2.Visible = xlSheetHidden
        Sheet_3.Visible = xlSheetHidden
        Sheet_4.Visible = xlSheetHidden
        Sheet_5.Visible = xlSheetHidden
        Sheet_6.Visible = xlSheetHidden
    Sheets1.Select
End Sub

Sub Cach2()
        Sheets("Sheet1").Select
    ActiveWindow.SelectedSheets.Visible = True
        Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet3").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet4").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet5").Select
    ActiveWindow.SelectedSheets.Visible = False
        Sheets("Sheet6").Select
    ActiveWindow.SelectedSheets.Visible = False
Sheets("Sheet1").Select
End Sub

đây bạn xem nhé

 

[tvgtyb08]

bây giờ bạn muốn ẩn thế nào ẩn toàn bộ chỉ để lại 1 sheets thôi hay là có lựa chọn

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

đây bạn xem nhé

Cảm ơn bác đã Reply, mình muốn hiện 2 sheets mặc định sẵn, còn lại ẩn hết. Bác chỉ giúp với

 

[snow25]

Cảm ơn bác đã Reply, mình muốn hiện 2 sheets mặc định sẵn, còn lại ẩn hết. Bác chỉ giúp với

ở trên mình viết code rồi đó bác muốn sheets nào hiện thì thêm điều kiện vào là được.

 

[tvgtyb08]

ở trên mình viết code rồi đó bác muốn sheets nào hiện thì thêm điều kiện vào là được.

Ví dụ mình muốn cho Sheet1 và Sheet2 hiện thì viết thế nào bác nhỉ?

Sub an()
Dim sh As Worksheet
For Each sh In Application.Sheets
    If sh.Name <> "Sheet1" And sh.Name <> "sheet2" Then
       sh.Visible = False
    End If
Next
End Sub

 

[snow25]

Ví dụ mình muốn cho Sheet1 và Sheet2 hiện thì viết thế nào bác nhỉ?

Sub an()
Dim sh As Worksheet
For Each sh In Application.Sheets
    If sh.Name <> "Sheet1" And sh.Name <> "sheet2" Then
       sh.Visible = False
    End If
Next
End Sub

đúng rồi đó bạn nhưng cái chỗ này bạn phải viết hoa lên nó mới nhận đúng
If sh.Name <> "Sheet1" And sh.Name <> "Sheet2" Then

 

[thanhdatx2bk]

Mình có file sẵn này, hi vọng giúp được bạn. Nguồn từ Webkynang.vn

 

[tvgtyb08]

Mình có file sẵn này, hi vọng giúp được bạn. Nguồn từ Webkynang.vn

Rất cảm ơn bác.