Ẩn các Sheet mà vẫn làm việc được các shheet. (1 người xem)

[maiemveanhnhe]

Mong được sự giúp đở của các bạn. Trân thành cảm ơn. Viết ra code, đừng dùng phương pháp khác. Để mình học hỏi.

 

[maiemveanhnhe]

Các bạn có hiểu ý mình không nửa ta. Thay gì dùng Hyperline và dùng Tool --> Options --> Đánh giấu Sheet Tabs là được, nhưng ý mình muốn dùng trong VBA. Vừa giấu sheet lại vừa liên kết chỉ có vậy thôi các bạn ah. Mình đang tập tành học VBA không có Thầy chỉ nên mình đành học trên đây vậy.HiHiHi. Mong các bạn giúp mình.

 

[ndu96081631]

Các bạn có hiểu ý mình không nửa ta. Thay gì dùng Hyperline và dùng Tool --> Options --> Đánh giấu Sheet Tabs là được, nhưng ý mình muốn dùng trong VBA. Vừa giấu sheet lại vừa liên kết chỉ có vậy thôi các bạn ah. Mình đang tập tành học VBA không có Thầy chỉ nên mình đành học trên đây vậy.HiHiHi. Mong các bạn giúp mình.

Xem bài này:
http://www.giaiphapexcel.com/forum/showthread.php?37055-Tạo-nút-nhấn-để-link-đến-các-sheet
Code cực đơn giản

 

[TrungChinhs]

Mong được sự giúp đở của các bạn. Trân thành cảm ơn. Viết ra code, đừng dùng phương pháp khác. Để mình học hỏi.

Bạn xem file đính kèm có đúng ý bạn không ?
Lưu ý:
1. Tại ô E4 bạn có thể đúp chuột để chọn Import hoặc Export
2. Nếu ô E4 là Import thì lấy dữ liệu từ sheet ẩn về sheet tổng hợp. Nếu ô E4 là Export thì cập nhật dữ liệu từ sheet tổng hợp vào sheet ẩn.
3. Để chọn Sheet làm việc Tại ô F4 bạn nhập số từ 1 đến 10 (vì các sheets ẩn có tên "thang 1" đến "thang 10") và Enter hoặc di chuyển chuột ra khỏi ô E4 để kết thúc.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Sheets("TongHop").[e4] = "Import" Then
    If Target.Address = "$F$4" Then Sheets("thang " & Target & "").[a5].Resize(1000, 50).Copy Sheets("TongHop").[a5]
End If
If Sheets("TongHop").[e4] = "Export" Then
    If Target.Address = "$F$4" Then Sheets("TongHop").[a5].Resize(1000, 50).Copy Sheets("thang " & Target & "").[a5]
End If
End Sub

 

[maiemveanhnhe]

Hihi! Mình Làm được rồi. Cảm Ơn Bạn ndu9608....nha. Mình rất khâm phục tay nghề của bạn quá cao. Mà bạn an tâm đi mình còn hỏi dài dài. Bạn sẵn lòng giúp mình nha. Hihi. Khi nào về An Giang mình chiêu đãi bạn. Một khi đi mai em mới về. Chúc bạn năm mới vui vẽ. Thân ái chào bạn.

 

[maiemveanhnhe]

Mình cũng cảm ơn bạn TrungChinhs nha. Mình cũng chưa hiểu về VBA lắm. Mình sẽ cố gắng hết sức. Nếu có vấn đề gì mình sẽ trao đổi với các bạn sau. Chúc bạn Năm mới thắng lợi mới. Chào bạn.