三九宝宝网宝宝百科宝宝知识

VBA在Excel2000中的应用一例

11月18日 编辑 39baobao.com

[合作学习作为一种有效的学习方式而被应用于英语教学中]合作学习作为一种有效的学习方式,给学生提供了更自然、更直接、更多的学习和使用英语的机会,因而被广泛应用于日常英语教学中。但是,在实际教学中,不少教师对合作学习理论缺乏深...+阅读

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

这是一个比较简单的程序,其作用如下:我们在A1~A

3、B1~B3活动单元格中分别输入不同的数值,用鼠标点击“运算”命令按钮后,程序将用A1~A3活动单元格中的值减去B1~B3活动单元格中的值,如果运算结果大于零则在B4活动单元格中显示“大于零”;如果运算结果等于零则在B4活动单元格中显示“等于零”;如果运算结果小于零则在B4活动单元格中显示“小于零”。

VBA代码如下:

Private Sub mandButton1_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~A

3、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)嵌入式开发平台魅力之所在.

以下为关联文档:

中考英语应用写作Thank you,my...三年的初中生活即将结束,静坐在考场中的你,一定会思绪万千。三年来,你在学习、生活等方面取得了优异的成绩,这些成绩的背后有老师的辛勤教诲、家长的次次鼓...

中考英语作文应用中考英语作文范文When winter es, the topic of haze will never be ignored. When it es, many pictures will be showed. People make fun of these pictures and they a...

实例讲解巧妙的将谚语应用到托福写作中的方法托福高分作文必背的转承词托福作文训练中,各位应该有意识地使用下列连接词,这对提高作文分数是很有帮助地,大家在练习托福写作时可以参考使用。同时大家在使用这些词的时候,必...

教学模式在教学中的应用,怎么让学生主动学习学案的利弊?如何用学案导学让学生学得主动? 学案就是学习方案,是相对于教案提出的,是指在教学过程中,教师精心设计的供学 生课前预习、课内导学和课后复习使用的课例学习材料。...

应用峰流速仪主要是测量呼气峰流速引言:长期监测峰流速,加上观察症状的改善,将有利于评价病人对治疗的反应。PEF监测也可用于患儿在出现症状之前,如能观察到早期恶化的征象,可及时调整治疗。 哮喘是当今世界最常见...

自然材料在美工区的投放和应用美工区是孩子们的创造小天地。在美工区里投放自然材料,给孩子更好的操作空间和可操作的材料,自然材料都来自丰富多彩的大自然。大大提高了幼儿的创造空间,这些天然的食材,为幼儿...

"焦点智慧教室"在数学教学中的应用1.国内外研究现状 焦点智慧教室已获多家教育机构、两岸及海外政府的认可并采用:目前在全球接近30个国家、国内17个省市的中小学学生使用。目前大家围绕焦点智慧教学系统的研...

奥尔夫教学法在学科教学中的应用奥尔夫教学法在学科教学中的应用 一、 奥尔夫教学法(Orff一Schulwerk ) 在以学生为中心的教学改革思路中,教师们已懂得让学生参与,但如何参与,如何使学生在课堂上成为主体,特别...

《蓬勃生长》中的“教学细节特征与应用教学细节,是在教学课堂上能展现一个教师多项能力的指标之一。教师想在自己的课堂上展现自己自己的教学细节,但往往感觉无从下手,对于自己在课堂一闪而过的细节也会在课后难以回...

推荐阅读
图文推荐