handung107
Cao cấp
Chắc các bạn ai cũng biết khi Click chuột phải vào những mũi tên ở góc trái của Sheet Tab, bạn sẽ thấy một menu hiện ra với danh sách các Sheet cho chúng ta lựa chọn.
Nếu chúng ta giấu thanh Sheet Tab đi, thì chúng ta không còn sử dụng được chức năng này nữa. Chúng ta sẽ đem công cụ này ra bằng cách chép các Source Code sau vào các Module và ThisWorkbook. Khi đó, bạn chỉ cần Click chuột phải lên bất cứ vị trí nào trên Sheet và chọn trên Menu, DS các Sheet sẽ hiện ra giống như khi các bạn Click vào những mũi tên ở góc trái Sheet Tab vậy.
Bạn vào cửa sổ VBA và Insert Module. Chép Code sau vào Module :
Option Explicit
Sub IndexCode()
Application.CommandBars("workbook Tabs").ShowPopup
End Sub
Và Double Click vào ThisWorkbook, chép Code sau :
Option Explicit
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim cCont As CommandBarButton
On Error Resume Next
Application.CommandBars("Cell").Controls("Sheet Index").Delete
On Error GoTo 0
Set cCont = Application.CommandBars("Cell").Controls.Add _
(Type:=msoControlButton, Temporary:=True)
With cCont
.Caption = "Sheet Index"
.OnAction = "IndexCode"
End With
End Sub
Kết luận :
Với những bạn chỉ thích Click chuột phải và sử dụng Menu Pop-up, thì cách này cũng như Add-in của bạn Levanduyet là phù hợp.
Với những Add-in khác, bạn có thể sử dụng trên thanh Menu, và đặc biệt Add-in Workbook Navigation và Navigator sẽ cho bạn nhiều chức năng hơn, bạn có thể di chuyển qua lại giữa các Workbook khác nhau đang làm việc, di chuyển qua lại giữa các dãy tên trong cùng Workbook hay giữa các Workbook khác.
Nếu chúng ta giấu thanh Sheet Tab đi, thì chúng ta không còn sử dụng được chức năng này nữa. Chúng ta sẽ đem công cụ này ra bằng cách chép các Source Code sau vào các Module và ThisWorkbook. Khi đó, bạn chỉ cần Click chuột phải lên bất cứ vị trí nào trên Sheet và chọn trên Menu, DS các Sheet sẽ hiện ra giống như khi các bạn Click vào những mũi tên ở góc trái Sheet Tab vậy.
Bạn vào cửa sổ VBA và Insert Module. Chép Code sau vào Module :
Option Explicit
Sub IndexCode()
Application.CommandBars("workbook Tabs").ShowPopup
End Sub
Và Double Click vào ThisWorkbook, chép Code sau :
Option Explicit
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim cCont As CommandBarButton
On Error Resume Next
Application.CommandBars("Cell").Controls("Sheet Index").Delete
On Error GoTo 0
Set cCont = Application.CommandBars("Cell").Controls.Add _
(Type:=msoControlButton, Temporary:=True)
With cCont
.Caption = "Sheet Index"
.OnAction = "IndexCode"
End With
End Sub
Kết luận :
Với những bạn chỉ thích Click chuột phải và sử dụng Menu Pop-up, thì cách này cũng như Add-in của bạn Levanduyet là phù hợp.
Với những Add-in khác, bạn có thể sử dụng trên thanh Menu, và đặc biệt Add-in Workbook Navigation và Navigator sẽ cho bạn nhiều chức năng hơn, bạn có thể di chuyển qua lại giữa các Workbook khác nhau đang làm việc, di chuyển qua lại giữa các dãy tên trong cùng Workbook hay giữa các Workbook khác.
