请问怎样自动判断单元格内容然后改变该单元格内容和格式

waltto

如题，比如原来单元格内容为数值"50"，即自动改为"不及格50"
再如，"90"则自动改为"成绩不错90"

ggsmart

上传一个附件，并说明具体的规则。
单这两个规则的话，很多方法可以实现。

waltto

附件已上传，请帮忙。

ggsmart

自定义格式为：[>=90]"优秀成绩"0;[<60]"不及格"0
即可加上文字，另：再使用条件格式即可设置划线

waltto

ggsmart 发表于 2012-10-30 12:43
自定义格式为：[>=90]"优秀成绩"0;[

哦，谢谢了，这个方法我试试。
还有，能不能通过VBA会方便一点呢？

ggsmart

waltto 发表于 2012-10-30 13:00
哦，谢谢了，这个方法我试试。
还有，能不能通过VBA会方便一点呢？

VBA没有这个方便吧？用VBA当然也是可以的。依次判断即可

hehex

叶枫老师的方法更方便的，VBA 会麻烦很多。
简单写代码如下:

1. Sub 显示()
   
2.     Dim rng As Range, r1 As Range, nrow%, wk As Worksheet
   
3.     For Each wk In Worksheets
   
4.         nrow = Range("C65536").End(xlUp).Row
   
5.         Set rng = Range("c2:e" & nrow)
   
6.         For Each r1 In rng
   
7.             If Not IsNumeric(r1.Value) Then Exit Sub
   
8.             If r1.Value < 60 Then
   
9.                 With r1
   
10.                      .Value = "不及格" & .Value
    
11.                      .Font.Underline = xlUnderlineStyleSingle
    
12.                 End With
    
13.             ElseIf r1.Value >= 90 Then
    
14.                  With r1
    
15.                       .Value = "成绩不错" & .Value
    
16.                       .Font.ColorIndex = 3
    
17.                  End With
    
18.             End If
    
19.         Next
    
20.     Next
    
21.     Set rng = Nothing
    
22. 
    
23. End Sub
    

复制代码

如果忘记了一句判断，程序多执行两次，你的表格格式就会彻底乱掉。从效率上讲能用基本功能和函数顺利解决的问题一定是比vba 要效率高的，只有常规方法解决起来麻烦的问题，才会用vba 来扩展使用性。

wanghu572

用自动更正选项

waltto

嗯，清楚了。谢谢各位哈。我就是对VBA不熟悉，想了解下究竟哪个更优。