File excel dùng Conditional formating rất chậm

[vietcong1980]

Các bạn giúp mình trường hợp này: Mình sử dụng Conditional formating để khi click chuột vào dòng nào thì sẽ hiện màu ở dòng đó cho đỡ nhầm lẫn, nhưng không hiểu sao màu hiện rất chậm, khi click vào rồi, một lúc sau thì màu ở dòng cũ mới mất, màu ở dòng mới mới hiện. Mà file của mình vừa lập xong nên không có name rác hay sheet ẩn gì cả. Cám ơn các bạn!

 

[dhn46]

Nếu bạn muốn màu tô hàng ngay khi chỉ trỏ chuột vào Cell và dùng CF thì bạn thêm code sau vào Sheet1

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

 

[Hong.Van]

Các bạn giúp mình trường hợp này: Mình sử dụng Conditional formating để khi click chuột vào dòng nào thì sẽ hiện màu ở dòng đó cho đỡ nhầm lẫn, nhưng không hiểu sao màu hiện rất chậm, khi click vào rồi, một lúc sau thì màu ở dòng cũ mới mất, màu ở dòng mới mới hiện. Mà file của mình vừa lập xong nên không có name rác hay sheet ẩn gì cả. Cám ơn các bạn!

Tôi Test thấy chậm thật,
Cái HighLighter này hình như còn thiếu gì đó
Tham khảo bài của Thầy Ndu
Tôi hiện đang sử dụng HightL của Thầy Tuân thấy rất tốt!

 

[leonguyenz]

nhưng không hiểu sao màu hiện rất chậm, khi click vào rồi, một lúc sau thì màu ở dòng cũ mới mất, màu ở dòng mới mới hiện.

Khi chọn (Select) 1 ô, thì bảng tính chưa được tính (Calculation), phải kích hoạt vào ô (Active) thì bảng tính mới tính, nên ta thấy màu dòng cũ vẫn còn. Mình nghĩ tốc độ như 1 phép tính bình thường thôi, không nhanh hơn được.

Nếu bạn muốn màu tô hàng ngay khi chỉ trỏ chuột vào Cell và dùng CF thì bạn thêm code sau vào Sheet1
[/code]

Người ta hỏi về tốc độ khi dùng CF, không phải dùng code.

 

[dhn46]

Người ta hỏi về tốc độ khi dùng CF, không phải dùng code.

Tôi đã nói là:

Nếu bạn muốn màu tô hàng ngay khi chỉ trỏ chuột vào Cell và dùng CF

Nó cũng chỉ là thủ thuật thôi.

 

[vietcong1980]

Nếu bạn muốn màu tô hàng ngay khi chỉ trỏ chuột vào Cell và dùng CF thì bạn thêm code sau vào Sheet1

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

Cám ơn bạn rất nhiều! Mình cho thêm code vào thì lại nhanh bình thường. Như vậy vấn đề của mình là thiếu code nên nó mới chậm. Những lúc trước mình làm đều có code này,lâu mới làm lại nên quên mất cho thêm code vào.