《Excel word ppt office使用技巧大全(DOC格式)》第12章

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、若想要建立一个学生管理的输入界面，其中要很要求选　
择