[已解决]请教VBA按相关列内容填充颜色

jian82372387

请教如何使用VBA根据G列内容对E-G列填充颜色，北京填充绿色，广州填充黄色，深圳填充兰色

最佳答案

月排行榜 / 总排行榜

cutecpu

2023-2-7 13:01

Sub demo()
   For Each r In Sheets(1).UsedRange.Columns("G").Cells
     If r = "北京" Then: r.offset(,-2).Resize(,3).Interior.Color = &H50D092
     If r = "广州" Then: r.offsst(,-2).Resize(,3).Interior.Color = &H00FFFF
     If r = "深圳" Then: r.offset(,-2).Resize(,3).Interior.Color = &HD59B5B
   Next
End Sub

跳转到最佳答案楼层

cutecpu

Sub demo()
   For Each r In Sheets(1).UsedRange.Columns("G").Cells
     If r = "北京" Then: r.offset(,-2).Resize(,3).Interior.Color = &H50D092
     If r = "广州" Then: r.offsst(,-2).Resize(,3).Interior.Color = &H00FFFF
     If r = "深圳" Then: r.offset(,-2).Resize(,3).Interior.Color = &HD59B5B
   Next
End Sub