Cho tôi hỏi khi tôi ẩn các Sheet đi không hiện được bằng lệnh unhide làm thế nào để vẫn liên kết tới các sheet được, khi làm việc thì chỉ có một sheet thôi các sheet còn lại đều ẩn hết. Ai biết xin chỉ dùm cảm ơn?
Xin hướng dẫn: Ẩn Sheet nhưng vẫn liên kết được (1 người xem)
- Thread starter tanhaukg
- Ngày gửi
Người dùng đang xem chủ đề này
tvxdgt
Thành viên tiêu biểu
- Tham gia
- 13/10/07
- Bài viết
- 475
- Được thích
- 604
Bạn vào trang soạn thảo code: bấm tổ hợp phím Alt+F11, rồi tiếp đến bấm phím F4, rồi chọn sheet cần ẩn, chọn mục visible, chọn xlsheetVeryHiden, như hình vẽ là được. Như thế thì khi dùng lệnh Unhide không hiện các sheet được và các sheet ẩn vẫn liên kết bình thường. Còn muốn các sheet hiện lại thì chọn xlsheetVisible
File đính kèm
Lần chỉnh sửa cuối:
Đúng là làm như bạn thì các Sheet ẩn đi và không sử dụng được lệnh Unhide nhưng không liên kết được khi các Sheet bị ẩn bạn ơi.
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,591
- Giới tính
- Nam
Bạn muốn liên kết là sao?
Ví dụ sheet1 bị ẩn, từ 1 sheet nào đó bạn gõ =sheet1!A1 vẫn lấy được dữ liệu trong ô A1 của sheet1 đúng không?
tvxdgt
Thành viên tiêu biểu
- Tham gia
- 13/10/07
- Bài viết
- 475
- Được thích
- 604
Ẩn như thế lấy dữ liệu ở các sheet bị ẩn vẫn lấy được dử liệu mà bạn. Các sheet ẩn vẫn liên kết bình thường. Nếu muốn liên kết dữ liệu mới giữa các sheet ẩn đi thì chọn xlsheetVisible xong rồi bạn lại ẩn lại.
Ý em là các Sheet bị ẩn chỉ còn một Sheet1. Sheet1 này được tạo chỉ mục (Hyperlink) tới những Sheet khác và ngược lại tại các Sheet khác củng tạo chỉ mục để trở về Sheet1. Các Sheet khác bị ẩn còn lại Sheet1 thôi: VD: từ Sheet1 ta nhấp chọn chỉ mục đến Sheet2 (hoặc các sheet khác) thì Sheet2 hiện lên lúc này thì chỉ có Sheet2 thôi . . . Mong anh giúp dùm. Thank
TKT
Thành viên tiêu biểu
- Tham gia
- 2/1/08
- Bài viết
- 673
- Được thích
- 1,336
- Nghề nghiệp
- .....
Có phải ý bạn như trong file tớ làm kg?!
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,591
- Giới tính
- Nam
"Chời ơi"! Giải thích bằng tiếng Việt mà cũng khó hiểu quá.
Cái này chắc phải dùng VBA rồi, từ từ chờ các bạn biết VBA giải quyết.
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,974
Không viết bằng VBA, dùng Hyperlink bình thường cũng được! Cách đơn giản là ẩn Sheet tab, khi ấy bạn sẽ chỉ nhìn thấy 1 sheet duy nhất mà thôi
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,858
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Như vậy thì yêu cầu của bạn giống yêu cầu tại đây: Tập hợp và triển khai cac sheet trong workbook
Thực ra thì vấn đề này cũng đã nói khá nhiều trên GPE rồi. Bạn sử dụng chức năng tìm kiếm của diễn đàn với từ khóa "mục lục sheet" sẽ có rất nhiều kết quả để bạn tham khảo.
Lần chỉnh sửa cuối:
ngodany135
Thành viên thường trực
- Tham gia
- 1/12/10
- Bài viết
- 346
- Được thích
- 522
- Nghề nghiệp
- GIÁO VIÊN
Bạn xem thử có được chưa nha. Nếu đúng bạn nên cảm ơn bác ndu nha.
Đúng rồi bạn ơi nhưng cách làm bạn có thể chỉ cho mình được không. Thank nhiều
ngodany135
Thành viên thường trực
- Tham gia
- 1/12/10
- Bài viết
- 346
- Được thích
- 522
- Nghề nghiệp
- GIÁO VIÊN
Bạn xem hướng dẫn theo chổ này, nếu chưa hiểu bạn có thể hỏi tiếp, chúc bạn thành công nha.
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,076
- Được thích
- 8,007
- Nghề nghiệp
- Làm đủ thứ
Bạn đưa con trỏ về tại B3, bấm chuột phải > chọn Edit Hyperlink để xem cách làm và nghiên cứu nhé
clubfantasy
Thành viên mới
- Tham gia
- 15/6/18
- Bài viết
- 1
- Được thích
- 1
Chọn sheet là viêc -> Bật MVB (Alt+F11) -> Chọn tab ThisWorkbook -> Copy 2 dòng code sau -> Run
-Để ẩn các sheet:
Sub Auto_Hide()
ActiveWindow.DisplayWorkbookTabs = False
End Sub
-Để hiện các sheet:
Sub Auto_Unhide()
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Có thể tạo liên kết đến code này từ "Assign Macro...." giống như hyperlink.
-Để ẩn các sheet:
Sub Auto_Hide()
ActiveWindow.DisplayWorkbookTabs = False
End Sub
-Để hiện các sheet:
Sub Auto_Unhide()
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Có thể tạo liên kết đến code này từ "Assign Macro...." giống như hyperlink.
quocte
Thành viên mới
- Tham gia
- 19/10/14
- Bài viết
- 5
- Được thích
- 0
Helo; bạn cho mình xin mã code file này đi
Bài đã được tự động gộp:
ok; tks
mình đã thực hiện thành công
quocte
Thành viên mới
- Tham gia
- 19/10/14
- Bài viết
- 5
- Được thích
- 0
thử xem file maaux này có đúng ý bạn k.
Bạn làm theo hướng dẫn trong File đính kèm nhé
Thắm Lee
Thành viên mới
- Tham gia
- 16/3/21
- Bài viết
- 1
- Được thích
- 0
Cho mình xin cách làm nhé
Các Anh Chị ơi, em đang làm 1 file theo dõi bảo trì của khách hàng, hiện tại em có 302 khách hàng.
Em muốn làm 1 file với sheet đầu tiên là danh mục các khách hàng đang được bảo trì.
Các sheet còn lại là thông tin cụ thể của từng khách hàng: ngày đi bảo trì, công việc làm, tình trạng mặt hàng đó.....
Em có mò trên group mình và có thấy 1 file dùng hyperlink tự động ( nghĩa là thêm 1 sheet, thì sheet danh mục đầu sẽ tự cập nhật thêm tên khách hàng, tên sheet đó)
Nhưng do file em nhiều sheet, em muốn ẩn các sheet đi, chỉ còn 1 sheet danh mục đầu thôi, khi cần mở sheet nào để cập nhật thì nhấp vào link sẽ mở sheet ẩn đó ra, khi qua lại trang chính thì sheet đó sẽ tự động ẩn đi.
Em có mò trên google thấy đoạn code này nhưng không hiểu các áp dụng, em đã bê nguyên đoạn copy vào VBA mà không chạy được, mong Các Anh chị chỉ giúp.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim strLinkSheet As String
If InStr(Target.Parent, "!") > 0 Then
strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
Else
strLinkSheet = Target.Parent
End If
Sheets(strLinkSheet).Visible = True
Sheets(strLinkSheet).Select
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
On Error Resume Next
Sheets(ActiveCell.Value2).Visible = False
End Sub
Em muốn làm 1 file với sheet đầu tiên là danh mục các khách hàng đang được bảo trì.
Các sheet còn lại là thông tin cụ thể của từng khách hàng: ngày đi bảo trì, công việc làm, tình trạng mặt hàng đó.....
Em có mò trên group mình và có thấy 1 file dùng hyperlink tự động ( nghĩa là thêm 1 sheet, thì sheet danh mục đầu sẽ tự cập nhật thêm tên khách hàng, tên sheet đó)
Nhưng do file em nhiều sheet, em muốn ẩn các sheet đi, chỉ còn 1 sheet danh mục đầu thôi, khi cần mở sheet nào để cập nhật thì nhấp vào link sẽ mở sheet ẩn đó ra, khi qua lại trang chính thì sheet đó sẽ tự động ẩn đi.
Em có mò trên google thấy đoạn code này nhưng không hiểu các áp dụng, em đã bê nguyên đoạn copy vào VBA mà không chạy được, mong Các Anh chị chỉ giúp.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim strLinkSheet As String
If InStr(Target.Parent, "!") > 0 Then
strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
Else
strLinkSheet = Target.Parent
End If
Sheets(strLinkSheet).Visible = True
Sheets(strLinkSheet).Select
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
On Error Resume Next
Sheets(ActiveCell.Value2).Visible = False
End Sub
Anh Chị ơi, xin giúp em với. Em mò mẫm trên group thì có cái file tạo ra list danh mục các sheet rồi, nhấp vào tên sheet nào thì sẽ hiện ra sheet đang ẩn đó, khi trở về sheet danh mục và ẩn các sheet kia.
Cụ thể là: em có file với gần khoảng 200 sheet ( mỗi khách hàng là 1 sheet)
sheet đầu tiên là sheet danh mục: là tổng hợp tên các khách hàng và cột STT là tên sheet, nhấp vào đó sẽ hiện ra sheet đang ẩn. Nhấp quay lại danh mục thì sheet đó ẩn đi.
Nhưng em gặp trở ngại là em muốn hiện những sheet như sheet hợp đồng, sheet báo giá....thì không được, nó chỉ hiện duy nhất 1 sheet danh mục thôi ạ.
Xin anh chị chỉ cách sửa giúp em với ạ.
Cụ thể là: em có file với gần khoảng 200 sheet ( mỗi khách hàng là 1 sheet)
sheet đầu tiên là sheet danh mục: là tổng hợp tên các khách hàng và cột STT là tên sheet, nhấp vào đó sẽ hiện ra sheet đang ẩn. Nhấp quay lại danh mục thì sheet đó ẩn đi.
Nhưng em gặp trở ngại là em muốn hiện những sheet như sheet hợp đồng, sheet báo giá....thì không được, nó chỉ hiện duy nhất 1 sheet danh mục thôi ạ.
Xin anh chị chỉ cách sửa giúp em với ạ.
qtm1987
Thành viên thường trực
- Tham gia
- 15/9/09
- Bài viết
- 352
- Được thích
- 262
- Nghề nghiệp
- Kế toán tổng hợp
Bạn click vào This Workbook và sửa lại code thêm tên sheet muốn hiện vào sự kiện Workbook_SheetDeactivate nhé.
Mã:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "danh muc" Then Sh.Visible = xlSheetVeryshow
If Sh.Name = "HD Ca Nhan" Or Sh.Name = "BAO GIA" Then Sh.Visible = xlSheetVisible
End Subdạ vâng, để mình làm thử nhé, cảm ơn nhiều ạ
Dạ mình làm được rồi, file chạy được rồi. Vậy là muốn hiện sheet nào thì cứ dùng câu lệnh or sh.name đúng không ạ?
Nhưng mình có 5 sheet có đặt tên muốn hiện trực tiếp trên file thì có câu lệnh nào ngắn gọn hơn câu lệnh trên không ạ? Các sheet này sẽ đặt tên là "HD Ca Nhan", "Bao gia sua chua", bang gia vat tu. Còn các sheet khách hàng là đặt theo số thứ tự rồi ạ.
Và cho mình hỏi thêm 1 điểm nữa nha. Mình muốn trên bảng danh mục chỉ hiện các sheet đặt theo số thứ tự, còn các sheet mà đặt tên bằng chữ như "bao gia" thì không hiện có được không ạ, tại nó không có bị ẩn nên không cần hiện lên danh mục ạ.
Xin cảm ơn bạn.
qtm1987
Thành viên thường trực
- Tham gia
- 15/9/09
- Bài viết
- 352
- Được thích
- 262
- Nghề nghiệp
- Kế toán tổng hợp
Bạn sửa lại :
Mã:
If IsNumeric(Sh.Name) = False Then Sh.Visible = xlSheetVisibleCòn vấn đề: "muốn trên bảng danh mục chỉ hiện các sheet đặt theo số thứ tự..." bạn tìm hiểu thêm công thức đặt trong Define Name (Ctrl + F3), mình không rành cái đó nên không chỉnh sửa được.
vuduchung.dn
Thành viên mới
- Tham gia
- 6/6/15
- Bài viết
- 1
- Được thích
- 0
cho mình hỏi là muốn thêm sheet nữa thì phải làm như thế nào vậy bạn. mình cũng có ý định làm file nhiều sheet mà chừng đấy sheet như mẫu của bạn hơi ít nên bạn chỉ mình đc ko bạn.
anh chị ơi, e đã làm theo hướng dẫn mẫu mà kích vào cái sheet nào nó ẩn hết hic. Em muốn 1 file sheet Home hiện cố định, chỉ cần 1 sheet đó bấm vào các tên khác mới hiện ra mà cả home cũng ẩn hết. Anh chị Hỗ trợ giúp em với ạ. Em cảm ơn nhiều ạ
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "Home" Then Sh.Visible = xlSheetVeryshow
If Sh.Name <> "Home" Or Sh.Name = "danh muc" Then Sh.Visible = xlSheetVeryshow
End Sub
