Tạo bảng điều khiển trong excel (1 người xem)

[heoxinh89]

Chào cả nhà!
Em muốn lập một bảng điều khiển ( menu chính), từ menu chính, ấn vào các ô chứa tên sheet khác, thì nó tự chạy đến sheet khác.
Mong mọi người giúp em ạ! ( em có gửi file đính kèm ạ )

 

[vu_tuan_manh_linh]

Chào cả nhà!
Em muốn lập một bảng điều khiển ( menu chính), từ menu chính, ấn vào các ô chứa tên sheet khác, thì nó tự chạy đến sheet khác.
Mong mọi người giúp em ạ! ( em có gửi file đính kèm ạ )

Dùng hyper link là đơn giản nhất rồi bạn!!

 

[heoxinh89]

Dùng hyper link là đơn giản nhất rồi bạn!!

Cảm ơn bạn, hyper link mình biết rùi nhưng mà mình muốn làm nó mất hết các sheet còn lại, rùi để sheet menu chính thôi, từ sheep menu chính ấn là sang các sheet khác cơ.
Nhưng mình thấy hyper link thì nó hiện cả tên ô (kí hiệu ) trong cái ô mình đặt hyper link. Mình thấy mọi người dùng marco phải ko? Nói chung excel mình kém lắm, mong có ai chỉ giúp mình với?

 

[vu_tuan_manh_linh]

Cảm ơn bạn, hyper link mình biết rùi nhưng mà mình muốn làm nó mất hết các sheet còn lại, rùi để sheet menu chính thôi, từ sheep menu chính ấn là sang các sheet khác cơ.
Nhưng mình thấy hyper link thì nó hiện cả tên ô (kí hiệu ) trong cái ô mình đặt hyper link. Mình thấy mọi người dùng marco phải ko? Nói chung excel mình kém lắm, mong có ai chỉ giúp mình với?

Có lẽ bạn muốn như thế này!!! (Bấm vào cell chứa tên sheet trong Menu!)

 

[Kiều Mạnh]

Chào cả nhà!
Em muốn lập một bảng điều khiển ( menu chính), từ menu chính, ấn vào các ô chứa tên sheet khác, thì nó tự chạy đến sheet khác.
Mong mọi người giúp em ạ! ( em có gửi file đính kèm ạ )

Mình mượn code của ngưới khác làm thử cho bạn test xem thế nào nha

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long

M = 1

    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With

    For Each wSheet In Worksheets

        If wSheet.Name <> Me.Name Then

        M = M + 1

        With wSheet

            .Range("M1").Name = "Start" & wSheet.Index

            .Hyperlinks.Add Anchor:=.Range("M1"), Address:="", SubAddress:="Index", TextToDisplay:="Back to Index"

        End With

            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name

        End If
        Next wSheet

End Sub

 

[Quang_Hải]

Cảm ơn bạn, hyper link mình biết rùi nhưng mà mình muốn làm nó mất hết các sheet còn lại, rùi để sheet menu chính thôi, từ sheep menu chính ấn là sang các sheet khác cơ.
Nhưng mình thấy hyper link thì nó hiện cả tên ô (kí hiệu ) trong cái ô mình đặt hyper link. Mình thấy mọi người dùng marco phải ko? Nói chung excel mình kém lắm, mong có ai chỉ giúp mình với?

Xem file rồi tự nghiên cứu nha, cái này mình copy trên GPE nên không biết cách làm đâu nha.
Vui lòng đừng thắc mắc tại sao

 

[heoxinh89]

cảm ơn mọi người đã giúp đỡ mình. Mình làm liên kết sheet bằng cách dùng hyper link nhưng mà khi dùng lệnh ẩn "hide" thì mình ấn trên sheet chính menu không thấy sheet ẩn đâu nữa.
Có lẽ phải dùng marco đúng không? Kiến thức mình có hạn, nên nhiều khi ko hiểu. Mình đã sửa lại file của mình.Mong bạn nào thông thái giúp đỡ mình với?
Mình cảm ơn nhiều.

 

[heoxinh89]

Em cảm ơn anh Hải nhiều lắm, em đã xem cách anh làm rùi, nhưng anh làm ơn có thể chỉ giúp em làm thế nào được không? ( mặc dù em biết anh không muốn thắc mắc)
- Em không biết phải vẽ nút lệnh trên menu chính thế nào.
- Em muốn thêm các tháng khác bây giờ phải làm thế nào
Nếu anh có thời gian giúp em với nhé, em cảm ơn anh ạ

 

[Kiều Mạnh]

cảm ơn mọi người đã giúp đỡ mình. Mình làm liên kết sheet bằng cách dùng hyper link nhưng mà khi dùng lệnh ẩn "hide" thì mình ấn trên sheet chính menu không thấy sheet ẩn đâu nữa.
Có lẽ phải dùng marco đúng không? Kiến thức mình có hạn, nên nhiều khi ko hiểu. Mình đã sửa lại file của mình.Mong bạn nào thông thái giúp đỡ mình với?
Mình cảm ơn nhiều.

Anh Hải làm cho bạn rồi còn gì . nghiên cứu file đó đi. hay đó và cũng không khó lắm mà

 

[heoxinh89]

Anh Hải làm cho bạn rồi còn gì . nghiên cứu file đó đi. hay đó và cũng không khó lắm mà

Em viết xong rùi coi lại mới thấy anh Hải làm cho rùi....hic...Em cảm ơn anh Hải nhiều lắm. Em bắt đầu nghiên cứu đây, nhưng không biết b j thêm tháng thì làm thế nào anh nhỉ?

 

[Quang_Hải]

Em viết xong rùi coi lại mới thấy anh Hải làm cho rùi....hic...Em cảm ơn anh Hải nhiều lắm. Em bắt đầu nghiên cứu đây, nhưng không biết b j thêm tháng thì làm thế nào anh nhỉ?

1. Tạo ra đủ các sheet cần
2. Vào Tab Insert vẽ ra mấy cái Autoshape
3. Gán Caption cho hình vẽ, ví dụ T8
4. Đưa con trỏ về cái Shape và bấm chuột phải, chọn Format Shape
5. Tìm mục cuối cùng là Alt Text. Trong khung Description nhập T8. > Close Thoát ra
6. Đưa con trỏ về cái Shape và bấm chuột phải, chọn Asign Macro, gán macro Link_To_Sheet và bấm ok
7. Copy cái nút có tên là Menu của những sheet kia, dán vào sheet mới

**********

Đơn giản hơn thì trên sheet MENU copy cái nút đang có sẵn, sửa lại tên Caption, thực hiện tiếp từ bước 4

 

[Quang_Hải]

Em cảm ơn anh Hải nhiều lắm, em đã xem cách anh làm rùi, nhưng anh làm ơn có thể chỉ giúp em làm thế nào được không? ( mặc dù em biết anh không muốn thắc mắc)
- Em không biết phải vẽ nút lệnh trên menu chính thế nào.
- Em muốn thêm các tháng khác bây giờ phải làm thế nào
Nếu anh có thời gian giúp em với nhé, em cảm ơn anh ạ

Up trùng bài do mạng chập chờn. MOD xóa giúp bài thừa này

 

[heoxinh89]

1. Tạo ra đủ các sheet cần
2. Vào Tab Insert vẽ ra mấy cái Autoshape
3. Gán Caption cho hình vẽ, ví dụ T8
4. Đưa con trỏ về cái Shape và bấm chuột phải, chọn Format Shape
5. Tìm mục cuối cùng là Alt Text. Trong khung Description nhập T8. > Close Thoát ra
6. Đưa con trỏ về cái Shape và bấm chuột phải, chọn Asign Macro, gán macro Link_To_Sheet và bấm ok
7. Copy cái nút có tên là Menu của những sheet kia, dán vào sheet mới

**********

Đơn giản hơn thì trên sheet MENU copy cái nút đang có sẵn, sửa lại tên Caption, thực hiện tiếp từ bước 4

Em cảm ơn anh ạ.
Em làm theo các bước anh chỉ dẫn, nhưng đến bước 5, em không không thấy mục alt text mà chỉ thấy mục text box, và không có khung description anh ạ. Anh chỉ dẫn cho em với nhé!
Em cảm ơn ạ.

 

[Quang_Hải]

Em cảm ơn anh ạ.
Em làm theo các bước anh chỉ dẫn, nhưng đến bước 5, em không không thấy mục alt text mà chỉ thấy mục text box, và không có khung description anh ạ. Anh chỉ dẫn cho em với nhé!
Em cảm ơn ạ.

Nếu có chỉ dẫn tiếp thì cũng chỉ là giống ý chang bài 11 nhé.

 

[heoxinh89]

Nếu có chỉ dẫn tiếp thì cũng chỉ là giống ý chang bài 11 nhé.

anh Hải ơi, em đã làm được như anh chỉ dẫn rùi ạ.
Nhưng nút "show all" và "hide all". anh làm như thế nào ạ?
Anh có thể hướng dẫn em được không ạ? em cảm ơn anh!