这一节理解起来可能会有些困难，可能需要不断的反复的去复习才能理解，我起初学习也是这样，学了马上就忘记了，然后不断的重头来，这样直到掌握为止，可能一开始就没有理解透彻吧。我们还是举个例子来说明我们今天要给大家介绍的内容吧。我们经常会碰到一些数据，然后用条件格式进行一些处理加工，比如成绩吧，低于60的，我们显示红色，其他不变，相信这个大家都会了。那么我们今天用VBA来实现：如果成绩小于60，那么60那一栏会显示字样：有待改进：59（59为该人实际得分）代码如下：Sub example()With ThisWorkbook.Worksheets(1)maxrow = .UsedRange.Rows.Count For i = 2 To maxrow If .Cells(i, 2).Value < 60 Then .Cells(i, 2).Value = "有待改进：" & .Cells(i, 2).Value End If NextEnd WithEnd Sub大家在第二行填写好分数之后，运行该程序就可以看到变化了。说到这里可以大家还是不明白，这个跟以前学习的没什么区别的嘛，不慌，我们接着往下走。如果我们只想判断A2单元格中的内容是否小于60，如果小于的话就把里面的内容改成：不合格（分数）。看代码：sub celljudge()with thisworkbook.worksheets(1).cells(1,2)if.value<60 then .value="不合格("& .value &")"end ifend withEnd sub这个是判断单个的单元格，但是如果老板说你再判断另外一个，比如A5，那么我们就又要写一遍，哪天老板心血来潮又来一列，这个时候我们就要抓狂了，你TMD不能一次说完么？老板肯定也会说了，你TMD不能一次写完整么？这个时候就真的到了我们今天的重点了。VBA当然有办法解决上述要求。老板其实一点都不过分哈~~老板的要求无非就是指定一个单元格，然后判断。我们就实现他。下面的程序分成两个部分，有兴趣的同学可以无须改动下面任何字样（含中文）就直接将源代码拷贝后进行测试哈~~sub judge(老板指定的单元格)with 老板指定的单元格 '直接就这样写成中文，不用改任何东西 if .value < 60 then .value = "不合格(" & .value & ")" end ifend withEnd subsub celljudge()with thisworkbook.worksheets(1) call judge(.range("A2")) call judge(.range("A5"))end withend SubOK，代码部分结束，如果老板再说需要检查哪个单元格，你只需要在第二段的代码后面写"call judge(.range("哪个单元格"))就好了。然后运行就好了。通过上述的代码，相信大家肯定有个发现，就是那个sub + 名称 +（）中的那个括号里面终于用起来了。那么这个是干什么的呢？我们把judge(老板指定的单元格)这一部分的程序就称为子程序。然后进行调用。让后面出现的单元格照着子程序进行执行。Call是VBA中的专有词汇，表示调用的意思。当VB执行到这个地方的时候，他就会去执行Judge子程序。
花小卷2010
