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

  • Thread starter myxuyen
  • Ngày gửi
M

myxuyen

Sơ cấp
23/12/04
3
0
1
56
myxuen004
#1
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
 
Sửa lần cuối:
H

hong hot

Thành viên thân thiết
#2
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.
 
P

phongxd

Sơ cấp
9/11/04
2
0
0
35
xuyen
#3
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é
 
L

lyvanhang

Sơ cấp
6/9/04
34
0
0
hanoi
#4
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
 
V

vongphuc

Excel Fans Club
11/8/04
300
4
0
Ha Noi
#5
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
 
L

levanduyet

Welcome
16/10/04
535
11
18
HCM
my.opera.com
#6
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...
 
M

myxuyen

Sơ cấp
23/12/04
3
0
1
56
myxuen004
#7
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
 
L

levanduyet

Welcome
16/10/04
535
11
18
HCM
my.opera.com
#8
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
 
M

myxuyen

Sơ cấp
23/12/04
3
0
1
56
myxuen004
#9
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 đó.
 
L

levanduyet

Welcome
16/10/04
535
11
18
HCM
my.opera.com
#10
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.
 
H

handung107

Thành viên thân thiết
28/8/04
576
13
0
VN
www.giaiphapexcel.com
#13
Đầ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
 
H

handung107

Thành viên thân thiết
28/8/04
576
13
0
VN
www.giaiphapexcel.com
#14
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
 
cam_to_80

cam_to_80

Nghỉ mất sức !
31/3/04
586
6
18
38
Hà đông
#15
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.
 
H

handung107

Thành viên thân thiết
28/8/04
576
13
0
VN
www.giaiphapexcel.com
#16
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é
 
H

handung107

Thành viên thân thiết
28/8/04
576
13
0
VN
www.giaiphapexcel.com
#17
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
 
F

ForestC

Cao cấp
11/1/05
377
1
0
39
E'rywhere
#18
handung107 nói:
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é
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 .. : (
 
L

levanduyet

Welcome
16/10/04
535
11
18
HCM
my.opera.com
#19
To: Maica,
MaiCa nói:
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 .. : (
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
 
H

handung107

Thành viên thân thiết
28/8/04
576
13
0
VN
www.giaiphapexcel.com
#20
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.
 

Thành viên trực tuyến

Không có thành viên trực tuyến.




Xem nhiều