Hỏi đáp mọi chủ đề liên qua đến công nghệ thông tin, internet, lập trình, SEO...
Nội quy chuyên mục: Hỏi đáp mọi chủ đề liên qua đến công nghệ thông tin, internet, lập trình, SEO...

- Chuyên nhận giải đáp thắc mắc sử dụng Word, Excel, Power Point

- Ai cần download driver hay Firmware cho máy tính máy in, thì vào đây nhé, tìm gì cũng có Driver 360

- Cập nhật tin tức với Mr Công nghệ tại đây
Hình đại diện của thành viên
By jukohoivisao
#687385 e có 1 file excel 12 sheet gồm 3 sheet chính (TENKH, CDKT, MENU) được mặc định để hiện và luôn hiện
9 sheet làm việc em đã để ẩn (theo code ẩn-hiện toàn bộ sheet trên GPE)
bây giờ em muốn tạo 3 nút ấn trên sheet MENU để khi ấn vào sẽ hiện các sheet cùng chủ đề (tiền, htk, nợ ...)
nút A -> hiện A11, A12, A13
nút B -> hiện B11, B12, B13
nút C -> hiện C11, C12, C13
bác nào biết chỉ giúp em, em Thank !!!
p/s: đây là file cty nên e không được đổi tên tùy ý

Lưu ý khi sử dụng

- Gặp Link download hỏng, hãy đăng trả lời (yêu cầu link download mới), Các MOD sẽ cập nhật link sớm nhất
- Tìm kiếm trước khi đăng bài mới

Chủ đề liên quan:
Hình đại diện của thành viên
By tctuvan
#687496 Cái này phải dùng Macro, bạn áp dụng code này:
Thay thế các Sheet thành Sheet của bạn
VD: Array("A11", "A12", "A13")

Mã: Chọn tất cảSub Group1_Click()
Dim ws As Worksheet
MySheets = Array("Main", "Sheet1", "Sheet2", "Sheet3", "Sheet4")
    Call Hide_Show(MySheets)
End Sub

Sub Group2_Click()
MySheets = Array("Main", "Sheet5", "Sheet6", "Sheet7", "Sheet8")
    Call Hide_Show(MySheets)
End Sub

Sub Group3_Click()
MySheets = Array("Main", "Sheet9", "Sheet10", "Sheet11", "Sheet12")
    Call Hide_Show(MySheets)
End Sub

Sub Group4_Click()
MySheets = Array("Main", "Sheet13", "Sheet14", "Sheet15", "Sheet16")
    Call Hide_Show(MySheets)
End Sub

Function Hide_Show(MySheets)
Application.ScreenUpdating = False
For Each ws In Sheets
    X = Application.Match(ws.Name, MySheets, 0)
    If Not IsError(X) Then
    ws.Visible = True
    Else
    ws.Visible = False
    End If
Hình đại diện của thành viên
By jukohoivisao
#687680 Sub Group1_Click()
Dim ws As Worksheet
MySheets = Array("D110", "D120")
Call Hide_Show(MySheets)
End Sub

Sub Group2_Click()
MySheets = Array("D210", "D220")
Call Hide_Show(MySheets)
End Sub

Sub Group3_Click()
MySheets = Array("G110", "G120")
Call Hide_Show(MySheets)
End Sub

Function Hide_Show(MySheets)
Application.ScreenUpdating = False
For Each ws In Sheets
X = Application.Match(ws.Name, MySheets, 0)
If Not IsError(X) Then
ws.Visible = True
Else
ws.Visible = False
End If


e chạy code nó báo lỗi: Function Hide_Show(MySheets)
Call Hide_Show
bác xem hộ e với !!!
Hình đại diện của thành viên
By tctuvan
#687698 bạn thử lại code này
Mã: Chọn tất cảSub Group1_Click()
Dim WS As Worksheet
MySheets = Array("D110", "D120")
Call Hide_Show(MySheets)
End Sub

Sub Group2_Click()
MySheets = Array("D210", "D220")
Call Hide_Show(MySheets)
End Sub

Sub Group3_Click()
MySheets = Array("G110", "G120")
Call Hide_Show(MySheets)
End Sub

Sub Hide_Show(MySheets)
  Dim WS As Worksheet
  Application.ScreenUpdating = False
  For Each WS In Worksheets(MySheets)
    X = Application.Match(WS.Name, MySheets, 0)
    If WS.Visible = False Then
    WS.Visible = True
    Else
    WS.Visible = False
    End If
  Next
  Worksheets(MySheets(UBound(MySheets))).Activate
  Application.ScreenUpdating = True
End Sub
Kết nối đề xuất:
Learn Synonym
Advertisement