Xin hướng dẫn tạo phím tắt

[longlt08]

Xin chào các anh chị GPE !
Tôi đã ghi macro để tạo được phím tắt mở sheet theo tên yêu cầu nhưng chưa biết viết thêm lệnh để về đúng ô trong sheet đó. Nhờ mọi người chỉ giúp. Xin cảm ơn !
(Tôi đã dùng lệnh: sheets("sheet1").Select) xin nhờ viết giúp lệnh để về đúng ô trong sheet1(ví dụ: $c$100)?

 

[ndu96081631]

Xin chào các anh chị GPE !
Tôi đã ghi macro để tạo được phím tắt mở sheet theo tên yêu cầu nhưng chưa biết viết thêm lệnh để về đúng ô trong sheet đó. Nhờ mọi người chỉ giúp. Xin cảm ơn !
(Tôi đã dùng lệnh: sheets("sheet1").Select) xin nhờ viết giúp lệnh để về đúng ô trong sheet1(ví dụ: $c$100)?

Bạn có câu lệnh Sheets("Sheet1").Select rồi, giờ cùng lắm ta thêm câu nữa Range("C100").Select là xong chứ gì:

  Sheets("sheet1").Select
  Range("C100").Select

Hoặc gọn hơn

Application.Goto Sheets("sheet1").Range("C100")

 

[longlt08]

Bạn có câu lệnh Sheets("Sheet1").Select rồi, giờ cùng lắm ta thêm câu nữa Range("C100").Select là xong chứ gì:

Sheets("sheet1").Select
Range("C100").Select

Hoặc gọn hơn

Application.Goto Sheets("sheet1").Range("C100")

Xin chào Anh ndu96081631 !
Tôi viết tiếp câu lệnh anh giúp nhưng Excel "không chịu" & báo lỗi: run-time erro:'9'
Subscript out of range
Nhờ anh xem lại giúp. Xin cảm ơn !
Nguyên văn Sub tôi viết them câu lệnh Range("K1417") thì báo lỗi - bỏ câu lệnh viết thêm thì macro vẫn mở sheet Tongcong bình thường:
Sub Macro7()
'
' Macro7 Macro
' Nhan phím ctrl+K mo ô ket qua cong giá tri Doanh thu-Made 19/11/2010 - Le Thang Long
'
' Keyboard Shortcut: Ctrl+k
'
Sheets("Tongcong").Select
Range("K1417").Select

End Sub

 

[TrungChinhs]

Câu lệnh của Ndu đúng mà anh Long. Em nghĩ code lỗi là do anh đã đổi tên sheet1 thành Tongcong hoặc viết là Range("K1417").Select. Vì vậy anh phải sửa code thành

Application.Goto Sheets("[COLOR="red"]Tongcong[/COLOR]").Range("K1417")

Chú ý không được viết thêm Select