Link các sheet trong 1 file (1 người xem)

[donhungtin2013]

[TABLE="width: 1024"]
[TR]
[TD="colspan: 16"]Em muốn hiện tên tất cả các sheet trong file lên 1 sheet đặt tên là trang chủ
và muốn chọn sheet nào thì chỉ việc click vào đó nó sẽ dẫn đến sheet đó.
Vì file em có quá nhiều sheet nên việc tìm đến sheet cần tìm quả là quá mất thời gian,
mọi người giúp em với.[/TD]
[/TR]
[/TABLE]

 

[patygate591]

Bạn tham khảo bài này... rồi làm theo là được thôi...

http://www.giaiphapexcel.com/forum/showthread.php?8798-Tạo-mục-lục-tự-động-trong-excel

 

[giangleloi]

[TABLE="width: 1024"]
[TR]
[TD="colspan: 16"]Em muốn hiện tên tất cả các sheet trong file lên 1 sheet đặt tên là trang chủ
và muốn chọn sheet nào thì chỉ việc click vào đó nó sẽ dẫn đến sheet đó.
Vì file em có quá nhiều sheet nên việc tìm đến sheet cần tìm quả là quá mất thời gian,
mọi người giúp em với.[/TD]
[/TR]
[/TABLE]

Paste code sau vào module rồi chạy code:

Sub GLL()
Dim Ws, I
 For Each Ws In ThisWorkbook.Worksheets
   If Ws.Name <> "Trang chu" Then
      I = I + 1
      Sheet1.Range("A" & I).Hyperlinks.Add Sheet1.Range("A" & I), "", "'" & Ws.Name & "'!A1", , Ws.Name
      Ws.Range("A1").Hyperlinks.Add Ws.Range("A1"), "", "'" & Sheet1.Name & "'!A1", , Sheet1.Name
   End If
 Next
End Sub

 

[huuthang_bd]

Có ai tìm được cách làm bằng tay mà nhanh và đơn giản không

 

[huuthang_bd]

Cái này có sẵn trên Excel khỏi phải đi tìm....hahaha

Có sẵn??? Là cái nào vậy bạn?

 

[huuthang_bd]

Mod nào đi qua xóa giùm mấy bài chém gió cho gọn gàng.

 

[Hoàng Trọng Nghĩa]

[TABLE="width: 1024"]
[TR]
[TD="colspan: 16"]Em muốn hiện tên tất cả các sheet trong file lên 1 sheet đặt tên là trang chủ
và muốn chọn sheet nào thì chỉ việc click vào đó nó sẽ dẫn đến sheet đó.
Vì file em có quá nhiều sheet nên việc tìm đến sheet cần tìm quả là quá mất thời gian,
mọi người giúp em với.[/TD]
[/TR]
[/TABLE]

Do bạn hỏi bài tôi tại Facebook, nên tôi trả lời bạn luôn tại đây:

Tạo một sự kiện tại Thisworkbook:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Trang chu" Then
        If Not Intersect(Range("B2,C3,D4,E5"), Target) Is Nothing Then
            Application.EnableEvents = False
            Range("A1").Select
            Sheets(Target.Value).Select
            Range("A2").Select
            Application.EnableEvents = True
        End If
    Else
        If Target.Address = "$A$1" Then
            Application.EnableEvents = False
            Range("A2").Select
            Sheets("Trang chu").Select
            Application.EnableEvents = True
        End If
    End If
End Sub

Bạn tải file dưới đây về, trong đó có hướng dẫn cho bạn thực hiện nếu thay đổi việc trình bày ở Trang Chủ.

 

[HeSanbi]

Anh Nghĩa ơi, trong VBA, Code đang chạy (là sub bình thường, không phải WS_change ), trong code có DK "If giá trị A1 = A2 then ...." (A1 = 20, A2 là dữ liệu động tăng dần 5, 10 ,15 , 20 ...) . Em muốn hỏi, có phương pháp nào để chờ đến khi A1 = A2 để sau "then" được thực hiện rồi code tiếp tục không, mong anh giúp đỡ

 

[HeSanbi]

[TABLE="width: 1024"]
[TR]
[TD="colspan: 16"]Em muốn hiện tên tất cả các sheet trong file lên 1 sheet đặt tên là trang chủ
.....[/TD]
[/TR]
[/TABLE]

Cũng tiếp chút hiểu biết, tạo Sheet MENU, tải hình ảnh hay Bannel dùng Chuột phải / Hyperlink, chọn Place in This Document, chọn Sheet
Đây là File ví dụ bảo đảm sẽ thích ngay ( có thể thay đổi màu nền):
http://www.mediafire.com/download/bd0yhyokhkrxxbq/TrangChinh.xlsb

 

[ndu96081631]

Có ai tìm được cách làm bằng tay mà nhanh và đơn giản không

Thắng nói vậy chắc là nghĩ ra được cách gì rồi chăng?
Mình cũng rất thích sự đơn giản nên chờ xem và học hỏi

 

[huuthang_bd]

Thắng nói vậy chắc là nghĩ ra được cách gì rồi chăng?
Mình cũng rất thích sự đơn giản nên chờ xem và học hỏi

Em làm vầy (Video)
Nếu có những ô khác chứa hàm mà Excel 2003 không có thì thêm một công đoạn filter những ô kết thúc bằng A1 nữa.
[video=youtube;9rII3cSpOHA]https://www.youtube.com/watch?v=9rII3cSpOHA&feature=youtu.be[/video]