Tự động đổi màu ô(Cells) được chọn. (1 người xem)

[sinhthanh1984]

Em là giáo viên cấp 2 hay phải nhập điểm vào phần mềm tính điểm trên máy sau đó lại chép kết quả tính từ máy sang sổ điểm. Tuy nhiên khi chép nhiều quá hay bị hoa mắt. Em muốn nhờ các anh chị trên diễn đàn giúp đỡ em làm sao mỗi lần em di chuyển đến ô nào đó trong cột điểm trung bình thì ô đó sẽ được chuyển sang màu vàng(hoặc màu gì đó) sao cho dẽ nhìn và đỡ bị nhầm. Cảm ơn anh chị!

 

[Ngoai Thanh]

Mình đã thử và đúng như bạn nói. Nhưng nếu mình muốn bỏ highlight ở cột nào đó thì làm sao hả bạn?

thì bạn chọn 1 ô chưa highlight rồi dùng chổi sơn quét đến địa chỉ không cần highlight nữa .

 

[phucbugis]

Bạn làm theo hướng dẫn trên , còn bạn muốn áp dụng cho file khác thì copy hết code ( kể cả trong this worbook )

bạn xem lại file giup do (4) code bố trí như vậy có được ko
---> chỉ cần đặt (ActiveSheet.Names.Add Name:="curRow", RefersToR1C1:="=1") tại sheet đó + Conditional Formatting từ R2:R23 là đủ mà


'- - - -
quái, Excel 2003 muốn chỉnh CF ko phải dễ ---> chẳng biết đã cài CF vào vùng nào nữa




---> 2013 thì điều chỉnh vị trí cột rất dễ

Link: https://www.mediafire.com/?i6ordr1eum8htjx

 

[sinhthanh1984]

bạn xem lại file giup do (4) code bố trí như vậy có được ko
---> chỉ cần đặt (ActiveSheet.Names.Add Name:="curRow", RefersToR1C1:="=1") tại sheet đó + Conditional Formatting từ R2:R23 là đủ mà

Đúng vậy, kết hợp Conditional Formatting và VBA. Rất hay!

 

[Ngoai Thanh]

bạn xem lại file giup do (4) code bố trí như vậy có được ko
---> chỉ cần đặt (ActiveSheet.Names.Add Name:="curRow", RefersToR1C1:="=1") tại sheet đó + Conditional Formatting từ R2:R23 là đủ mà


'- - - -
quái, Excel 2003 muốn chỉnh CF ko phải dễ ---> chẳng biết đã cài CF vào vùng nào nữa
View attachment 117181

View attachment 117182

---> 2013 thì điều chỉnh vị trí cột rất dễ

Chủ đề Hignlight thì như thày NDU đã nói có cả thúng , nên mỗi người ứng dụng theo cách của mình . Thực ra theo mình code để highlight thì dòng lệnh trong thisworbook thực hịện, nếu không thì chỉ là Conditional Formatting đơn thuần .

 

[nmhung49]

Đây là cách mình cũng thường dùng để hight light cell bạn có thể tham khảo chép code vào của sổ VBA của Thisworkbook.

Dim clls As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not clls Is Nothing Then
        clls.Interior.ColorIndex = 0
    End If
    Set clls = Target
    clls.Interior.ColorIndex = 36
End Sub

 

[ndu96081631]

Đây là cách mình cũng thường dùng để hight light cell bạn có thể tham khảo chép code vào của sổ VBA của Thisworkbook.

Dim clls As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not clls Is Nothing Then
        clls.Interior.ColorIndex = 0
    End If
    Set clls = Target
    clls.Interior.ColorIndex = 36
End Sub

Nếu muốn tô màu theo cách thông thường thì bạn phải tính đến chuyện trên bảng tính đã có màu người dùng tô sẵn. Vậy sau khi bạn làm gì đó thì bắt buộc phải trả về màu nguyên mẫu cho người ta (nếu không người ta sẽ... bắt đền)

 

[nmhung49]

Nếu muốn tô màu theo cách thông thường thì bạn phải tính đến chuyện trên bảng tính đã có màu người dùng tô sẵn. Vậy sau khi bạn làm gì đó thì bắt buộc phải trả về màu nguyên mẫu cho người ta (nếu không người ta sẽ... bắt đền)

Cảm ơn anh NDU nhắc nhở vì thấy bảng tính không có màu nền dùng code cho gọn nếu vậy chắc phải dùng Conditional Formating với code rồi? Nếu dùng class để bắt cell đó có tô màu hay không nếu có tô thì tô màu khác sao đó trả lại chính nó thì làm sao anh? Nói chung dùng cách nào cũng được miễn sao không dùng công thức trong đây?

 

[ndu96081631]

Cảm ơn anh NDU nhắc nhở vì thấy bảng tính không có màu nền dùng code cho gọn nếu vậy chắc phải dùng Conditional Formating với code rồi? Nếu dùng class để bắt cell đó có tô màu hay không nếu có tô thì tô màu khác sao đó trả lại chính nó thì làm sao anh? Nói chung dùng cách nào cũng được miễn sao không dùng công thức trong đây?

Thật ra làm mấy thứ này cũng không khó. Thay đổi màu theo sự kiện Mouse Move còn được huống chi là Selection_Change
Đã từ lâu tôi có ý định làm hoàn chỉnh thành 1 Add-Ins, cho phép:
- Tùy biến vùng hoạt động của Highlight
- Tùy biến kiểu Highlight (nhiều kiểu)
- Tùy biến màu sắc (cho phép chọn màu thông qua hộp Choose Color)
vân... vân...
Tiếc là làm mà vẫn không vừa ý (lại hơi lười) nên lại thôi
Bạn nào rảnh hãy vào topic này nghiên cứu và tự hoàn thiện nhé:
http://www.giaiphapexcel.com/forum/...kiện-di-chuyển-chuột-tạo-hiệu-ứng-trong-Excel

 

[sinhthanh1984]

Thật ra làm mấy thứ này cũng không khó. Thay đổi màu theo sự kiện Mouse Move còn được huống chi là Selection_Change
Đã từ lâu tôi có ý định làm hoàn chỉnh thành 1 Add-Ins, cho phép:
- Tùy biến vùng hoạt động của Highlight
- Tùy biến kiểu Highlight (nhiều kiểu)
- Tùy biến màu sắc (cho phép chọn màu thông qua hộp Choose Color)
vân... vân...
Tiếc là làm mà vẫn không vừa ý (lại hơi lười) nên lại thôi
Bạn nào rảnh hãy vào topic này nghiên cứu và tự hoàn thiện nhé:
http://www.giaiphapexcel.com/forum/...kiện-di-chuyển-chuột-tạo-hiệu-ứng-trong-Excel

Mong thầy tiếp tục hoàn thiện addins mày ạ.

 

[Ngoai Thanh]

Đúng vậy, kết hợp Conditional Formatting và VBA. Rất hay!

Đúng rồi bạn ! có thể kết hợp và kể cả bạn tô mầu . Bạn xem file đính kèm , sau khi highlight mọi thứ lại trả về như cũ .

 

[sinhthanh1984]

Đúng rồi bạn ! có thể kết hợp và kể cả bạn tô mầu . Bạn xem file đính kèm , sau khi highlight mọi thứ lại trả về như cũ .

Đúng là rất tuyệt. Cảm ơn Ngoai Thanh!