xin code hiện một nhóm sheet cùng chủ đề

J

jukohoivisao

New Member
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 ý
 
T

tctuvan

New Member
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")

Code: 
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
 
J

jukohoivisao

New Member
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 !!!
 
T

tctuvan

New Member
bạn thử lại code này
Code: 
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
 
Bạn phải đăng nhập hoặc đăng ký để trả lời ở đây.
Các chủ đề có liên quan khác
Tạo bởi Tiêu đề Blog Lượt trả lời Ngày
C NB xin code Card Recovery Pro 2.6.5 InterNet 3
B Xin code add bạn vào group facebook InterNet 2
P Xin hỏi cách unlock code USB 3G Vinaphone MF190 InterNet 0
K Xin code matlab mô phỏng trong gps!!!! Sinh viên chia sẻ 0
P Xin AE Ketnooi giúp về vấn đề cài đặt code gag việt 6.2 ạ :( Thủ thuật tin học 0
M xin code Gcafe InterNet 2
C Xin code nguồn phá băng thông mf-190s InterNet 4
H Ai có link phim hoạt hình code lyoko từ season 2-4 ko cho xin với tks nhiều Vui Cười Chém Gió 4
T Xin invite code torrentleech.org InterNet 1
S xin trọn bộ [vietsub] code lyoko Vui Cười Chém Gió 9

Các chủ đề có liên quan khác

Top