VBA在Excel2000中的应用一例

Excel 2000是一款优秀的电子表格软件。在一些常用的统计报表中，如评价、最小值、平均值等。，Examda建议只需要在需要输出结果的Activecell中嵌入计算公式即可。但是对于一些复杂的情况，嵌入计算公式的方法是无能为力的。这时候一定要用VBA(Visual Basic for Application)来解决问题，可以把Excel 2000的应用能力提高一个层次。这里通过一个例子给大家简单介绍一下这个问题。
这是一个比较简单的程序，其功能如下:我们在活动单元格A1 ~ A3和B1 ~ B3中输入不同的值，用鼠标单击“运算”命令按钮，程序会将活动单元格A1 ~ A3和B1 ~ B3中的值相减，如果运算结果大于零，就会在活动单元格B4中显示“大于零”。如果运算结果等于零，B4活动单元格显示“等于零”；如果运算结果小于零，B4活动单元格将显示“小于零”。
VBA代码如下:
private subcommand button 1 _ click()
range(" B4 ")。select
active cell . formula = " = max(a1:a3)"
ma = active cell。值
范围(" b4 ")。选择
ActiveCell。formula = " = max(B1:B3)"
MB = active cell。Value
m = ma - mb
范围(" B4 ")。select
如果m > 0，则
activecell.formula = "大于零"
else如果m = 0，则
activecell.formula = "等于零"
Else[/ Br/] ActiveCell。Formula = "小于零"
End If
End Sub
简单解释如下:[/Br/]①active cell . formula = " = max(a1:a3)"[/Br/]ma = active cell . value[Br/]range(" B4 ")。select
active cell . formula = " = max(B1:B3)"
mb = active cell . value
上面的语句用来取出活动单元格A1 ~ A3和B1 ~ B3的值，分别赋给变量ma和MB。
② m = ma-MB
范围(" B4 ")。select
if m > 0 Then
active cell . formula = "大于零"
else if m = 0 Then
active cell。Formula = "等于零"
else
active cell . formula = "小于零"
End If
上述语句的作用是先将ma-mb赋给变量M，然后选择b4活动单元格，再判断变量M的值:如果M大于零，则在b4活动单元格中。如果m等于零，b4活动单元格将显示“等于零”；如果m小于零，b4活动单元格中将显示“小于零”。
结论:
通过这个例子我们可以看到，表面文章(字体、字型、字号、颜色、表格边框、底纹、...)都是用Excel 2000完成的，而实质性的内容(计算结果)都是VBA完成的，考试太大了。由此，我们或许可以初步领略VBA(Visual Basic for Application)嵌入式开发平台的魅力。