di chuyển con trỏ

[billmuoi]

Tôi muốn di chuyển con trỏ từ ô hiện hành dến một ô nào đó (ví dụ di chuển đến ô cùng một hàng nhưng cách 02 cột) viết trong macro thì làm thế nào ? xin bạn nào mách hộ với.

 

[TranThanhPhong]

Bạn dùng ActiveCell.Offset(0,2).

TP.

 

[tigertiger]

Bạn dùng ActiveCell.Offset(0,2).

TP.

thêm select nữa ttphong ơi, cụ thể

ActiveCell.Offset(0,2).Select

như thế con trỏ mới thực sự di chuyển

 

[le tin]

Nhân đây xin hỏi
Ví dụ
Tôi muốn di chuyển trỏ đến A3 thì C3 màu đỏ
A4 thì C4 màu đỏ
......

 

[anhtuan1066]

Nhân đây xin hỏi
Ví dụ
Tôi muốn di chuyển trỏ đến A3 thì C3 màu đỏ
A4 thì C4 màu đỏ
......

Cái này thậm chí ko cần đến code luôn... Dùng CF là dc rồi...
Chọn 1 cell trong cột A rồi bấm F9
Nếu bạn ko thích vụ F9 này thì thêm code vào cho nó tự động luôn cũng ko có vấn đề gì
ANH TUẤN

 

[tedaynui]

Cái này thậm chí ko cần đến code luôn... Dùng CF là dc rồi...
Chọn 1 cell trong cột A rồi bấm F9
Nếu bạn ko thích vụ F9 này thì thêm code vào cho nó tự động luôn cũng ko có vấn đề gì
ANH TUẤN

Chời, mỗi lần select mà mỗi lần F9 chắc chết quá anh Tuấn ơi.
Anh thử tí code này thêm vào File của anh xem, không làm chậm bảng tính đâu.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(Target.Row, 3).Calculate
End Sub

TDN

 

[anhtuan1066]

Chời, mỗi lần select mà mỗi lần F9 chắc chết quá anh Tuấn ơi.
Anh thử tí code này thêm vào File của anh xem, không làm chậm bảng tính đâu.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(Target.Row, 3).Calculate
End Sub

TDN

Thì tôi đã nói rồi mà... code thêm vào thật ra chỉ là phụ... thuật toán chính vẫn ở CF...
Nói chung code gì cũng dc nhưng tôi sẽ ũng hộ dùng code kết hợp với CF, vì như thế thì Format của cell mới ko bị "phá hủy" khi nó tô màu
ANH TUẤN

 

[le tin]

Chời, mỗi lần select mà mỗi lần F9 chắc chết quá anh Tuấn ơi.
Anh thử tí code này thêm vào File của anh xem, không làm chậm bảng tính đâu.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(Target.Row, 3).Calculate
End Sub

TDN

Cảm ỏn bạn Tuấn,có thể nói rõ tí nữa được không

 

[anhtuan1066]

Cảm ơn bạn Tedaynui , bạn có thể nói rõ tí nữa không

Thì lấy file của tôi kết hợp với code của thầy Phước nữa là nó tự động ngay!
Giống file này đây
ANH TUẤN

 

[tedaynui]

Cảm ơn bạn Tedaynui , bạn có thể nói rõ tí nữa không

Cách của Anh Tuấn là Conditional Formatting nên nó chỉ thay đổi khi giá trị ô thay đổi nhưng ở đây chỉ thay đổi Selection. Vì vậy mỗi lần phải bấm F9 để tính toán lại bảng tính, như vậy sẽ chậm đi rất nhiều nếu bảng tính lớn và có nhiều công thức. Dùng VBA như trên thì công việc này sẽ tự động và chỉ buộc Excel tính toán trên 1 Cell tất nhiên sẽ nhanh hơn.

TDN