Bỏ qua nội dung chính

Làm cách nào để tự động di chuyển con trỏ đến ô cụ thể trong Excel?

Đôi khi, bạn có thể cần phải chuyển đến ô cụ thể cho một số mục đích. Bài viết này sẽ chỉ cho bạn các phương pháp di chuyển con trỏ đến ô cụ thể một cách chi tiết.

Tự động di chuyển con trỏ đến ô cụ thể với hộp Tên
Tự động di chuyển con trỏ đến ô cụ thể với mã VBA

Tự động di chuyển con trỏ đến ô cụ thể với hộp Tên

Hộp Tên có thể giúp bạn dễ dàng di chuyển con trỏ đến ô cụ thể trong Excel.

1. bên trong Họ tên , nhập tham chiếu ô cụ thể mà bạn sẽ chuyển đến, sau đó nhấn đăng ký hạng mục thi Chìa khóa.

Sau đó, con trỏ di chuyển đến ô được chỉ định ngay lập tức.

Chú thích: Nếu bạn cần chuyển đến ô được chỉ định trong một trang tính khác, ví dụ: nhảy đến ô C30 của Trang tính2, vui lòng nhập Trang tính 2! C30 vào hộp Tên, rồi nhấn phím Đi vào.

Tự động di chuyển con trỏ đến ô cụ thể với mã VBA

Mã VBA sau đây giúp bạn di chuyển đến ô cụ thể cùng một lúc trong Excel.

1. nhấn Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp vào Tsổ làm việc của anh ấy trong ngăn bên trái để mở ThisWorkbook (Mã) cửa sổ. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ.

Mã VBA: Di chuyển đến đầu hoặc đầu hàng tiếp theo để nhập dữ liệu

Sub jumpnext()
    Range("F100").Select
End Sub

Chú thích: Trong mã, F100 là ô được chỉ định mà bạn sẽ chuyển đến. Bạn có thể thay đổi nó khi bạn cần.

3. Nhấn nút F5 để chạy mã, sau đó con trỏ di chuyển đến ô F100 trong trang tính hiện tại ngay lập tức.

Các bài liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn   |  Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô   |  Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (16)
No ratings yet. Be the first to rate!
Trang Gia Ky (Mr.)
Trang Gia Ky (Mr.)
This comment was minimized by the moderator on the site
Dear,
Please help me how to code : I want to move down row by row on tthe data already fillter
Current cursor at A6 (fix) because it 's Row Header, I want to move down :
Step 1 : move down to A9
Step 2 : move down to A11
Step 3 : move down to A15
(Do until blank)
Screenshot 2023-11-30 200730
(Please see srceen shot attacked)

Many Thanks
Ky
Reply
0
0
arvind
arvind
This comment was minimized by the moderator on the site
Sub jumpnext()
Range("F100").Select
End Sub

What chnage do i have to do so this code can be uased on all sheets of the workbook at the same time.

Regards,
Reply
0
0
crystal
crystal     arvind
This comment was minimized by the moderator on the site
Hi arvind,

The following VBA code can do you a favor. Please give it a try. Thank you.
Note: You need to put the VBA code in the ThisWorkbook (Code) editor.
Sub jumpnext()
'Updated by Extendoffice 20230109
Set CurrWS = ActiveSheet
    For Each WS In ThisWorkbook.Worksheets
    WS.Activate
        WS.Range("F100").Select
    Next
    CurrWS.Activate
End Sub

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/select-same-cell.png
Reply
Report
0
0
Andy Coghlan
Andy Coghlan
This comment was minimized by the moderator on the site
Hi,

Can you help with the following VBA code request please?

Sheet 1 is named "Master Asset" with a further 100 sheets named as "0001...0002...0003....0004 ~ 0100"

In any of each of the sheets "0001 ~ 0100"
I want to be able to select cell A4 which already contains text "Back to Master Asset" then press enter, to automatically jump back to cell J3 in the "Master Asset"

Thanks in advance.
Andy C.
Reply
0
0
crystal
crystal     Andy Coghlan
This comment was minimized by the moderator on the site
Hi Andy Coghlan，
I can't find a way to trigger the macro with the enter key right now. The following VBA code can insert the same hyperlink in A4 of all worksheets at the same time. After clicking the hyperlink in A4, it will jump to J3 in the "Master Asset". Please give it a try.

Sub AddHyperlinks()
'Updated by Extendoffice 20220715
    Dim xRg, yRg As Range
    Set xRg = Worksheets("Master Asset").Range("J3")
    xStr = xRg.Address(External:=True)
    For Each Sh In Worksheets
        If Sh.Name <> "Sh.Name" Then
            Set yRg = Sh.Range("A4")
            yRg.Hyperlinks.Add anchor:=yRg, Address:="", SubAddress:=xStr, TextToDisplay:="Back to Master Asset"
        End If
    Next
End Sub
Reply
Report
0
0
Nelson
Nelson
This comment was minimized by the moderator on the site
Bagiaimana mengisi textbox pada form dengan memilih data di cell/sheet yg dipilih dgn kursor ?
Reply
0
0
crystal
crystal     Nelson
This comment was minimized by the moderator on the site
Hi Lelson,
Sorry I don't understand what you mean. Would you mind providing a screenshot of your data? Or try to be more specific about your question. Sorry for the inconvenience.
Reply
Report
0
0
Shahad
Shahad
This comment was minimized by the moderator on the site
you didn't sign the F5 for teh code, how it is gonna run by pressing F5?
Reply
0
0
John
John
This comment was minimized by the moderator on the site
Is it possible to move the active cell without pressing a key on the keyboard? For example, can I have the cell move down as soon as the cell above it is filled? I am looking for either a function or a VBA to run when a cell is filled. As soon as A3 has characters in it, is there a VBA to move the active cell down to A4?
Reply
0
0
crystal
crystal     John
This comment was minimized by the moderator on the site
Hi John,
I am confused on your question. How can we know if the cell is finish editing?
Reply
Report
0
0
James
James
This comment was minimized by the moderator on the site
Sorry I mean to type "instantly jump to F8"
Reply
0
0
crystal
crystal     James
This comment was minimized by the moderator on the site
Hi James,
Please try the below code. After data has been entered into E6, press the Tab key or the Enter key, and the cursor will jump to F8 instantly.

Private Sub Worksheet_Change(ByVal Target As Range)

'Updated by Extendoffice 2020087

Dim tabArray As Variant

Dim i As Long

tabArray = Array("E6", "F8")

Application.ScreenUpdating = False

For i = LBound(tabArray) To UBound(tabArray)

If tabArray(i) = Target.Address(0, 0) Then

If i = UBound(tabArray) Then

Me.Range(tabArray(LBound(tabArray))).Select

Else

Me.Range(tabArray(i + 1)).Select

End If

End If

Next i

Application.ScreenUpdating = True

End Sub
Reply
Report
0
0
james
james
This comment was minimized by the moderator on the site
How would I have the cursor move from Cell E6 to F8 once data has been entered into E6? I would like the cursor to ignore all the other lines in the E column and instantly jump to E6.
Reply
0
0
Steve
Steve
This comment was minimized by the moderator on the site
That's helpful thanks. However I would like to have a formula as the argument for the 'Range' function. Is this permissible? What I would like to do is have the user enter a number in a dialog box, then search for the first occurrence of that number in a range of cells, and then jump the cursor to that cell...
Reply
0
0
crystal
crystal     Steve
This comment was minimized by the moderator on the site
Hi Steve,
Sorry can't help you with that.
Reply
Report
0
0
Kris
Kris
This comment was minimized by the moderator on the site
I'd like to make a macro that moves from one cell to the next, step by step.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations