Đăng ký học Excel và VBA cùng GPE tháng 11 - TPHCM

Mua sách "VBA trong Excel - Cải thiện và tăng tốc" tái bản

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

Thảo luận trong 'Các Add-ins cho excel' bắt đầu bởi dmtdmtbb, 29 Tháng mười một 2007.

  1. dmtdmtbb

    dmtdmtbb Biệt danh: xDelx

    Ctrl + Shift + A : duy chuyể qua sheet bên trái
    Ctrl + Shift + Z : duy chuyể qua sheet bên phải
    Mã:
    [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
    
     

    Các file đính kèm:

  2. anhtuan1066

    anhtuan1066 Thành viên gạo cội

    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?
     
  3. adult

    adult Thành viên hoạt động

    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.
     
  4. monomini

    monomini Thành viên mới

    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?
     
  5. poochuse

    poochuse Thành viên mới

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

    tuyendcc 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
     
  7. hainb1987

    hainb1987 Thành viên mới

    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
     
  8. trantham1802

    trantham1802 Thành viên mới

    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!!!
     
  9. quocthang52

    quocthang52 Thành viên mới

    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
     
  10. AVI612

    AVI612 Thành viên mới

    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
     
  11. Snowbear

    Snowbear Thành viên mới

    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 :))
     
  12. arexthena

    arexthena Thành viên thường trực

    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!
     
  13. ddPC

    ddPC Thành viên mới

    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
     
    Lần chỉnh sửa cuối: 21 Tháng một 2014

Chia sẻ trang này