给考试成绩分等级疑问

excel002009

望各位大侠给个回复，本人想学学excel，现在遇到个问题，非常苦恼。
A1单元格里随便输一个分数，B1单元格里显示等级，为什么A1单元格为空值时，B1单元格显示“缺考”？
代码如下：
Sub test()
Select Case [A1]
  Case Is = 100
   [B1] = "满分"
  Case Is >= 90
   [B1] = "优秀"
  Case Is >= 80
   [B1] = "良好"
  Case Is >= 70
   [B1] = "中"
  Case Is >= 60
   [B1] = "及格"
  Case Is > 0
   [B1] = "不及格"
  Case Is <= 0
   [B1] = "缺考"
  Case Is = ""
   [B1] = "无效"
End Select
End Sub

xsznz

加 if <> "" then 就可以了

excel002009

xsznz 发表于 2014-1-3 09:19
加 if  "" then 就可以了

我不想排除单元格为空的情况，你们能不能帮我想想该怎么写语句，使A1单元格为空时，B1单元格显示“无效”。谢谢啦。

xsznz

1. Sub aa()
   
2. If Not Application.WorksheetFunction.IsNumber(Cells(1, 1)) Then
   
3.    [B1] = "无效"
   
4. Else
   
5. Select Case [A1]
   
6.   Case Is = 100
   
7.    [B1] = "满分"
   
8.   Case Is >= 90
   
9.    [B1] = "优秀"
   
10.   Case Is >= 80
    
11.    [B1] = "良好"
    
12.   Case Is >= 70
    
13.    [B1] = "中"
    
14.   Case Is >= 60
    
15.    [B1] = "及格"
    
16.   Case Is > 0
    
17.    [B1] = "不及格"
    
18.   Case Is <= 0
    
19.    [B1] = "缺考"
    
20. End Select
    
21. End If
    
22. End Sub
    

复制代码

excel002009

xsznz 发表于 2014-1-3 09:19
加 if  "" then 就可以了

是不是A1为空值或者内容是非数字或数字太大超过100的情形不应该在case里讨论啊，应该加个if单独讨论吗？

xsznz

定义为数值型，那么单元格空就相当于0

xsznz

你这个感觉还是用工时比较方便，没必要用vba

excel002009

xsznz 发表于 2014-1-3 09:41
定义为数值型，那么单元格空就相当于0

附件

是不是因为我是03的excel所以不能运行你的代码啊？

excel002009

excel002009 发表于 2014-1-3 09:53
是不是因为我是03的excel所以不能运行你的代码啊？

我是想学习代码，所以刻意想用代码实现功能，算了吧。

xsznz

excel002009 发表于 2014-1-3 09:53
是不是因为我是03的excel所以不能运行你的代码啊？

先google下什么是宏吧