Tô màu khi di chuyển chuột

  • Thread starter Thread starter le tin
  • Ngày gửi Ngày gửi
Liên hệ QC

le tin

Học mãi
Tham gia
22/10/07
Bài viết
722
Được thích
560
Nhờ các bạn xem giúp
Code này dùng trong sheet1 kèm với format CF thì được

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

Sửa thế nào để tất cả các sheet đều dùng được
 

File đính kèm

Do không biết ý bạn muốn sửa làm sao nên mình làm luôn hai Sheet cho bạn chọn. Nhìn vậy chứ cách làm thì giống nhau cả.
Đầu tiên bạn quét chọn toàn bộ Sheet, rồi vào CF để xem công thức, thực hiện định dạng -> OK. Là xong.
Thân.
 

File đính kèm

hoang_B viết:
Đầu tiên bạn quét chọn toàn bộ Sheet, rồi vào CF để xem công thức, thực hiện định dạng -> OK. Là xong.
Tôi không biết "vào CF" là gì. Xin chỉ rõ. Cảm ơ
 
bạn chọn Alt+F11 thì vào đó có code để bạn tham khảo đó
PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.ScreenUpdating = True
End Sub
công thức ở sheet1: bạn vào menu Format/conditional Formatting /chọn codition1/Formuala:=OR(ROW()=CELL("row"),COLUMN()=CELL("col"))

tương tự sheet 2: như sheet 1:=ROW()=CELL("row")
 
Để có thể dùng code trên mọi sheet thì đưa code vào sự kiện Workbook_SheetSelectionChange... Tiếp theo copy CF của sheet này, paste vào các sheet còn lại
 
Do không biết ý bạn muốn sửa làm sao nên mình làm luôn hai Sheet cho bạn chọn. Nhìn vậy chứ cách làm thì giống nhau cả.
Đầu tiên bạn quét chọn toàn bộ Sheet, rồi vào CF để xem công thức, thực hiện định dạng -> OK. Là xong.
Thân.
Cảm ơn bạn
Như vậy mỗi lần mở thêm sheet là phải copy đoạn mã trên là không đúng ý mình rồi
 
Vẫn không được bạn ạ
Sao lại không đựoc!
Đây nè
Bạn yeudoi dùng code để tô màu như thế không đựoc đâu! Đơn giãn thì có đơn giãn thật, nhưng lợi bất cập hại, nó vô tình sẽ xóa hết các màu do ta tô trứoc đó
 

File đính kèm

tại bạn đó không nói yêu cầu thế nào.
 
Web KT

Bài viết mới nhất

Back
Top Bottom