Question

求VBA：在EXCEL的A1单元格里有数据："6", 在A2单元格里有数据："1,4,6,8,9," 现在要检查A1中的数据是否在A2

中，如果"是"则将A1单元格的背景填充为红色，如果"否"则将A1单元格的背景填充为黄色。本例题的结果是：将A1的背景填充为红色。

Answer 1

先将A1单元格的背景填充为黄色
点种A1，在菜单点格式----条件格式
条件1选"公式"，右侧输入 =FIND(A1,A2,1)
点格式，在图案中选单元格底纹为红色
确定

Answer 2

if instr(cells(2,1),cells(1,1))>0 then
cells(1,1).Interior.Color = vbRed '包含显示红色
else
cells(1,1).Interior.Color = vbYellow '不包含显示黄色
end if

Answer 3

用条件格式就行了