Tạo nút nhấn để link đến các sheet

[anhtuan1066]

Thấy các bạn thường xuyên hỏi về chủ đề này và trên diễn đàn cũng đã có rất nhiều giải pháp thực thi nhưng hầu hết đều dùng vòng lập FOR
Hôm nay tôi hướng dẩn các bạn làm 1 file thuộc dạng này nhưng với các bước thao tác và code cực kỳ đơn giản!
1> Viết code
Hãy viết code trước để các bước chuẩn bị sau này được thuận tiện hơn
Chèn code này vào Module

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

2> Các bước chuẩn bị
- Giả sử các bạn đã có 1 file gồm nhiều sheet, hãy chèn thêm 1 sheet và đặt tên là Trang chủ
- Tại sheet Trang chủ này, hãy vẽ các Button bằng công cụ Drawing Object
- Click phải vào Button, chọn Add Text và gõ nhản tùy ý
- Click phải vào Button, chọn Format AutoShape, chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text (bước này vô cùng quan trọng)































- Click phải vào Button, chọn Assign Macro và double click vào tên sub Link2Sh
























- Thực hiện thao tác trên cho tất cả các Button trên sheet Trang chủ
- Vẽ Button ở các sheet con và thực hiện các thao tác như trên đối với các Button này
--------------------------
Vậy là xong! Giờ hãy bấm nút và... tận hưởng thành quả
(Xem file đính kèm)
--------------------------
Lưu ý: Bạn có thể vẽ Button bằng bất cứ công cụ nào nhưng nhất định không được dùng các object của thanh Control Toolbox

 

[tranngochoan]

Viết thêm 1 đoạn code thế này:

Sub ShowAllShs()
  Dim Sh As Worksheet
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Visible = -1
  Next
End Sub

Trên bảng tính, vẽ 1 nút rồi Assign Macro đến sub trên

Hoặc hoàng tráng hơn chút

Sub ShowAllShs()
  Dim Sh As Worksheet
  Application.ScreenUpdating = False
  On Error Resume Next
  With Sheet1.Shapes("All").TextFrame.Characters
    For Each Sh In ThisWorkbook.Worksheets
      If Sh.Name <> "Trang ch" & ChrW(7911) Then
        Sh.Visible = .Text = "SHOW ALL"
      End If
    Next
    .Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
  End With
  Application.ScreenUpdating = True
End Sub

Nút có 2 tác dụng SHOW và HIDE

Các bác giúp đỡ em với: Em không làm được nút có 2 tác dụng như các Bác nói

 

[giaiphap]

Các bác giúp đỡ em với: Em không làm được nút có 2 tác dụng như các Bác nói

Vậy bạn up cái file của bạn có nút lệnh đó lên đây và nêu yêu cầu cụ thể để dễ giúp, còn nếu không thì tải các file mẫu ở các bài viết trên về tham khảo.

 

[tranngochoan]

Vậy bạn up cái file của bạn có nút lệnh đó lên đây và nêu yêu cầu cụ thể để dễ giúp, còn nếu không thì tải các file mẫu ở các bài viết trên về tham khảo.

Em xin cám ơn. Em đã làm được rồi

 

[thoai]

Thấy các bạn thường xuyên hỏi về chủ đề này và trên diễn đàn cũng đã có rất nhiều giải pháp thực thi nhưng hầu hết đều dùng vòng lập FOR
Hôm nay tôi hướng dẩn các bạn làm 1 file thuộc dạng này nhưng với các bước thao tác và code cực kỳ đơn giản!
1> Viết code
Hãy viết code trước để các bước chuẩn bị sau này được thuận tiện hơn
Chèn code này vào Module

[QUOTE="anhtuan1066, post: 245462, member: 5605"]Thấy các bạn thường xuyên hỏi về chủ đề này và trên diễn đàn cũng đã có rất nhiều giải pháp thực thi nhưng hầu hết đều dùng vòng lập FOR
Hôm nay tôi hướng dẩn các bạn làm 1 file thuộc dạng này nhưng với các bước thao tác và code cực kỳ đơn giản!
1> Viết code
Hãy viết code trước để các bước chuẩn bị sau này được thuận tiện hơn
Chèn code này vào Module
[php]
Sub Link2Sh()
  With ActiveSheet
    With Sheets(.Shapes(Application.Caller).AlternativeText)
      .Visible = True: .Select
    End With
    .Visible = 2
  End With
End Sub

2> Các bước chuẩn bị
- Giả sử các bạn đã có 1 file gồm nhiều sheet, hãy chèn thêm 1 sheet và đặt tên là Trang chủ
- Tại sheet Trang chủ này, hãy vẽ các Button bằng công cụ Drawing Object
- Click phải vào Button, chọn Add Text và gõ nhản tùy ý
- Click phải vào Button, chọn Format AutoShape, chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text (bước này vô cùng quan trọng)

View attachment 47014





























- Click phải vào Button, chọn Assign Macro và double click vào tên sub Link2Sh

View attachment 47015






















- Thực hiện thao tác trên cho tất cả các Button trên sheet Trang chủ
- Vẽ Button ở các sheet con và thực hiện các thao tác như trên đối với các Button này
--------------------------
Vậy là xong! Giờ hãy bấm nút và... tận hưởng thành quả
(Xem file đính kèm)
--------------------------
Lưu ý: Bạn có thể vẽ Button bằng bất cứ công cụ nào nhưng nhất định không được dùng các object của thanh Control Toolbox

[/php]
2> Các bước chuẩn bị
- Giả sử các bạn đã có 1 file gồm nhiều sheet, hãy chèn thêm 1 sheet và đặt tên là Trang chủ
- Tại sheet Trang chủ này, hãy vẽ các Button bằng công cụ Drawing Object
- Click phải vào Button, chọn Add Text và gõ nhản tùy ý
- Click phải vào Button, chọn Format AutoShape, chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text (bước này vô cùng quan trọng)

View attachment 47014



Nếu tên sheet không phải là T01 mà là BDS thì code sửa như thế nào
























- Click phải vào Button, chọn Assign Macro và double click vào tên sub Link2Sh

View attachment 47015






















- Thực hiện thao tác trên cho tất cả các Button trên sheet Trang chủ
- Vẽ Button ở các sheet con và thực hiện các thao tác như trên đối với các Button này
--------------------------
Vậy là xong! Giờ hãy bấm nút và... tận hưởng thành quả
(Xem file đính kèm)
--------------------------
Lưu ý: Bạn có thể vẽ Button bằng bất cứ công cụ nào nhưng nhất định không được dùng các object của thanh Control Toolbox[/QUOTE]
xin hỏi tên sheet không phải là T01 mà BDS thi đoạn code sẽ như thế nào hoac sửa code như thế nào:

 

[tranngochoan]

Viết thêm 1 đoạn code thế này:

Sub ShowAllShs()
  Dim Sh As Worksheet
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Visible = -1
  Next
End Sub

Trên bảng tính, vẽ 1 nút rồi Assign Macro đến sub trên

Hoặc hoàng tráng hơn chút

Sub ShowAllShs()
  Dim Sh As Worksheet
  Application.ScreenUpdating = False
  On Error Resume Next
  With Sheet1.Shapes("All").TextFrame.Characters
    For Each Sh In ThisWorkbook.Worksheets
      If Sh.Name <> "Trang ch" & ChrW(7911) Then
        Sh.Visible = .Text = "SHOW ALL"
      End If
    Next
    .Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
  End With
  Application.ScreenUpdating = True
End Sub

Nút có 2 tác dụng SHOW và HIDE

Em làm được rồi, nhưng khi ẩn nó ẩn sheet menu của em luôn, mà để lại 1 sheet khác, giờ em phải chỉnh thế nào các bác

Bài đã được tự động gộp: 27/6/18

Em làm được rồi, nhưng khi ẩn nó ẩn sheet menu của em luôn, mà để lại 1 sheet khác, giờ em phải chỉnh thế nào các bác

Ở code trên 7911 có ý nghĩa gì các bác

Bài đã được tự động gộp: 27/6/18

Nếu là đúng 100% hướng dẫn thì chắc chắn sẽ không có vấn đề gì, bằng ngược lại, bạn đã sai ở công đoạn nào đó ---> Gữi file lên là biết liền

Chào Bác
ChrW(7911) nghĩa là gì hả Bác?

 

[Lê Mi]

Có ai có file báo cáo sản xuất bao gồm: Lệnh sản xuất, kế hoạch sản xuất, kho nguyên liệu, theo dõi tiến độ sản xuất, thành phẩm, báo cáo... cho mình xin file nhé

 

[Minh Tùng]

Không biết em làm có đúng không mà Shape không có Format như hướng dẫn.
Excel của em bản 2016 ạ.

Có anh chị nào xem lại giúp em được không ạ?

 

[ndu96081631]

Không biết em làm có đúng không mà Shape không có Format như hướng dẫn.
Excel của em bản 2016 ạ.

Có anh chị nào xem lại giúp em được không ạ?

Thay vì chọn "Format Shape...", bạn chọn "Size and Properties..." thử xem

 

[Minh Tùng]

Thay vì chọn "Format Shape...", bạn chọn "Size and Properties..." thử xem

Vẫn không có tính năng như hướng dẫn anh ạ. Chỉ có Alt Text thôi anh.

 

[ndu96081631]

Vẫn không có tính năng như hướng dẫn anh ạ. Chỉ có Alt Text thôi anh.

Bạn nhìn thấy "Alt Text" vậy sao không thử xem thế nào?

 

[Minh Tùng]

Bạn nhìn thấy "Alt Text" vậy sao không thử xem thế nào?

Dạ, em cám ơn anh @ndu96081631 đã chỉ điểm!