Nhảy tới vị trí bất kỳ trong bảng tính

[6_banh]

Tôi có bảng tính 100 con số thứ tự 0->100 nay tôi muốn nhập dữ liệu vào số thứ tự bất kỳ trong 100 con số đó mà không sử dụng chuột rê vào số đó vậy tôi phải làm sao?Ví dụ tôi đang nhập liệu ở số thứ tự 20 nay tôi muốn nhảy đến số thứ tự 50 để nhập liệu tiếp tôi phải làm thế nào? mong các pro chỉ giáo

 

[BNTT]

Tôi có bảng tính 100 con số thứ tự 0->100 nay tôi muốn nhập dữ liệu vào số thứ tự bất kỳ trong 100 con số đó mà không sử dụng chuột rê vào số đó vậy tôi phải làm sao?Ví dụ tôi đang nhập liệu ở số thứ tự 20 nay tôi muốn nhảy đến số thứ tự 50 để nhập liệu tiếp tôi phải làm thế nào? mong các pro chỉ giáo

Bạn biết cái ô chứa số thứ tự 50 ở đâu chứ ?
Giả sử nó ở cột A, hàng thứ 55, bạn muốn nhảy đến đó mà không dùng chuột thì bạn nhấn Ctrl+G, nhập A55 (hoặc địa chỉ của ô nào đó chứa số thứ tự bạn muốn nhảy đến), rồi nhấn Enter.

 

[phungvinhquang]

Tôi có bảng tính 100 con số thứ tự 0->100 nay tôi muốn nhập dữ liệu vào số thứ tự bất kỳ trong 100 con số đó mà không sử dụng chuột rê vào số đó vậy tôi phải làm sao?Ví dụ tôi đang nhập liệu ở số thứ tự 20 nay tôi muốn nhảy đến số thứ tự 50 để nhập liệu tiếp tôi phải làm thế nào? mong các pro chỉ giáo

Mời bạn thử file này xem có đáp ứng yêu cầu của bạn không nhé!

chú ý: (dành cho các bạn chưa biết nhiều về macro)
Trước khi mở file, phải bảo đảm là phần [security level] (vào menu tools \ macro \ security) phải được set ở medium và khi mở file, excel sẽ hỏi: "Macros may contain viruses. It is usually safe to ..." lúc này bạn phải chọn [Enable Macros]

(Để có được macro này, tôi đã tham khảo và sử dụng lại code của bạn nào đó trên diễn đàn giaiphapexcel (không nhớ rõ ;- ). Vậy xin gởi lời cảm ơn chung đến giaiphapexcel nhé!)

 

[ChanhTQ@]

Một cách thô thiển, bạn tham khảo

Bạn chép Macro này vô cửa sổ VBE, gán cho nó một tổ hợp phím, ví dụ {CTRL}+{SHIF} G
Khi nào bạn muốn đến số 35, chẳng hạn, ta bấm tổ hợp phím chạy macro; & nhập số 35 vô cửa sổ vừa xuất hiện;

Option Explicit
Sub GoToValue()
 Dim Value_ As Variant
 Value_ = InputBox("HAY NHAP SO BAN CAN DEN:")
 Cells.Find(Value_, , xlFormulas, xlWhole).Select
End Sub

 

[tedaynui]

Bạn chép Macro này vô cửa sổ VBE, gán cho nó một tổ hợp phím, ví dụ {CTRL}+{SHIF} G
Khi nào bạn muốn đến số 35, chẳng hạn, ta bấm tổ hợp phím chạy macro; & nhập số 35 vô...

Cách này sao lại "thô thiển" hả bác, quá Pro luôn á, hihi
Theo cách này em thấy Ctrl+F củ chuối tí cho xong

TDN