Nếu ô đó không phải số nguyên thì tô màu! (1 người xem)

[AnhThu-1976]

Em chào các anh/chị
Hiện nay em đang dùng CF để tô màu như sau:
Nếu ở dòng đó mà cột H =155 và cột I= 6322 mà cột M không phải là số nguyên thì tô màu ô của cột M
Hiện nay do cơ sở dữ liệu của em khá nhiều, nên nếu dùng CF nhiều quá thì File nó bị nặng
Nên từng bước em chuyển CF sang code
Em nhờ các anh chị viết giùm code (code trên module) em để thay CF trên. Em cảm ơn!

 

[phulien1902]

Em chào các anh/chị
Hiện nay em đang dùng CF để tô màu như sau:
Nếu ở dòng đó mà cột H =155 và cột I= 6322 mà cột M không phải là số nguyên thì tô màu ô của cột M
Hiện nay do cơ sở dữ liệu của em khá nhiều, nên nếu dùng CF nhiều quá thì File nó bị nặng
Nên từng bước em chuyển CF sang code
Em nhờ các anh chị viết giùm code (code trên module) em để thay CF trên. Em cảm ơn!

Công thức cho CF

=MOD($M9,1)<>0

 

[bebanhbeo]

Công thức cho CF

=MOD($M9,1)<>0

Dư 1 dấu "bé"

 

[Phuocam]

Public Sub ToMau()
Dim i As Long, lr As Long
With Sheets("Sheet1")
        lr = .Range("H" & Rows.Count).End(xlUp).Row
        For i = 9 To lr
            If .Cells(i, "H") = 155 And .Cells(i, "I") = 6322 Then
                If .Cells(i, "M") <> Int(.Cells(i, "M")) Then
                    .Cells(i, "M").Interior.ColorIndex = 4
                Else
                    .Cells(i, "M").Interior.ColorIndex = 0
                End If
            End If
        Next
End With
End Sub

 

[phulien1902]

'----------------------------------
Xin lỗi không đọc kỹ đầu bài

 

[AnhThu-1976]

Public Sub ToMau()

Dựa vào bài #4 thì mình có thể viết code cho bài này thì thấy code quá dài, các anh/chị viết giúp cho code có thể ngắn hơn
Cụ thể File demo muốn tô màu chữ như sau:
Cột A là ngày tháng liên tục
Muốn tô màu chữ từ cột E đến cột N như sau
Nếu là số thì số <0 thì tô màu đỏ, số >0 thì tô màu xanh
Nếu là chữ "S" thì tô màu xanh & đậm
Nếu là chữ "1/2S" thì tô màu xanh
Nếu là chữ "C" thì tô màu đỏ & đậm
Nếu là chữ "1/2C" thì tô màu đỏ
Em cảm ơn!

 

[phulien1902]

Dựa vào bài #4 thì mình có thể viết code cho bài này thì thấy code quá dài, các anh/chị viết giúp cho code có thể ngắn hơn
Cụ thể File demo muốn tô màu chữ như sau:
Cột A là ngày tháng liên tục
Muốn tô màu chữ từ cột E đến cột N như sau
Nếu là số thì số <0 thì tô màu đỏ, số >0 thì tô màu xanh
Nếu là chữ "S" thì tô màu xanh & đậm
Nếu là chữ "1/2S" thì tô màu xanh
Nếu là chữ "C" thì tô màu đỏ & đậm
Nếu là chữ "1/2C" thì tô màu đỏ
Em cảm ơn!

Code của bạn dài đến cỡ nào sao không đưa lên, bạn thử:

Sub abc()
    Dim Cell As Range
    For Each Cell In Selection
        If Cell < 0 Then
            Cell.Font.ColorIndex = 3
        ElseIf Cell.Value = "C" Then
            Cell.Font.ColorIndex = 3
            Cell.Font.Bold = True
        ElseIf Cell > 0 Then
            Cell.Font.ColorIndex = 10
        ElseIf Cell.Value = "S" Then
            Cell.Font.ColorIndex = 10
            Cell.Font.Bold = True
        End If
    Next
End Sub

 

[AnhThu-1976]

Cảm ơn bạn, nhưng sao mình thấy nó không tô đậm chữ "S", mặc dù trong code của bạn có chỉ định tô đậm nhỉ!?

ElseIf Cell.Value = "S" Then Cell.Font.ColorIndex = 10 Cell.Font.Bold = True

 

[CHAOQUAY]

Cảm ơn bạn, nhưng sao mình thấy nó không tô đậm chữ "S", mặc dù trong code của bạn có chỉ định tô đậm nhỉ!?

Mượn code của @phulien1902 cho dễ đối chiếu

Sub abc_()
    Dim Cell As Range
    For Each Cell In Selection
        If IsNumeric(Cell) Then
            If Cell < 0 Then Cell.Font.ColorIndex = 3
            If Cell > 0 Then Cell.Font.ColorIndex = 10
        Else
            If Cell = "1/2C" Then Cell.Font.ColorIndex = 3
            If Cell = "C" Then Cell.Font.ColorIndex = 3: Cell.Font.Bold = True
            If Cell = "1/2S" Then Cell.Font.ColorIndex = 10
            If Cell = "S" Then Cell.Font.ColorIndex = 10: Cell.Font.Bold = True
        End If
    Next
End Sub

 

[VetMini]

Code của bạn dài đến cỡ nào sao không đưa lên, bạn thử:

Sub abc()
    Dim Cell As Range
    For Each Cell In Selection
        If Cell < 0 Then
            Cell.Font.ColorIndex = 3
        ElseIf Cell.Value = "C" Then
            Cell.Font.ColorIndex = 3
            Cell.Font.Bold = True
        ElseIf Cell > 0 Then
            Cell.Font.ColorIndex = 10
        ElseIf Cell.Value = "S" Then
            Cell.Font.ColorIndex = 10
            Cell.Font.Bold = True
        End If
    Next
End Sub

Mượn code của @phulien1902 cho dễ đối chiếu

Sub abc_()
    Dim Cell As Range
    For Each Cell In Selection
        If IsNumeric(Cell) Then
            If Cell < 0 Then Cell.Font.ColorIndex = 3
            If Cell > 0 Then Cell.Font.ColorIndex = 10
        Else
            If Cell = "1/2C" Then Cell.Font.ColorIndex = 3
            If Cell = "C" Then Cell.Font.ColorIndex = 3: Cell.Font.Bold = True
            If Cell = "1/2S" Then Cell.Font.ColorIndex = 10
            If Cell = "S" Then Cell.Font.ColorIndex = 10: Cell.Font.Bold = True
        End If
    Next
End Sub

Theo nguyên tắc lập trình thì cả hai code trên đều có thiếu sót trầm trọng.

 

[CHAOQUAY]

Theo nguyên tắc lập trình thì cả hai code trên đều có thiếu sót trầm trọng.

Nhờ bác chỉ lỗi để có thể vận dụng cho các lần sau.

 

[VetMini]

Nhờ bác chỉ lỗi để có thể vận dụng cho các lần sau.

Code tô màu, tô đậm, sửa phông,... theo điều kiện thì luôn luôn phải trả nó về trạng thái mặc định nếu không đúng điều kiện.

 

[AnhThu-1976]

Theo nguyên tắc lập trình thì cả hai code trên đều có thiếu sót trầm trọng.

Vậy anh cho hỏi, phải viết như thế nào
Vì thấy nó tô màu hay bold lung tung cả lên
Cảm ơn anh!

 

[khi ta 20]

....
Chưa đọc kỹ bài 1

 

[VetMini]

Vậy anh cho hỏi, phải viết như thế nào
Vì thấy nó tô màu hay bold lung tung cả lên
Cảm ơn anh!

Ngay sau dòng For Each Cell in Selection, thêm dòng này
Cell.Font.ColorIndex = 1: Cell.Font.Bold = False ' màu đen, không tô đậm