Tính tổng theo màu nền trong excel

One Response

  1. Tuynh Nguyễn says:

    Sub to_mau_nen_mang2_chieu()
    Dim i As Integer
    Dim j As Integer
    For i = 1 To 500
    For j = 1 To 500
    If Cells(i, j).Value >= 0 Then
    Cells(i, j).Font.ColorIndex = 5
    ElseIf Cells(i, j).Value < 0 Then
    Cells(i, j).Font.ColorIndex = 3
    Cells(i, j).Interior.ColorIndex = 4

    End If
    Next j
    Next i

    End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *

Dự đoán xổ số