VB--07 写Excel时,设置导出的Excel文件中单元格颜色

当报表中第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循环的
  • 可以搭配某特定值时,加背景色,…
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值