Quản trị web chúc các bạn vui vẻ nha !
tao nut nhan cho exel.doc
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Hồ Việt Cảnh (trang riêng)
Ngày gửi: 13h:00' 28-09-2012
Dung lượng: 78.0 KB
Số lượt tải: 12
Nguồn:
Người gửi: Hồ Việt Cảnh (trang riêng)
Ngày gửi: 13h:00' 28-09-2012
Dung lượng: 78.0 KB
Số lượt tải: 12
Số lượt thích:
0 người
Tai trang chu exel, bấm Alt + F11, copy đoạn cod sau dan vao Mudul (chon Insert – Mudul)
Bấm Alt + Q để thoát.
Sub Link2Sh() With ActiveSheet With Sheets(.Shapes(Application.Caller).AlternativeText) .Visible = True: .Select End With .Visible = 2 End With End Sub
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 Code:
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
Bấm Alt + Q để thoát.
Sub Link2Sh() With ActiveSheet With Sheets(.Shapes(Application.Caller).AlternativeText) .Visible = True: .Select End With .Visible = 2 End With End Sub
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 Code:
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
Các ý kiến mới nhất