Tự động bôi màu cho dòng và cột khi Select cell.

[KUMI]

Xin thỏi các thầy có code nào có thể thực hiện được yêu cầu của đề bài không ạ!
Giả sử em muốn bôi màu xanh toàn bộ số ô trong dòng và trong cột Chỉ một dòng và một cột khi Kích con trỏ và di chuyển các phím di chuyển trong một vùng B2:F4 chẳng hạn.
Ô kích hoạt là ô giao của cột màu và dòng màu.
Do sức khỏe yếu mà trong khi đó công việc rất căng thẳng. Nên em rất cần vấn đề này!
Mong các thầy trong ban giúp đỡ!
Thanks!

 

[nghiaphuc]

Xin thỏi các thầy có code nào có thể thực hiện được yêu cầu của đề bài không ạ!
Giả sử em muốn bôi màu xanh toàn bộ số ô trong dòng và trong cột Chỉ một dòng và một cột khi Kích con trỏ và di chuyển các phím di chuyển trong một vùng B2:F4 chẳng hạn.
Ô kích hoạt là ô giao của cột màu và dòng màu.
Do sức khỏe yếu mà trong khi đó công việc rất căng thẳng. Nên em rất cần vấn đề này!
Mong các thầy trong ban giúp đỡ!
Thanks!

Bạn có thể sử dụng chức năng tìm kiếm của diễn đàn với từ khóa "highlight dòng, cột".
Đây là một tham khảo thú vị cho bạn đây: Add-In dùng để Highlight dòng, cột

 

[hoangminhtien]

Bạn xem trong file có đúng ý bạn không nhé!

 

[KUMI]

Cám ơn các thầy đúng rồi ạ, nhanh quá. Chuyên gia có #!
File dạng đuôi xla em không biết cách mở thế nào nữa chỉ mở được cửa sổ VBA và xem được dữ liệu trong vba còn ở Exel không thấy gì (mong được sự giúp đỡ)!
Nhưng mà xin hoi file của em mà nhiều công thức nhiều dữ liệu thì cài này có anh hưởng lớn đến vế đề tốc độ không ạ?
Ở nhưng mà thưa thầy file: máu hay là mấu gì đó không dùng vba mà chỉ cần CF thôi sao?
Kumi thấy mỗi một code chống nhấp nháy còn lại không thấy gì? chỉ có trong CF.
Như vậy là đủ ạ?

 

[hoangminhtien]

Kumi thấy mỗi một code chống nhấp nháy còn lại không thấy gì? chỉ có trong CF.
Như vậy là đủ ạ?

Hihi, thì bạn thấy nó chạy rồi đúng không? nếu file chạy đúng ý bạn thì như thế là đủ.

 

[hiphoang.prodixetho]

Bạn ơi! Code có mỗi đoạn này thôi à

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   Application.ScreenUpdating = True
End Sub

Bạn giải thích cách hoạt đọng được ko? mình thấy hay mà ko bít ...

Application.ScreenUpdating = True

nghĩa là gì hả bạn? hì

 

[KUMI]

Bạn ơi! Code có mỗi đoạn này thôi à

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   Application.UpScreendating = True
End Sub

Bạn giải thích cách hoạt đọng được ko? mình thấy hay mà ko bít ...


nghĩa là gì hả bạn? hì

Theo mình hiểu sơ bộ thì đoạn code này chỉ mang tính chất cập nhật màn ảnh khi di chuyển cell. nó cũng không khác gì khi kích 2 lần vào một ô nào đó rồi bấm enter.
Còn cái chính để thể hiện yêu cầu của đề bài là: Bạn bôi đen vùng dữ liệu yêu cầu sau đó vào format/conditional format tinh. Bạn sẽ nhìn thấy vấn đề.