按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
藏，Visible属性的值可取―True‖和―False‖两种。 下面程序代码完成对工作簿―book。xls‖ 的
隐藏： Sub 隐藏工作簿 Workbooks（〃book〃）。Activate ActiveWindow。Visible = False End
sub 或： Sub 隐藏工作簿 Workbooks（〃book〃）。Windows （1）。Visible=False End sub 对
工作表的保护 1．对工作表实现口令保护利用VBA调用Worksheet对象的Protect方法对工作表
进行保护，Protect带有以下参量：
XLI
…………………………………………………………Page 42……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Password 用于保护工作表的口令。 Drawingobjects 若为 True ，则对工作表中的
Drawingobjects对象进行保护；缺省值为True。 Contents 若为True，则对单元格内容进行保
护，缺省值为True。 下面程序代码完成对工作表―基础数据表‖ 的保护： Sub 保护工作表
Worksheets （基础数据表）。Protect Password：=〃1234〃 End sub 2．对工作表实现隐藏
保护，使他人无法看到工作表： 利用VBA设置Worksheet对象的Visible属性来隐藏工作表；
Visible属性的值为以下三个值中的一个： True 工作表为显示状态。 False 工作表为隐藏状
态。 XlVerHidden 工作表为隐藏状态，且用户不能通过―取消隐藏‖对话框将其改为显示状态。
当Visible的值为XlVerHidden时，只能利用VBA将其重新设置为True。 Sub 隐藏工作表
Worksheets（〃基础数据表〃）。Visible=False End sub 67、求：将所选区域中的数值全部转化为
〃万元〃的最简代码。 求：将所选区域中的数值全部转化为〃万元〃的最简代码。 或能完成此功能
的最便捷的命令操作。 写了一个；抛砖引玉： Sub convt（） Dim cel As Range Dim dec As Variant
Application。EnableEvents = False yesorno = MsgBox（〃确实将区域所有数值转换为―万元‖ ？
〃； vbYesNo ＋ vbQuestion ＋ vbDefaultButton1） If yesorno = vbYes Then 1： dec =
Application。InputBox（〃请输入小数位数：〃； Default：=0； Type：=1） If dec = 〃〃 Then GoTo
1 End If For Each cel In Selection If IsNumeric（cel。Value） Then 'cel = （Round（cel。Value
/ 10000； 2）） & 〃万元〃 cel = （Round（cel。Value / 10000； dec）） End If Next ElseIf yesorno
= vbNo Then Exit Sub End If End Sub 以 下 当 为 最 简 代 码 吧 。 Sub Macro2（）
Selection。NumberFormatLocal = 〃#〃〃。〃〃#；〃
XLII
…………………………………………………………Page 43……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
End Sub 68、在VBA开发环境中，点击工具――附加控件，出现如下窗口： 在可选控件中选择
microsoft orogressbar control；再点击确定，这时，你会发现在你的工具箱中增加了进度条
工具，如图： 下面说说进度条的用法： 属性：Max： 设置进度条控件的最大值 Min： 设置
进度条控件的最小值 Value：设置进度条控件对象的当前值 Scrolling： 进度条的式样，即一
格一格的进度条或是没有间隔的进度条。 例子：Private Sub UserForm_Activate（） For i =
1 to 5000 ProgressBar1。Max = 5000 设置进度条控件的最大值 ProgressBar1。Value = I 进
度条控件对象的当前值 next End Sub 在程序中加入进度条的办法是将ProgressBar1。Max=最
大值，ProgressBar1。Value = 当前值放入循环中去。 69、Excel是一个优秀的电子表格软件，
如果你编的程序需要以报表的形式显示最终结果，它会是个不错的选择。你可以通过VB控制
Excel显示数据表格。如果你不愿意深入了解Excel这些琐碎的细节，也不是没有权宜之计：你
可以打开Excel中的工具→宏→录制新宏，然后进行手工操作，结束后把所录的宏代码贴进你
的VB程序就行。这样得到的程序一般都能正常运行，但其中的宏代码往往不够简洁，效率和可
读性都不高。 Excel编程碰到的第一个问题是表头。有时表头的形式比较复杂，需要横向或纵
向合并单元格。请放心，只要没有斜杠，Excel都能应付得了。 例如合并A2~A5这4个单元格，
你录制的宏代码会是这样： Range（〃A2：A5〃）。Select With Selection 。HorizontalAlignment
= xlCenter 。VerticalAlignment = xlBottom 。WrapText = False 。Orientation = 0 。AddIndent
= False 。ShrinkToFit = False 。MergeCells = False End With Selection。Merge 而自己编
程只要一句 Range。（―A2：A5‖）。mergecells=True 就可以解决问题。 表头形式定了，再就是表
头的内容。如果单元格中的文本长度超过了列宽，往往只能显示部分内容，行尾那一格的内容
则会―越境‖进入右边那个空白单元格，很不美观。这个问题可以通过在程序中设置列宽加以解
决。 Columns（14）。columnwidth=12 设置第14列列宽为12 （缺省列宽为8。38） 如果你不愿意
劳神去逐列估计实际所需的列宽，干脆来一行 Columns（―a：i‖）。autofit a到i列自动调整列
宽
XLIII
…………………………………………………………Page 44……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
让Excel随机应变吧。 但也许你不喜欢这种方法，认为表头撑大了列宽，弄得浏览一张小表格
还得向右滚动，太不方便了。要是能保持默认列宽，让文本自动换行就好了。没问题，Excel
包你满意。 Rows（3）。WrapText=True 让第三行各单元格中的文本自动换行 不过你最好再加
一句 Rows（3） 。VerticalAlignment = xlTop 让表头自动向上对齐，这样比较符合习惯。 你
还可以给表头打上底色，让你的读者不至于看了打哈欠。 Rows（2）。 Interior 。ColorIndex =
5 设 置 第 2 行 底 色 为 蓝 色 再 给 表 格 的 标 题 上 色 ， 这 样 更 醒 目 一 点 。
Rows（1）。Font。ColorIndex=4 表头完成后该填数据了，一个一个地填实在是太？ ，如果你的数
据是存放在一个二维数组中，那问题就简单多了。 Dim Data（3；4） 〃〃〃〃 数据处理
Range（―a2：d4‖）。Value=Data 这样可以一次填入一个表的所有数据，够快了吧！不过提醒一句，
Range对象大小最好与数组匹配，小了无法显示所有数据，大了则会在空白单元格只填入―N/A‖
表示没有取得数据。 如果需要在结果中显示多个同样规格的数据表，想在Range对象中加入循
环变量，这也好办。 Dim cell11；cell2 Dim Data（3；4） 〃〃〃〃 For I =1 to 40 〃〃〃〃
数 据 处 理 Set cell1=Worksheets（〃Sheet1〃）。Cells（5*I…4；1） Set
cell2=Worksheets（〃Sheet1〃）。Cells（5*I…2；4）
Worksheets（〃Sheet1〃）。Range（cell1；cell2）。value=Data Next I 表格填完了，现在该打表格
线 了 ， 以 下 几 条 语 句 可 以 满 足 你 的 要 求 ： With
Worksheets（〃Sheet1〃）。Range（cell1；cell2）。borders 。LineStyle=xlContinuous 。weight=x
lThin End With 70、《计算机实用软件》2001…2002第一学期试卷（2） 一、填空题（每空1
分，共20分） 1。在Excel的系统默认状态下，某个工作表的标签呈白色显示，表示其为 。在
工作表中被粗线框住的的格子称为 。 2．在Excel工作表中可以输入两类数据它们是 和 3。 工
作表由 行和 列组成 4。输入Excel公式应以 或者 开头，然后再输入具体的计算公式 5。在
Excel中，系统默认状态下，输入文字的对齐方式是 ，输入数字的对齐方式是 6。在VB5的标准
控件中 控件适用于在一组按钮中显示多个选项，但用户只能而且必须选择其中一项。 控件适
用于放置用户只能看到但不能修改的少量文本。 7。在VB中，要改变Text1文本框内显示的信息
时，应当在其 窗口中，
XLIV
…………………………………………………………Page 45……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
将 属性进行重新设置。 8。VB5表达 （40 Mod 7）2的值是 2x2的VB5表达式为 9。如下程序实现
在当前窗口中显示一个消息框，消息框中显示有―是（Y）‖和―否（N）‖两个按钮，试将该程序
填写完整，使用户点击―是 （Y）‖按钮后能显示出数字1，点击―否（N）‖按钮后能显示出数字2
Private Sub Form_Click（） Msg=‘你想要继续吗？‖ Style=vbYesNo Response=msgbox（msg ； ）
If Response vbYes Print―1‖ Else End if End Sub 二、单选题（每题3分，共30分） 1。 Excel
主要用于（ ）领域。 。 A。 美术设计、装璜 B。 数据分析、财务管理 C工业设计、机械制造 D。
多媒体制作 2。 对话框窗口中的―确定‖按钮的作用是（ ） A。 确定输入的信息 B。 确定各选
项并开始执行 C。 关闭对话框不做任何事 D。退出对话框 3。 在个人计算机上，通常Excel是在
（ ）系统环境下运行的。 A．office97 B。MS…DOS C。Windows D。UNIX 4、Sheet1是Excel中的
一个默认（ ） A．工作薄 B。单元格 C。工作表 D。页 5、在Excel中，如果输入分数，则需在
数值闪加上 A． 0与空格 B。 空格与0 C。 空格 D。 0 6、在Excel中，公式―SUM＋ （D2：
C7）‖ 中的C7属于引用。 A。 绝对 B。 相对 C。 列相对行绝对的混合 D。 行相对列绝
对的混合 7、在Excel工作表中，系统默认状态下，日期和时间数据会自动对齐。 A。 靠
左 B。 靠右 C。 居中 D。 靠上 8、下述（ ）不是数据清单应具有的特征。 A。 一个数据清单
独占一个工作表 B。 数据清单中避免对单元格进行格式化 C。 其它信息不要放在数据清单的
区域内 D。 数据清单中避免出现空行或空列 9、下列VB5控件中（ ）可以自动设置滚动条。 A。
文本框 B。 图片框 C。 框架 D。 复选框 10、若想在窗体显示一句提示信息，下列控件最
适宜实现 A。 框架 B。 标签 C。 单选钮 D。 列表框 11、下述哪个是VB5合法变量名？（ ） A。
Then B。 If C。 ％h121 D。 Then_1 12、若想要建立一个学生管理的输入界面，其中要很要求�