if 函数怎么用变量做逻辑条件【excelvba吧】

excelvba吧关注：263贴子：260

4回复贴，共1页

if 函数怎么用变量做逻辑条件

a = InputBox("要显示进（退）步多少名的学生？", "名次变化选择", 50)
cs = InputBox("这次是第几次考试", "考试次数选择", 2)
For j = 3 To 8
Worksheets(j).Activate
For i = 7 To 60
If Cells(i, 3 * cs + 2) - Cells(i, 3 * (cs - 1) + 2) > a Then
Cells(i, 3 * cs + 2).Interior.Color = RGB(255, 0, 0)
End If
Next
Next
在表格里有多次考试成绩，我希望把这次考试与上次考试名次相差多少名的加亮显示，a是选择名次的，可是这运行后背景颜色没有变。为什么？是不是>a那不能这么写？还是 then 后面那句错了？

送TA礼物

IP属地:浙江

1楼2018-11-17 10:12回复

主要问题在于inputbox函数，你看函数的参数，inputbox( 参数1，参数2，…) as String，意思这个函数默认输出为字符串.代码修改为：|
a = Val(InputBox("要显示进（退）步多少名的学生？", "名次变化选择", 50))
cs = Val(InputBox("这次是第几次考试", "考试次数选择", 2))
For j = 3 To 8
Worksheets(j).Activate
For i = 7 To 60
If Cells(i, 3 * cs + 2) - Cells(i, 3 * (cs - 1) + 2) > a Then
Cells(i, 3 * cs + 2).Interior.Color = RGB(255, 0, 0)
End If
Next
Next
或者修改为：
a = Application.InputBox(prompt:="要显示进（退）步多少名的学生？", _
Title:="名次变化选择", Default:=50, Type:=1)
cs = Application.InputBox(prompt:="这次是第几次考试", _
Title:="考试次数选择", Default:=2, Type:=1)
For j = 3 To 8
Worksheets(j).Activate
For i = 7 To 60
If Cells(i, 3 * cs + 2) - Cells(i, 3 * (cs - 1) + 2) > a Then
Cells(i, 3 * cs + 2).Interior.Color = RGB(255, 0, 0)
End If
Next
Next

IP属地:广东

2楼2018-12-15 12:45

收起回复