Di chuyển qua lại giữa các sheet

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi myxuyen, 23 Tháng mười hai 2004.

131,908 lượt xem

  1. myxuyen

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

    Bài viết:
    3
    Đã được thích:
    0
    Nơi ở:
    myxuen004
    Xin chào các anh chị em mới tham gia diển đàn KT này em cảm thấy rất vui
    em rất muốn học hỏi rất nhiều điều.
    Xin anh chị chỉ giúp em cách tạo menu Click chuột phải trong Excel ,em có một file KT bằng Excel rất đơn giản chương trình chỉ có vài macros và một số công thức thôi nhưng khi chuyển qua lại giửa các sheet rất phiền em nghe các bạn em nói hỏi trên diển đàn KT sẻ có các cao thủ Excel chỉ giúp cho
    Vậy em xin các anh chị nào biết chỉ giúp em với nhé . Thành thật cám ơn trước nha
    ĐC: myxuyendhdlcl04@yahoo.com
     
    Last edited: 23 Tháng mười hai 2004
    #1
  2. hong hot

    hong hot Thành viên thân thiết

    Bài viết:
    444
    Đã được thích:
    4
    Nơi ở:
    Thái rồi vẫn còn Nguyên
    Chuyển qua, lại giữa các sheet thì cần gì phải macro nhỉ, có phím nóng mà. Ctrl+Tab thử xem, 2 động tác trong khi click chuột ít nhất là 4 động tác.
     
    #2
  3. phongxd

    phongxd Thành viên sơ cấp

    Bài viết:
    2
    Đã được thích:
    0
    Nơi ở:
    xuyen
    Dạ xin chào hong hot ,ý mình muốn hỏi là nếu như mình có nhiều Sheet thì chuyển qua lại bằng phím nóng từ sheet 1 đến sheet 12 thì hơi bị mõi tay quá , còn macros thì ý muốn nói có một vài sheet mà phải chạy macros thì mới cho kết quả đúng mình muốn cho macros đó nằm trong menu để bất cứ là đang đứng ở sheet nào cũng có thể chọn được . Bạn hiểu ý mình chưa.
    Giúp dùm mình với nhé
     
    #3
  4. lyvanhang

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

    Bài viết:
    34
    Đã được thích:
    0
    Nơi ở:
    hanoi
    Nếu bạn muốn chuyển đổi giữa các sheet thì có thể thử cách này xem: giữ ctrl+chon shift mà mình muốn chuyển đến. Đảm bảo bạn sẽ ko bị mỏi tay
     
    #4
  5. vongphuc

    vongphuc Excel Fans Club

    Bài viết:
    300
    Đã được thích:
    4
    Nơi ở:
    Ha Noi
    Hóng hớt à, phím nóng để chuyển qua lại giữa các sheet là Ctrl + Page Up, Ctrl + Page Down cơ mà. Ctrl + Tab là chuyển qua lại giữa các workbook

    To myxuyen : nếu trong workbook của bạn có quá nhiều sheet, thì ở phía dưới bên trái màn hình có 1 nhóm 4 nút dùng để di chuyển nhanh, kích chuột phải vào đó và lựa chọn sheet cần tìm

    To phongxd : muốn macro chạy trong 1 sheet có tên xác định, bạn thêm vào đầu macro đó câu lệnh sau : Sheets("TEN SHEET").Select
    Hoặc muốn macro chạy trong sheet kế tiếp của sheet hiện thời, ta thêm câu lệnh : ActiveSheet.Next.Select
     
    #5
  6. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Nơi ở:
    HCM
    Chào các bạn,
    Tôi đã xây dựng một add-in đơn giản và đã gởi cho bạn myxuyen rồi. Bạn nào cảm thấy cần thì có thể liên lạc với bạn myxuyen để dùng.
    Chúc các bạn vui...với forum này...
     
    #6
  7. myxuyen

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

    Bài viết:
    3
    Đã được thích:
    0
    Nơi ở:
    myxuen004
    Em chào anh Duyet !
    Được biết anh Duyet đã gởi cho em file Add-in gì đó mà sao em chưa nhận được,anh Duyet có thể nào gởi lại cho em theo địa chỉ dưới đây được không.Có lần em đã từng hứa sẻ mời anh ăn kem mà không biết làm sao có dịp gặp được anh vì lúc này em cũng đang rất bận nếu có dịp chắc chắn anh em mình sẻ gặp và tiệc kem đó em sẻ mời,còn bây giờ em cũng xin cám ơn anh về việc giúp em xây dựng add-in để em được học hỏi.
    Rất cám ơn anh
    ĐC : myxuyendhdlcl04@yahoo.com
     
    #7
  8. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Nơi ở:
    HCM
    To: Myxuyen,
    Tôi chắc chắn đã có gởi cho bạn! Nếu bạn chưa nhận được tôi sẽ gởi lại.
    Chúc bạn vui... (Nói nhỏ, tôi chỉ giỡn thôi ! Không ăn kem đâu !)
    Lê Văn Duyệt
     
    #8
  9. myxuyen

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

    Bài viết:
    3
    Đã được thích:
    0
    Nơi ở:
    myxuen004
    Anh Duyệt ơi sao mà lâu quá vậy bộ lúc này anh bận lắm hả,đợi anh đến dài cả cổ rồi mà không thấy thư nào có levanduyet cả ,chắc em phải tìm thầy khác quá .
    Nhưng nói thật dù anh không giúp em nhưng em cũng rất ái mộ anh đó.
     
    #9
  10. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Nơi ở:
    HCM
    To: Myxuyen,
    Tôi đã gởi cho bạn theo địa chỉ mxuyen04@easyvn.com, vào ngày Thứ ba 23/11/2004. Bạn vui lòng kiểm tra lại.
    Chào bạn,
    Lê Văn Duyệt
    PS: Anyway, I will send to you one more time.
     
    #10
  11. tranvanhung

    tranvanhung Gãi ngứa

    Bài viết:
    2,976
    Đã được thích:
    9
    Nơi ở:
    Biên Hoà - Đồng Nai
    Đây là file mà bác Levanduyet gởi cho Myxuyen. Bạn down xuống nhé
     

    Các file đính kèm:

    #11
  12. Bình_OverAC

    Bình_OverAC Over Abnormal / Crazy

    Bài viết:
    845
    Đã được thích:
    7
    Nơi ở:
    Nha Trang
    Ctrl + Page Up
    Ctrl + Page Down
     
    #12
    VINH09CVL thích bài này.
  13. handung107

    handung107 Thành viên thân thiết

    Bài viết:
    576
    Đã được thích:
    13
    Nơi ở:
    VN
    Đầu năm, xin tặng các bạn một File nhỏ, bạn không cần làm gì trên Source Code cả, Bạn vào Tools/Macro/Visual Basic Editor (Alt+F11), trong khung soạn thảo VBA, bạn chọn Insert/Module, và bạn copy toàn bộ đoạn Source vào. Sau đó, bạn có thể dùng :
    1. Vào View/Toolbars/Form và trên thanh công cụ Form, bạn chọn Command Button, Click chuột phải, chọn assign Macro và khi hộp thoại Macro hiện ra, bạn chọn Macro SheetNavigation
    2. Vào View/Toolbars/Customize, tại thẻ Command, mục Categories chọn Macros, mục Commands chọn Custom Button, bạn kéo rê lên thanh Menu, sau đó, click chuột phải lên Button mới tạo thành và chọn Assign Macro, và bạn add tương tự như trên
     
    #13
  14. handung107

    handung107 Thành viên thân thiết

    Bài viết:
    576
    Đã được thích:
    13
    Nơi ở:
    VN
    Cũng lại là một File Add-in về chọn Sheet, xin gởi tặng các bạn. Add-in này sau khi cài xong, sẽ luôn hiện ra ở góc trên trái của Sheet, bảo đảm các bạn sẽ thoải mái hơn trong việc lựa chọn các Sheet trên cùng một Workbook, thậm chí với cả những Workbook khác nhau trong cùng một phiên làm việc
     
    #14
  15. cam_to_80

    cam_to_80 Nghỉ mất sức !

    Bài viết:
    586
    Đã được thích:
    5
    Nơi ở:
    Hà đông
    Sao anh duyệt không đưa luôn vào diễn đàn để mọi người còn tham khảo ! em cũng thấy ý tưởng đấy hay hay.
     
    #15
  16. handung107

    handung107 Thành viên thân thiết

    Bài viết:
    576
    Đã được thích:
    13
    Nơi ở:
    VN
    Add-in của Levanduyet là File Myxuyen.zip mà tranvanhung đã up lên diễn đàn lâu rồi, cam_to_80 à. Bạn xem lại đi nhé
     
    #16
  17. handung107

    handung107 Thành viên thân thiết

    Bài viết:
    576
    Đã được thích:
    13
    Nơi ở:
    VN
    Hôm nay, chắc các bạn đã quen với các add-in giúp các bạn thuận lợi hơn trong việc di chuyển qua lại giữa các Sheet trong cùng 1 Workbook hoặc giữa các Workbook với nhau (Navigation). Còn một add-in nữa, có thể giúp bạn di chuyển không những giữa các Sheet, mà còn giữa các tên (Name), các Link, các Object, và nhiều chức năng khác rất hay, tôi up lên cho các bạn sử dụng. Có thể sắp tới, chúng ta sẽ tổng hợp đề tài này thành một phần nhỏ : " Navigation " trong đề tài lớn : "Kỹ thuật nhập dữ liệu " chẳng hạn. Mong các bạn quan tâm theo dõi
     
    #17
  18. ForestC

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

    Bài viết:
    377
    Đã được thích:
    1
    Nơi ở:
    E'rywhere
    Dưng mà cái add-in MyXuyen của anh Duyệt đó, anh Protech Source Code rồi anh em có xem được để mà tham khảo học hỏi đâu ? Hích hích .. : (
     
    #18
  19. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Nơi ở:
    HCM
    To: Maica,
    Em ơi, Anh bao giờ cũng Open Source mà ! Không bao giờ Anh khoá làm chi ! Em "Vu khống" anh quá !!! Hu hu hu.
    Chúc em xem được source.
    Lê Văn Duyệt
     
    #19
  20. handung107

    handung107 Thành viên thân thiết

    Bài viết:
    576
    Đã được thích:
    13
    Nơi ở:
    VN
    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.
     
    #20

Chia sẻ trang này