Excel中的VBA编程中怎么样编程判断奇偶数，并且把奇数涂成红色，偶数涂成绿色？怎么弄？高手帮忙！谢了！
展开全部
其实条件格式就可以解决（比如单元格B1，条件格式，公式，=MOD(B1,2)=1，格式填充红色）
如果你非要用VBA，代码如下：
Sub test()
Dim cell As Range
For Each cell In Range("A1:B4")
If cell <> "" Then
If cell Mod 2 = 1 Then
cell.Interior.Color = vbRed
Else
cell.Interior.Color = vbGreen
End If
End If
Next cell
End Sub
请自己修改粗体部分
如果你非要用VBA，代码如下：
Sub test()
Dim cell As Range
For Each cell In Range("A1:B4")
If cell <> "" Then
If cell Mod 2 = 1 Then
cell.Interior.Color = vbRed
Else
cell.Interior.Color = vbGreen
End If
End If
Next cell
End Sub
请自己修改粗体部分
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
