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

One Response

1. Tuynh Nguyễn says:

   January 1, 2020 at 10:12 pm

   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

   Reply