hoangtrong_vbnd
Thành viên hoạt động



- Tham gia
- 14/1/11
- Bài viết
- 156
- Được thích
- 7
- Giới tính
- Nam
2 có 1 file excel muốn tạo link liên kết đến 2 sheet khác cùng lúc trong khi ẩn hết các sheet, nhưng mấy đoạn code e tìm trên GPE chỉ có liên kết đến 1 sheet. VD như:
Sub LinktoSheet()
With ActiveSheet
With Sheets(.Shapes(Application.Caller).AlternativeText)
.Visible = True: .Select
End With
.Visible = 2
End With
Sheet1.Visible = 1
Sheet2.Visible = 1
Sheet3.Visible = 1
End Sub
nhờ ace giúp e sửa đoạn code này hoặc viết 1 đoạn code mới liên kết đến 2 sheet khác cùng lúc, và có thể sử dụng lặp lại được (VD như tạo nút ấn G500 -> G510 và G520, G400 -> G410 và G420... em cảm ơn !!!
Sub LinktoSheet()
With ActiveSheet
With Sheets(.Shapes(Application.Caller).AlternativeText)
.Visible = True: .Select
End With
.Visible = 2
End With
Sheet1.Visible = 1
Sheet2.Visible = 1
Sheet3.Visible = 1
End Sub
nhờ ace giúp e sửa đoạn code này hoặc viết 1 đoạn code mới liên kết đến 2 sheet khác cùng lúc, và có thể sử dụng lặp lại được (VD như tạo nút ấn G500 -> G510 và G520, G400 -> G410 và G420... em cảm ơn !!!