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 后面那句错了?
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 后面那句错了?