设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

VBA在Excel 2000中的应用一例

1970-1-1 08:00| 发布者: 未知| 查看: 6293| 评论: 0

Excel 2000是非常优秀的电子表格软件,在一些常用的统计报表中,如求最大值、最小值、平均值……,我们只需在需要输出结果的活动单元格(Activecell)中预埋计算公式即可,但对于一些比较复杂的情况,采用预埋计算公式的方法就无能为力了。这时我们必须用VBA(Visual Basic for Application)才能解决问题,用VBA可以将Excel 2000的应用能力提高一个层次,下面通过一个实例向大家简单地介绍一下这方面的问题。


  这是一个比较简单的程序,其作用如下:我们在A1~A3、B1~B3活动单元格中分别输入不同的数值,用鼠标点击“运算”命令按钮后,程序将用A1~A3活动单元格中的最大值减去B1~B3活动单元格中的最大值,如果运算结果大于零则在B4活动单元格中显示“大于零”;如果运算结果等于零则在B4活动单元格中显示“等于零”;如果运算结果小于零则在B4活动单元格中显示“小于零”。

  VBA代码如下:

  Private Sub CommandButton1_Click()
  Range("b4").Select
  ActiveCell.Formula = "=max(a1:a3)"
  ma = ActiveCell.Value
  Range("b4").Select
  ActiveCell.Formula = "=max(b1:b3)"
  mb = ActiveCell.Value
  m = ma - mb
  Range("b4").Select
  If m > 0 Then
  ActiveCell.Formula = "大于零"
  ElseIf m = 0 Then
  ActiveCell.Formula = "等于零"
  Else
  ActiveCell.Formula = "小于零"
  End If
  End Sub

  简单说明如下:
  ①ActiveCell.Formula = "=max(a1:a3)"

  ma = ActiveCell.Value
  Range("b4").Select
  ActiveCell.Formula = "=max(b1:b3)"
  mb = ActiveCell.Value
  上述语句的作用是从A1~A3、B1~B3活动单元格取出各自的最大值并将其分别赋予变量ma、mb。

  ②m = ma - mb
  Range("b4").Select
  If m > 0 Then
  ActiveCell.Formula = "大于零"
  ElseIf m = 0 Then
  ActiveCell.Formula = "等于零"
  Else
  ActiveCell.Formula = "小于零"
  End If

  上述语句的作用是先将ma-mb赋予变量m,然后选择b4活动单元格,接着对变量m的值进行判断:如m大于零则在b4活动单元格显示“大于零”;如m等于零则在b4活动单元格显示“等于零”;如m小于零则在b4活动单元格显示“小于零”。

  结论:

  通过这个实例我们可以看出:表面文章(字体、字型、大小、颜色、表格边框、底纹……)由Excel 2000来完成,实质内容(运算结果)由VBA来完成,从中我们或许能够初步领略到VBA(Visual Basic for Application)嵌入式开发平台魅力之所在.

最新评论

相关分类

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-5 12:22 , Processed in 0.057212 second(s), 16 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部