想用excel做一个VBA代码审核。
答案:3 悬赏:70 手机版
解决时间 2021-02-22 16:21
- 提问者网友：轮囘Li巡影
- 2021-02-22 02:33
想用excel做一个VBA代码审核。
最佳答案
- 五星知识达人网友：鸽屿
- 2021-02-22 02:59
Sub 审核()
Dim temp As Integer
for i = 10 to 65536
if Range("F"&i) = 1 and Range("H"&i)=1 then
temp = 1
elseif Range("F"&i) = 2 and Range("H"&i)=2 then
temp = 2
elseif (Range("F"&i) <> Range("H"&i)) and (Range("E"&i) =1 and Range("G"&i)=1)then
temp = 2
else
temp = 1
end if
if Range("J"&i) <> temp then
Range("J"&i).Interior.ColorIndex = red
end if
next i
End Sub追问没有变成红色呢，我专门在那里加了个5，都没有变红
Dim temp As Integer
for i = 10 to 65536
if Range("F"&i) = 1 and Range("H"&i)=1 then
temp = 1
elseif Range("F"&i) = 2 and Range("H"&i)=2 then
temp = 2
elseif (Range("F"&i) <> Range("H"&i)) and (Range("E"&i) =1 and Range("G"&i)=1)then
temp = 2
else
temp = 1
end if
if Range("J"&i) <> temp then
Range("J"&i).Interior.ColorIndex = red
end if
next i
End Sub追问没有变成红色呢，我专门在那里加了个5，都没有变红
全部回答
- 1楼网友：一秋
- 2021-02-22 03:47
if公式+条件格式就可以 不用vba
- 2楼网友：话散在刀尖上
- 2021-02-22 03:18
这个好像不用VBA吧？直接使用函数公式和条件格式应该就可以实现。追问具体怎么做？
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯