[Hỏi] Code VBA link tới Sheet và tự ẩn khi không dùng đến

[Dương Thúy 37]

Gửi các anh chị trên GPE nhờ giúp với ạ
Tôi muốn tăng hiệu quả công việc nên muốn hỏi các tiền bối như sau
Giả sử có 1 file Gồm: 1 Sheet Danh muc và các Sheet từ 1 đến 10, bài toán:
- Khi mở file lên: Chỉ còn "Sheet Danh muc" này, các Sheet khác sẽ mặc định ẩn;
- Khi Click chọn Sheet tại Cột D thì Sheet cần link tới sẽ hiện lên để sử dụng;
- Khi chuyển qua "Sheet Danh muc" thì tất cả các Sheet sẽ tự động ẩn.
- Khi thao tác với các Sheet khác (ngoại trừ "Sheet Danh muc") thì các Sheet vừa được hiện sẽ không bị ẩn.
(Chi tiết xem file đính kèm)Rất mong nhận được sự giúp đỡ.
Xin chân thành cảm ơn !

 

[thoai]

Gửi các anh chị trên GPE nhờ giúp với ạ
Tôi muốn tăng hiệu quả công việc nên muốn hỏi các tiền bối như sau
Giả sử có 1 file Gồm: 1 Sheet Danh muc và các Sheet từ 1 đến 10, bài toán:
- Khi mở file lên: Chỉ còn "Sheet Danh muc" này, các Sheet khác sẽ mặc định ẩn;
- Khi Click chọn Sheet tại Cột D thì Sheet cần link tới sẽ hiện lên để sử dụng;
- Khi chuyển qua "Sheet Danh muc" thì tất cả các Sheet sẽ tự động ẩn.
- Khi thao tác với các Sheet khác (ngoại trừ "Sheet Danh muc") thì các Sheet vừa được hiện sẽ không bị ẩn.
(Chi tiết xem file đính kèm)Rất mong nhận được sự giúp đỡ.
Xin chân thành cảm ơn !

bạn thử cái này nhé

Sub Link2Sh()
With ActiveSheet
With Sheets(.Shapes(Application.Caller).AlternativeText)
.Visible = True: .Select
End With
.Visible = 2
End With
End Sub

 

[Dương Thúy 37]

bạn thử cái này nhé

Sub Link2Sh()
With ActiveSheet
With Sheets(.Shapes(Application.Caller).AlternativeText)
.Visible = True: .Select
End With
.Visible = 2
End With
End Sub

cái này áp dụng đối với shapes link còn mình đây chỉ text trong ô(hyperlink) thôi bạn ạ

 

[thoai]

cái này áp dụng đối với shapes link còn mình đây chỉ text trong ô(hyperlink) thôi bạn ạ

text box haypicture cho nó đẹp

 

[Dương Thúy 37]

text box haypicture cho nó đẹp

lạy thánh.
Còn cái mã code này giống cái anh Tuấn đã đăng rồi. còn bài mình nó khá khác, nếu bạn quan tâm nghiên cứu hộ mình với
thanks

 

[giaiphap]

lạy thánh.
Còn cái mã code này giống cái anh Tuấn đã đăng rồi. còn bài mình nó khá khác, nếu bạn quan tâm nghiên cứu hộ mình với
Cảm ơn

Bạn xem thử file.

 

[Dương Thúy 37]

Bạn xem thử file.

Tuyệt vời. e mò cả ngày rảnh mò mà toàn ko lỗi này cũng lỗi nọ
anh/chị cho em theo với!!!!!

 

[Dương Thúy 37]

Bạn xem thử file.

Em có chạy mã nhưng em vẫn chưa giả quyết được vấn đề này, mong anh giải đáp thêm?. Làm sao khi giả sử kick vào sheet1, mở sheet 1, xong quay lại sheet "danh muc" thì sheet1 tự động ẩn lại???
Thanks a!

 

[giaiphap]

Em có chạy mã nhưng em vẫn chưa giả quyết được vấn đề này, mong anh giải đáp thêm?. Làm sao khi giả sử kick vào sheet1, mở sheet 1, xong quay lại sheet "danh muc" thì sheet1 tự động ẩn lại???
Cảm ơn a!

Bạn xem code trong ThisWorkbook có đoạn này.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name <> "danh muc" Then Sh.Visible = xlSheetVeryHidden
End Sub

 

[truongvu317]

Tuyệt vời. e mò cả ngày rảnh mò mà toàn ko lỗi này cũng lỗi nọ

Em có chạy mã nhưng em vẫn chưa giả quyết được vấn đề này, mong anh giải đáp thêm?

"Girl" á, câu trước với câu sau mâu thuẫn quá trời, file ở bài #7 chạy ok chưa đã, hay lại không biết copy code vậy. Kiểu như :" đôi khi gặp nhau muốn khơi nhưng rồi lại thôi, nói ra e ngại hoặc theo gió trôi"

 

[Dương Thúy 37]

"Girl" á, câu trước với câu sau mâu thuẫn quá trời, file ở bài #7 chạy ok chưa đã, hay lại không biết copy code vậy. Kiểu như :" đôi khi gặp nhau muốn khơi nhưng rồi lại thôi, nói ra e ngại hoặc theo gió trôi"

Chạy được, giải quyết được nhưng muốn hiểu bản chất sao lại vậy. nói kiểu giọng khó chịu, ghét nhỉ =.="

 

[truongvu317]

Chạy được, giải quyết được nhưng muốn hiểu bản chất sao lại vậy. nói kiểu giọng khó chịu, ghét nhỉ =.="

Trên GPE toàn trai giả gái, nên tớ cứ thận trọng thui, mà chưa trả lời câu hỏi của tui nhé, ghét! "bản chất" thì cứ nói là bản chất, đằng này lại vòng vo hồi lâu. Có trời mới biết các chàng đang nghĩ gì trong đầu.

 

[Dương Thúy 37]

Trên GPE toàn trai giả gái, nên tớ cứ thận trọng thui, mà chưa trả lời câu hỏi của tui nhé, ghét! "bản chất" thì cứ nói là bản chất, đằng này lại vòng vo hồi lâu. Có trời mới biết các chàng đang nghĩ gì trong đầu.

Có thấy thí chủ hỏi gì tôi đâu, thấy mỗi dìm hàng thôi đấy chứ

 

[truongvu317]

Có thấy thí chủ hỏi gì tôi đâu, thấy mỗi dìm hàng thôi đấy chứ

"thí chủ", à, rõ như ban ngày, hóa ra là tiểu hòa thượng, không rõ tiểu hòa thượng tu ở chùa nào để tui qua bái kiến. Nếu là gái thì tui chả có bao giờ dìm hàng nhé, tui thương hoa tiếc ngọc lắm.

Còn về cái nguyên lý thì tiểu sư phụ nên đi học vba đi, chứ vba tiểu sư phụ viết còn chưa chuẩn ( vab), nói ra một lô một lốc rồi lại khổ cái đầu ra.
Nếu có hứng thì tìm hiểu về "sự kiện" trong vba là sẽ hiểu.

 

[Dương Thúy 37]

"thí chủ", à, rõ như ban ngày, hóa ra là tiểu hòa thượng, không rõ tiểu hòa thượng tu ở chùa nào để tui qua bái kiến. Nếu là gái thì tui chả có bao giờ dìm hàng nhé, tui thương hoa tiếc ngọc lắm.

Còn về cái nguyên lý thì tiểu sư phụ nên đi học vba đi, chứ vba tiểu sư phụ viết còn chưa chuẩn ( vab), nói ra một lô một lốc rồi lại khổ cái đầu ra.
Nếu có hứng thì tìm hiểu về "sự kiện" trong vba là sẽ hiểu.

Yup. Thank you for your time!!

 

[mitdacdtd]

Em có file đính kèm với mong muốn nhấn vào từ tên khách hàng ở bảng tổng hợp (Cột C) thì ra sheet của khách hàng đó (dùng code VBA ạ)
Thầy và anh chị em diễn đàn giúp em nhé.
Em cảm ơn.

 

[Quang_Hải]

Em có file đính kèm với mong muốn nhấn vào từ tên khách hàng ở bảng tổng hợp (Cột C) thì ra sheet của khách hàng đó (dùng code VBA ạ)
Thầy và anh chị em diễn đàn giúp em nhé.
Em cảm ơn.

Chọn 1 ô trong cột C, nhấp chuột phải, chọn Link (hoặc hyperlink), chọn Place in this document

 

[mitdacdtd]

Chọn 1 ô trong cột C, nhấp chuột phải, chọn Link (hoặc hyperlink), chọn Place in this document

Dạ, em muốn sử dụng code VBA ạ. Cám ơn Anh đã hỗ trợ.

 

[Quang_Hải]

Dạ, em muốn sử dụng code VBA ạ. Cám ơn Anh đã hỗ trợ.

Copy code này bỏ vào sheet TH

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim shname As String
If Target.Column = 3 Then
   shname = Target.Value
   Sheets(shname).Select
End If
End Sub

 

[mitdacdtd]

Copy code này bỏ vào sheet TH

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim shname As String
If Target.Column = 3 Then
   shname = Target.Value
   Sheets(shname).Select
End If
End Sub

Em dốt VBA lắm anh ơi, anh giúp em trên file luôn được không ạ.