Add-In - phím tắt di chuyển qua các sheet

[dmtdmtbb]

Ctrl + Shift + A : duy chuyể qua sheet bên trái
Ctrl + Shift + Z : duy chuyể qua sheet bên phải

[COLOR=black]Option Explicit[/COLOR]
[B][COLOR=seagreen]'Make by dmtdmtbb[/COLOR][/B]
Dim Shc,  i
[COLOR=seagreen]'''''''''''''''''''''''''''''''''''''''''''''''''''''''''[/COLOR]
Sub Move_Right_Sheet()
On Error Resume Next
Shc = ActiveWorkbook.Worksheets.Count
If ActiveSheet.Name = Worksheets(Shc).Name Then
  [COLOR=seagreen]'MsgBox "Can't move right", 48, "Msg":[/COLOR]
  Exit Sub
End If
For i = 1 To Shc
   If ActiveSheet.Name = Worksheets(i).Name Then
      Worksheets(i + 1).Select
      Exit For
   End If
Next i
End Sub
[COLOR=seagreen]''''''''''''''''''''''''''''''''''''''''''''''[/COLOR]
Sub Move_Left_Sheet()
On Error Resume Next
Shc = ActiveWorkbook.Worksheets.Count
If ActiveSheet.Name = Worksheets(1).Name Then
[COLOR=seagreen]   'MsgBox "Can't move left", 48, "Msg"[/COLOR]
   Exit Sub
End If
For i = 1 To Shc
   If ActiveSheet.Name = Worksheets(i).Name Then
      Worksheets(i - 1).Select
      Exit For
   End If
Next i
End Sub

 

[anhtuan1066]

Oh... nếu là di chuyển qua lại giửa các sheet thì cần gì lập trình nhỉ?
Ctrl + Page Down : qua phải
Ctrl + Page Up : Qua trái
Trí giới thiệu thử trong này còn gì đặc biệt nữa ko?

 

[adult]

không hiểu tác giả tạo ra hàm này để làm gì trong khi excel đã có sẵn. Nếu đơn thuần chỉ là di chuyển qua lại giựa các sheet thì dùng của excel có 2 nút, còn dùng add-ins đến 3 nút.

 

[monomini]

Cái khác là: Add-In thì dùng được tay trái!

Còn Ctrl PageUp hoặc PageDown thì dùng hơi khó.

2 cách này không thực sự hiệu quả -- Có bạn nào có cách khác kiểu Alt Tab như đối với cửa sổ Win không?

 

[poochuse]

Cái quan trọng nữa là em xài MacBook ko có PgUp+PgDn
Thanks

 

[tuyendcc]

kakaka, nhưng dù sao đó cũng là sáng tạo, tuỳ theo mỗi sở thích của từng người, ai thấy tiện hơn thì dùng thôi

 

[hainb1987]

Tớ thấy dùng Ctrl+Pageup hoăc PageDown cho đơn giản,cái đó có sẵn rồi khỏi phải cài đặt. Chứ lạm dụng Add-In nhiều cũng không tốt lắm, mấy cả nặng máy nữa. Nhưng dù sao cũng cám ơn bạn về ý tưởng, mong bạn phát huy hơn nữa

 

[trantham1802]

Oh... nếu là di chuyển qua lại giửa các sheet thì cần gì lập trình nhỉ?
Ctrl + Page Down : qua phải
Ctrl + Page Up : Qua trái
Trí giới thiệu thử trong này còn gì đặc biệt nữa ko?

Great! m làm việc với cùng 1 lúc rất là nhiều sheet nên các phím tắt này cực hữu ích. Thanks!!!

 

[quocthang52]

Mình là mình thích cái cách viết hàm của bạn + ĐMT hơn vì nó nhanh khi dùng chỉ 1 bên tay

 

[AVI612]

mình muốn thay đổi phím tắt cho nó thì làm thế nào vậy.....
Àh thanks bạn vì Addin hay thích dùng 1 tay hơn là 2 tay cho Ctrl+Pageup or Pagedown

 

[Snowbear]

Mình thấy với Mac Buk, không có Pg up và Pg down thì có thể dùng tổ hợp Fn + Ctrl + mũi tên lên xuống. Vẫn phải dùng 2 tay )

 

[arexthena]

Có bạn nào giúp chỉ mình các phím tắt cho thao tác sheet như hide/unhide/delete sheet với!

 

[ddPC]

trong office 2007 trở lên nếu hãng đã hỗ trợ phím tắt Ctrl+Up-Dow thì ta nên sử dụng mặc định, vì thay thế phím tắt khắc chưa chắc đã tốt, có thể xung đột với phím tắt chức năng khắc