a = InputBox("要显示进(退)步多少名的学生?", "名次变化选择", 50)
cs = InputBox("这次是第几次考试", "考试次数选择", 2)
For j = 3 To 4
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
为什么运行后,单元格没有加颜色?
设置红è²çè¯å¥æ¯å¯¹çï¼æ²¡ææ è®°åºçº¢è²ï¼æ¯å 为IFæ¡ä»¶é½æ²¡æ满足ï¼ä½ å¯ä»¥å¨IFéé¢MSGBOXæ¾ç¤ºä¸ä¸è¿è¡è°è¯ã
温馨提示:答案为网友推荐,仅供参考