当报表中第12列值为NO时,第2个单元格、第7个单元格标红;
(即报表第12列不是NO的,就不给对应行添加颜色)
For row = 1 To DataGrid.Rows
If DataGrid.TextMatrix(row, 12) = "NO" And
DataGrid.TextMatrix(row, 2) <> DataGrid.TextMatrix(row, 7) Then
ExcelSheet.Range(ExcelSheet.Cells(row, 2), ExcelSheet.Cells(row, 2)).Interior.Color = RGB(255, 192, 192)
ExcelSheet.Range(ExcelSheet.Cells(row, 7), ExcelSheet.Cells(row, 7)).Interior.Color = RGB(255, 192, 192)
End If
Next row
加颜色主要的是,以下这行是实现加背景色的代码:
ExcelSheet.Range(ExcelSheet.Cells(row, 2), ExcelSheet.Cells(row, 2)).Interior.Color = RGB(255, 192, 192)
注:
【1】cells(行,列)
【2】ExcelSheet.这个是我自己起的名字,应用时换成自己的;
【3】RBG()是颜色,不知道某个颜色参数的,直接网上搜一下;
- 可以搭配循环来使用,示例是加了For循环的
- 可以搭配某特定值时,加背景色,…