Cần giải bài toán:Tìm kiếm và đưa con trỏ vào ô (~ F2)

[dutoan06]

Tôi có bài toán như sau nhờ các anh, chị chỉ giúp giùm!
Tôi có các dữ liệu dạng số nằm trên các ô cell ( Chúng nằm ở vị trí ngẫu nhiên - không liên tục) thuộc vùng " $A:$H" - cần tạo macro : tìm kiếm từ trên xuống, từ trái sang phải, khi gặp ô cell có dữ liệu thì đưa con trỏ vào ô ( tương đương thao tác nhấp phím F2 trong Excell ) sau đó tìm tiếp và lặp lại thao tác như vậy cho đến hết dòng chứa ô dữ liệu cuối cùng thuộc vùng " $A:$H"
Mong được sớm hồi âm, xin cảm ơn

 

[anhtuan1066]

Nghe mô tả sao giống chức năng Find and Replace của Excel quá... Thế sao bạn ko dùng nó luôn mà còn macro làm gì cho mệt?
Này nhé: tôi đoán bạn tìm kiếm và thay thế giá trị này thành giá trị khác... Vậy nếu là tôi thì sẽ quét chọn vùng A:H rồi Ctrl + H, điền giá trị vào rồi OK là xong!
ANH TUẤN

 

[dutoan06]

Chức năng Find and Replace của Excell thì em đã biết và sử dụng từ lâu, nhưng yêu cầu về bài toán của em là khi tìm thấy đối tượng (là các số ngẫu nhiên nên không thể dùng Find and Replace được và cũng không cần thay thế giá trị này thành giá trị khác) thì đưa con trỏ vào trong ô cell rồi thoát (Tương tự: Nhấn F2 rồi Enter). Khi gặp đối tượng (số) tiếp theo trong quá trình đó (Nhấn F2 rồi Enter) lại lặp lại
Em có thể tóm tắt lại như sau: Trong vùng "$A:$H" có rất nhiều ô cell tại các ô này có thể là ô trống có thể là ô có dữ liệu (dạng số) khi tìm thấy ô có dữ liệu đầu tiên thì nhấn F2 và enter sau đó tìm tiếp gặp ô chứa dữ liệu thứ 2 nhấn F2 và Enter .....tìm tiếp và thao tác như vậy đến ô cell cuối cùng trong vùng. (Quá trình này em muốn được thực hiện từ trên xuống và từ trái sang phải) - Ghi chú: Khi thấy ô có dữ liệu nhấn F2 (không cần sửa chữa thay thế dữ liệu mà thoát ra ngay - Enter)
Xin cảm ơn các anh chị đã góp ý !

 

[tedaynui]

Mình đoán là dutoan06 chuyển 1 số Cells sang format number nhưng Excel không tự cập nhật mà mỗi lần F2+Enter nó mới chịu cập nhật giá trị thật.

Trong VBA bạn thử dùng câu lệnh sau kết hợp với For...Next

If Application.WorksheetFunction.IsNumber(Range("a1")) Then Application.SendKeys "{F2}{Enter}"

TDN

 

[anhtuan1066]

Chức năng Find and Replace của Excell thì em đã biết và sử dụng từ lâu, nhưng yêu cầu về bài toán của em là khi tìm thấy đối tượng (là các số ngẫu nhiên nên không thể dùng Find and Replace được và cũng không cần thay thế giá trị này thành giá trị khác) thì đưa con trỏ vào trong ô cell rồi thoát (Tương tự: Nhấn F2 rồi Enter). Khi gặp đối tượng (số) tiếp theo trong quá trình đó (Nhấn F2 rồi Enter) lại lặp lại
Em có thể tóm tắt lại như sau: Trong vùng "$A:$H" có rất nhiều ô cell tại các ô này có thể là ô trống có thể là ô có dữ liệu (dạng số) khi tìm thấy ô có dữ liệu đầu tiên thì nhấn F2 và enter sau đó tìm tiếp gặp ô chứa dữ liệu thứ 2 nhấn F2 và Enter .....tìm tiếp và thao tác như vậy đến ô cell cuối cùng trong vùng. (Quá trình này em muốn được thực hiện từ trên xuống và từ trái sang phải) - Ghi chú: Khi thấy ô có dữ liệu nhấn F2 (không cần sửa chữa thay thế dữ liệu mà thoát ra ngay - Enter)
Xin cảm ơn các anh chị đã góp ý !

Tôi cũng đoán giống thấy Phước và cũng rất có thể bạn muốn chuyển Format Text sang Format Number chăng ???... Có thể sẽ có cách khác... Bạn thử đưa file lên xem thế nào chứ ai lại giãi quyết kỳ cục thế kia!
ANH TUẤN