vba中当单元格a1的颜色为红色，单元格b1的值为5怎么写？

vba中当单元格a1的颜色为红色，单元格b1的值为5怎么写？

If Range("A1").Interior.ColorIndex = 3 Then Range("B1") = 5
如果是A列，如A1：A10
Sub aa()
For x = 1 To 10
If Cells(x, 1).Interior.ColorIndex = 3 Then Cells(x, 2) = 5
Next x
End Sub

sub 如果底色全红b1为5()     for each a in range("a1:a10")         if a.interior.color <> vbred then             range("b1").value = ""             exit sub         end if     next a     range("b1").value = 5 end sub sub 如果字体全红b2为5()     for each a in range("a1:a10")         if a.font.color <> vbred then             range("b1").value = ""             exit sub         end if     next a     range("b1").value = 5 end sub for each a in range("a1:a10")——搜索区域 range("a1:a10") a——为区域中某个单元格 a.interior.color——为单元格底色 a.font.color——为单元格字体颜色 vbred——为常量“红色” range("b1").value = ""——不为红色清空b1 range("b1").value = 5——全为红色赋值为5

你可以使用录制宏的方法，很方便，先点录制宏，然后做你问题上的操作，停止录制，然后查看宏的VBA代码，很多时候录制宏很方便，妈妈再也不担心我的学习了。