资源描述：
《Excel 编程备查》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Excel编程备查Page36of36Excel编程备查在Excel用“宏”中的VisualBasic编辑器编写程序比在单元格中编写公式要直观、明晰、方便得多。不需要很多的VisualBasic知识就可以编写出应用很方便的程序来。VisualBasic编辑器具有VB6.0的大部分功能。一般用VB6.0编写的程序拷贝到Excel来只需修改一下与界面的传递方式即可运行。它也可像VB6.0一样，通过“引用”导入其它驱动程序与其它Excel工作簿及各种数据库、AutoCAD等其它语言连接。控件工具箱也很丰富。**VBA对象、属性、方法和事件*对象、属性的格式<对象名>.<属性>=<表达式>
2、例如：设置第2行单元格行高为9.6的语句是：Rows(“2:2”).RowHeight=9.6*方法的格式：方法有选定（.Select）、复制、粘贴（.Paste）、保护、激活等。<对象名>.<方法>例：将B4单元格中的内容“我们”复制到单元格C3中Range("B4").SelectActiveCell.FormmulaRICI=“我们”Range("C3").SelectActiveSheet.Paste*事件事件是用户或系统所执行的操作。如：单击鼠标、聚焦等。**常用函数*IF执行真假值判断，根据逻辑计算的真假值，返回不同结果。Excel编程备查Page36of36可以使用函
3、数IF对数值和公式进行条件检测。语法IF(logical_test,value_if_true,value_if_false)Logical_test 表示计算结果为TRUE或FALSE的任意值或表达式。例如，A10=100就是一个逻辑表达式，如果单元格A10中的值等于100，表达式即为TRUE，否则为FALSE。本参数可使用任何比较运算符。Value_if_true logical_test为TRUE时返回的值。例如，如果本参数为文本字符串“预算内”而且logical_test参数值为TRUE，则IF函数将显示文本“预算内”。如果logical_test为TRUE而val
4、ue_if_true为空，则本参数返回0（零）。如果要显示TRUE，则请为本参数使用逻辑值TRUE。Value_if_true也可以是其他公式。Value_if_false logical_test为FALSE时返回的值。例如，如果本参数为文本字符串“超出预算”而且logical_test参数值为FALSE，则IF函数将显示文本“超出预算”。如果logical_test为FALSE且忽略了Value_if_false（即value_if_true后没有逗号），则会返回逻辑值FALSE。如果logical_test为FALSE且Value_if_false为空（即value_if
5、_true后有逗号，并紧跟着右括号），则本参数返回0（零）。Value_if_false也可以是其他公式。说明·函数IF可以嵌套七层，用value_if_false及value_if_true参数可以构造复杂的检测条件。请参阅下面最后一个示例。·在计算参数value_if_true和value_if_false后，函数IF返回相应语句执行后的返回值。·如果函数IF的参数包含数组，则在执行IF语句时，数组中的每一个元素都将计算。·MicrosoftExcel还提供了其他一些函数，可依据条件来分析数据。例如，如果要计算单元格区域中某个文本字符串或数字出现的次数，则可使用COUNTIF工
6、作表函数。如果要根据单元格区域中的某一文本字符串或数字求和，则可使用SUMIF工作表函数。请了解关于根据条件计算值。示例1A数据50Excel编程备查Page36of36公式说明（结果）=IF(A2<=100,"Withinbudget","Overbudget")如果上面的数字小于等于100，则公式将显示“Withinbudget”。否则，公式显示“Overbudget”。(Withinbudget)=IF(A2=100,SUM(B5:B15),"")如果上面数字为100，则计算单元格区域B5:B15，否则返回空文本("")示例2如果您将示例复制到空白工作表中，可能会更易于理解该
7、示例。AB实际费用预算费用1500900500900500925公式说明（结果）=IF(A2>B2,"OverBudget","OK")判断第1行是否超出预算(OverBudget)=IF(A3>B3,"OverBudget","OK")判断第2行是否超出预算(OK)示例3A成绩459078公式说明（结果）=IF(A2>89,"A",IF(A2>79,"B",IF(A2>69,"C",IF(A2>59,"D","F"))))为第一个成绩指定一个字母等级(F)=IF(A
