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

 

[Jindo_Katori]

Bạn gán Macro vào file xong, ấn F12, khung Save as type chọn Excel Macro-Enabled Workbook. Nó sẽ lưu file với đuôi là .xlsm macro mới lưu được trong file và hoạt động được. Mỗi lần mở file phải Enable Macros.

Được rồi bác ơi... bác đúng là tuyệt vời ông mặt trời.
Tiện thể em muốn hỏi thêm cái này ạ: như hình minh họa e có làm các nút chọn từ sheet 1 -> sheet 31. Thấy mất thẩm mĩ quá. Nếu em muốn làm 1 menu sổ xuống để chọn thì có cách nào không ạ?

 

[thtuan211]

Trước đây cơ quan mình dùng win 2003 chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text thì vẫn dùng được. bây giờ qua oficce 2007 giao diện có khác. mình đã tìm ra cũng thao tác vào ô Alternative text tên sheet muốn hiện tới nhưng không có tác dụng. Có ai biết cách làm trong ofice 2007 không chỉ giáo mình với

 

[Jindo_Katori]

Em muốn hỏi thêm cái này ạ: như hình minh họa e có làm các nút chọn từ sheet 1 -> sheet 31. Thấy mất thẩm mĩ quá. Nếu em muốn làm 1 menu sổ xuống để chọn (giống như trong hình) thì có cách nào không ạ?https://fbcdn-sphotos-h-a.akamaihd....874_791114507573454_1430858771386517868_o.jpg

 

[toanhdung.tad]

mình đã tập làm nhưng không được. excel của mình là 2013. Xin giúp đỡ của các bạn. Cảm ơn nhiều

 

[tr hoan]

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)

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

Tôi hỏi bạn tý
Nếu bạn sử dụng excel 2003 thì được, nhưng tôi sử dụng excel 2013 thì không tìm được format autoshape> alternative text như của trong thẻ web vậy tìm nó ở đâu trong excel 2013 nhờ các bạn giúp đỡ chỉ cho
Cám ơn

 

[vanle33]

Tôi hỏi bạn tý
Nếu bạn sử dụng excel 2003 thì được, nhưng tôi sử dụng excel 2013 thì không tìm được format autoshape> alternative text như của trong thẻ web vậy tìm nó ở đâu trong excel 2013 nhờ các bạn giúp đỡ chỉ cho
Cám ơn

Bạn đã làm được các bước trên của bài hướng dẫn chưa?
Đã vẽ được hình, và Add Text chưa?
Nếu đã được thì phải chuột vào hình/chọn Format Shape/Alt Text/ đã OK chưa?

 

[ndu96081631]

Tôi hỏi bạn tý
Nếu bạn sử dụng excel 2003 thì được, nhưng tôi sử dụng excel 2013 thì không tìm được format autoshape> alternative text như của trong thẻ web vậy tìm nó ở đâu trong excel 2013 nhờ các bạn giúp đỡ chỉ cho
Cám ơn

Chọn vào đối tượng, bấm Ctrl + ! sẽ thấy mục Alt Text ở cuối cùng

 

[heoxinh89]

em dùng excel 2007, khi vẽ xong hình làm theo các bước, em ấn chuột phải vào formart shape, e ko tìm thấy alt text...mọi người thông thái chỉ giúp em với ạ.
Em cảm ơn.

 

[Quang_Hải]

em dùng excel 2007, khi vẽ xong hình làm theo các bước, em ấn chuột phải vào formart shape, e ko tìm thấy alt text...mọi người thông thái chỉ giúp em với ạ.
Em cảm ơn.

Chụp cái hình up lên xem coi bạn vẽ rồng hay rắn

 

[vanle33]

em dùng excel 2007, khi vẽ xong hình làm theo các bước, em ấn chuột phải vào formart shape, e ko tìm thấy alt text...mọi người thông thái chỉ giúp em với ạ.
Em cảm ơn.

Ở cuối cùng của cửa sổ Format Shape.

 

[heoxinh89]

Chụp cái hình up lên xem coi bạn vẽ rồng hay rắn

Anh ơi, em có vẽ rồng rắn gì đâu ạ, anh xem cho em với nhé? Em cảm ơn ạ.

 

[Quang_Hải]

Anh ơi, em có vẽ rồng rắn gì đâu ạ, anh xem cho em với nhé? Em cảm ơn ạ.

View attachment 127564

Sao lạ vậy ta?
Hay là 2007 khác 2010 nhỉ? Nâng cấp lên chút đi
Bạn có thử trên mấy cái shape trong file mình làm hay chưa?

 

[heoxinh89]

Sao lạ vậy ta?
Hay là 2007 khác 2010 nhỉ? Nâng cấp lên chút đi
Bạn có thử trên mấy cái shape trong file mình làm hay chưa?

Em thử trong file của anh cũng ko thấy anh ạ, em ngồi mò mẫn mãi thì bảo là excel 2007 đã bị microsoft khai tử lâu rùi...vì nó có mấy cái lỗi. Và không có cái alt text đâu ạ. chỉ có 2003-2010 có thôi ạ.

 

[ndu96081631]

Anh ơi, em có vẽ rồng rắn gì đâu ạ, anh xem cho em với nhé? Em cảm ơn ạ.

View attachment 127564

Khi click phải vào shape, thay vì chọn Format Shape, bạn thử chọn mục Size and Properties xem

 

[Quang_Hải]

Em thử trong file của anh cũng ko thấy anh ạ, em ngồi mò mẫn mãi thì bảo là excel 2007 đã bị microsoft khai tử lâu rùi...vì nó có mấy cái lỗi. Và không có cái alt text đâu ạ. chỉ có 2003-2010 có thôi ạ.

Chắc là nằm chỗ nào đó í, chứ nếu không có thì sao file mình tạo chạy được chứ.

 

[Kiều Mạnh]

Em thử trong file của anh cũng ko thấy anh ạ, em ngồi mò mẫn mãi thì bảo là excel 2007 đã bị microsoft khai tử lâu rùi...vì nó có mấy cái lỗi. Và không có cái alt text đâu ạ. chỉ có 2003-2010 có thôi ạ.

Bạn làm theo cách ndu96081631 đi là ok

 

[heoxinh89]

cảm ơn cả nhà nhiều ạ.

 

[donghung1512]

Bạn xem hình nhé.
Ấn chuột phải vào Shape\Format shape\

 

[KHONG_GJ_CA]

Nhờ các Anh giúp cho, em đang muốn Edit File (kèm theo) để sử dụng. Các anh có thể giúp em cách ẩn hiện các Sheet, cách ẩn hiện tên sheet đồng thời tại Button "Menu" có thể khi kích vào hiện ra 1 bảng các nút Button để lựa chọn. Thanks All

 

[binh1510]

dùng trên excel 2007 báo vàng dòng "With Sheets(.Shapes(Application.Caller).AlternativeText)". ai chỉ e cách sửa với