Excel_VBA经典教程(共2份)第2份.pdf资源-CSDN文库

Excel_VBA

4星 · 超过85%的资源需积分: 9 47 浏览量 2010-10-28 19:43:30 上传评论收藏 4.98MB PDF 举报

资源推荐

资源详情

资源评论

第15学时实现用户窗体的自动功能

实现用户窗体的自动功能可以分为几个部分：首先必须确定窗体在装载时的外观，其次

要确定控件的行为，再次要测试用户输入的数值是否可以接受，最后是把数据写入到工作表

中。这就是在这个学时中要完成的任务。

这个学时的重点包括：

• 在什么位置怎样去初始化用户窗体的值

• 使用V B A代码来显示用户窗体，在用户窗体运行时控制它的行为

• 执行数据合法有效性检查

• 把窗体上的数据移动到工作表中

15.1 初始化用户窗体中的值

当显示窗体时，在装载它时肯定需要某些初始化工作。例如，如果在 D a t e 文本框中显示

当天的日期的话，用户很可能就欣赏这个界面了。为了实现这一点，需要把一些代码放置到

用户窗体_ A c t i v a t e 过程中，该过程在窗体被激活时执行，也就是在这个过程中编写合适的代

码来初始化窗体上控件的值。将要在这个过程中完成的一项任务是使用一些单元格来填充列

表框，Expense Ty p e列表框和Card Ty p e列表框需要一些值，要输入这些值的话，请执行下面

的步骤：

1）切换到当前工作簿，进入到工作簿的 S h e e t 2 工作表，把S h e e t 2改名为L i s t s 。

2）把光标移动到单元格A 1 ，输入Expense Categories。

3）从单元格B 2 开始，输入下面的值：

单元格B2: Beach Umbrellas

单元格B3: Bike Rental

单元格B4: Golf Lesson

单元格B5: Golf, 18 holes

单元格B6: Golf, 9 holes

单元格B7: Pool To w e l s

单元格B8: Tennis Court

单元格B9: Tennis Lesson

4）选择范围B 2 : B 9，把这个范围命名为E x p e n s e s。

要为一个范围的单元格命名的话，选择公式栏左端的“名称”框，输

入这些单元的名称，按下回车键就可以了。

5）把光标移动到单元格E 1 ，输入Credit Card Ty p e s 。

6）从单元格F 2 开始，输入下面的值：

单元格F2: American Express

当使用单元格的值来填充列表框时，最好使用命名了的单元格范围，因为这对于开发人员来

说更容易。

L i s t I n d e x属性决定了列表框中哪一个值显示出来，列表框中值的索引是从 0开始计数的。

该过程所初始化的另外一个对象类型是文本框：

t x t D a t e . Text = Format ( Now, "mm/dd/yy")

N o w 函数是用来返回当前日期的， F o r m a t 函数把日期按照“ m m / d d / y y ”（月/日/年）的格

式来显示。

15.2 显示用户窗体

你也许在考虑不从 Visual Basic编辑器中运行用户窗体的话，该怎样来显示它呢？下面就

将编写一个简单的过程来实现用户窗体的显示。可以把这个过程分配给各种不同的对象，比

如分配给命令按钮、工具栏按钮和菜单命令项等等。

有关使用工具栏的更多信息，请参阅第 1 6学时。有关使用菜单的更多

信息，请参阅第1 7 学时。

因为把过程分配给工具栏和菜单命令项在本书中还没有讨论到，所以现在准备把用来显

示窗体的过程分配给命令按钮。用来显示对话框的过程只需要一行代码：

f r m G u e s t E x p e n s e s . S h o w

用户窗体的S h o w方法把窗体装载到内存中并显示它。要创建这个过程的话，请执行下面

的步骤：

1）如果还没有准备好，那么请切换到 Visual Basic编辑器，添加一个新模块到工作簿中。

2）创建一个新过程，把它命名为 S h o w G u e s t E x p e n s e s。

3）在这个过程中输入下面的代码：

f r m G u e s t E x p e n s e s . S h o w

4）切换到工作簿的S h e e t 1工作表，添加一个命令按钮到这个工作表上。

要添加命令按钮的话，必须让“窗体”工具栏显示出来。

5）当“指定宏”对话框显示出来时，选择 S h o w G u e s t E x p e n s e s。

6）把命令按钮的标题设置为 Show Guest Expenses，然后在命令按钮之外的任意位置单击

以不选中该命令按钮。

7）要显示窗体的话，单击该命令按钮，窗体就显示出来了，注意到两个列表框控件和

D a t e 文本框控件都已经初始化了。

8）关闭窗体并保存工作簿。

现在你知道了，使用 S h o w 方法来显示窗体是很容易的。在本书以后的章节里，将介绍从

工具栏按钮和菜单命令来使用 S h o w G u e s t E x p e n s e s 过程显示窗体的方法。

15.3 控制窗体的行为

在显示窗体以后，可能需要窗体具有不同的行为。例如，当选中 Tip Included复选框时，

第15学时实现用户窗体的自动功能使用129

就需要启用Tip Amount文本框供用户使用。又比如，如果 Credit Card选项按钮被选中的话，

那么就应该启用跟信用卡信息相关联的所有控件供用户使用。要实现窗体的不同行为的话，

需要在合适控件的 c h a n g e 事件过程中编写代码。当控件的 Va l u e 属性改变时， C h a n g e 事件就

触发了。因为将使用选项按钮 (Credit Cart)和复选框 ( T ip Included)，所以当 Va l u e 属性为

Tr u e时，就需要启用相关的控件供用户使用。要输入代码以启用控件的话，请执行下面的

步骤：

1）如果还没有准备好，那么请切换到 Visual Basic编辑器，打开f r m G u e s t E x p e n s e s 窗体。

2）双击Tip Included复选框以打开代码窗口。

3）从代码窗口的“事件”列表框中选择 C h a n g e，在c h k Ti p I n c l u d e d _ C h a n g e过程中输入下

面的代码：

If chkTi p I n c l u d e d . Value = True Then

l b l TipAmount.Enabled = Tr u e

t x t TipAmount.Enabled = Tr u e

E l s e

l b l TipAmount.Enabled = False

t x t TipAmount.Enabled = False

End If

4）位于代码窗口左上角的是一个列表框，该列表框中当前选中的是 c h k Ti p I n c l u d e d 。单

击列表框的向下箭头，查找到 o p t C r e d i t C a r d并选中它。

5）从事件列表框中选择 C h a n g e 事件，于是o p t C r e d i t C a r d _ C h a n g e 过程就在代码窗口中显

示出来了。

6）在o p t C r e d i t C a r d _ C h a n g e 过程中输入下面的代码：

If optCreditCard.Vlaue = True Then

l b l C a r d Type.Enabled = Tr u e

l s t C a r d Type.Enabled = True

l b l C a r d N u m b e r.Enabled = Tr u e

t x t C a r d N u m b e r.Enabled = Tr u e

lblExpires.Enabled = Tr u e

txtExpires.Enabled = Tr u e

E l s e

l b l C a r d Type.Enabled = False

l s t C a r d Type.Enabled = False

l b l C a r d N u m b e r.Enabled = False

t x t C a r d N u m b e r.Enabled = False

lblExpires.Enabled = False

txtExpires.Enabled = False

end if

7）切换到工作簿的 S h e e t 1工作表，单击该工作表上的命令按钮，窗体就显示出来了，如

图1 5 - 3 所示。

8）选中Tip Included复选框，启用Tip Amount控件。

9）选择Credit Card选项按钮，启用信用卡控件，如图 1 5 - 4所示。

1 0）关闭窗体并保存该工作簿，然后返回到 Visual Basic编辑器。

130使用中文Excel 2000编程 2 4 学时教程

剩余99页未读，继续阅读

评论收藏

内容反馈

laigs218

2012-06-21

这份共两份内容不错，适合excel vba新手。

fireskj

粉丝: 1
资源: 40

Excel_VBA经典教程(共2份)第2份.pdf

Excel_VBA经典教程(共2份)第1份.pdf

Excel_VBA_之经典教程.pdf

Excel_VBA＋ADO＋SQL入门教程_－_汇总.pdf

setup_CN_2052_11.8.2.10229_Professional_VBA_CMCC.exe

Excel_VBA教程.rar_Excel VBA_VBA excel_VBa_excel_excel vba教程

Excel_VBA24小时教程

EXCEL VBA函数手册.rar_Excel VBA_VBA excel_VBa_excel_vba excel

EXCEL_VBA常用代码实战大全.docx

EXCEL_VBA学生成绩管理系统教程.pdf

Excel-VBA-编程教程(完整版).pdf

Excel_VBA_编程教程,excel高级教程(2010新春版)

excel_vba.rar_Excel VBA_MACRO EXCEL_VBa_excel vba教程_excel宏

Excel_VBA_编程教程(完整版)、excel高级教程.docx

Excel_VBA＋ADO＋SQL入门教程看见星光.docx

excel VBA帮助文件.rar_Excel VBA_VBA excel_VBA，Excel_excel_vba exce

Excel_VBA教程

EXCEL_VBA常用代码实战大全.doc

EXCEL_VBA常用语句300句.pdf

EXCEl VBA实例代码大全

xlsx wps自定义下拉框模板

VBA代码助手专业版3.7.8.0

Visual Basic 6.0基础教程及示例

VBA EXCEL制作日历控件

基于VB6的颜色取色器

完整版 VBA For WPS2019安装包.zip

批量处理word和pdf文档

VB6.0 MQTT Publish Demo

VB 6.0 代码窗口鼠标滚轮滑动实现

基于VB的俄罗斯方块系统设计与实现(源代码+参考文献).zip

最新资源