Excel word ppt office使用技巧大全(DOC格式)-第5部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！



币　政　策　〃　　MenuBars（〃MyMenu〃）。Menus（〃　金　融　〃）。MenuItems。Add　　Caption：=〃　条　例　〃；　　

OnAction：=〃条例〃　　＋以下为创建如图所示的多级选单　MenuBars（〃MyMenu〃）。Menus。Add　　

Caption：=〃经济〃　'建立选单项―经济‖　　＋以下三句为在―经济‖选单下增加―农业、工业和第三　

产业‖三项选单项　MenuBars（〃MyMenu〃）。Menus（〃经济〃）。MenuItems。Add　Caption：=〃农业〃；　　

OnAction：=〃农业〃　MenuBars（〃MyMenu〃）。Menus（〃经济〃）。MenuItems。Add　Caption：=〃工业〃；　　

OnAction：=〃工业〃　MenuBars（〃MyMenu〃）。Menus（〃经济〃）。MenuItems。AddMenu　Caption：=〃第三　

产业〃　＋以下三句为在―第三产业‖选单下增加―概况、范畴‖二项选单项和―饮食服务业‖子选单　　

MenuBars（〃MyMenu〃）。Menus（〃经济〃）。MenuItems（〃第三产业〃）。MenuItems。Add　Caption：=〃概　

况　〃；　　OnAction：=〃　概　况　〃　　MenuBars（〃MyMenu〃）。Menus（〃　经　济　〃）。MenuItems（〃　第　三　产　业　

〃）。MenuItems。Add　Caption：=〃范畴〃；　OnAction：=〃范畴〃　MenuBars（〃MyMenu〃）。Menus（〃经济　

〃）。MenuItems（〃第三产业〃）。MenuItems。AddMenu　Caption：=〃饮食服务业〃　＋以下二句为在　

―饮食服务业‖选单下增加―　酒店1、酒店2‖　二项选单项　MenuBars（〃MyMenu〃）。Menus（〃经济　

〃）。MenuItems（〃第三产业〃）。MenuItems（〃饮食服务业〃）。MenuItems。Add　Caption：=〃酒店1〃；　　

OnAction：=〃　酒　店　1〃　　MenuBars（〃MyMenu〃）。Menus（〃　经　济　〃）。MenuItems（〃　第　三　产　业　

〃）。MenuItems（〃饮食服务　业　〃）。MenuItems。Add　Caption：=〃　酒店　2〃；　OnAction：=〃　酒店　2〃　　

MenuBars（〃MyMenu〃）。Activate　　＋激活自定义选单　End　Sub　Sub　auto_open（）　＋系统自动打　

开运行宏　OpenMyMenu　＋调用用户选单函数　End　Sub　Sub　auto_close（）　＋系统自动关闭运行　

宏　On　Error　Resume　Next　＋忽略错误　MenuBars（〃MyMenu〃）。Delete　　＋删除自定义选单　End　　

Sub　读者可以在自己的工作簿选单―工具‖　中的―宏‖下，创建以上三个函数并将以上函数语句拷　

贝到其中即可运行。　66、。用VBA（编程）保护Excel文档　VBA　（Visual　Basic　for　Application）　

是Excel应用程序中功能非常强大的编程语言，为了规范不同的用户对Excel应用程序的访问能　

力，需要对Excel文档及有关的数据进行有效的保护，　这里根据自己及同行们的体会，从以下　

二个方面介绍用VBA编程法实现对Excel文档的保护。　对工作簿的保护　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XL　　


…………………………………………………………Page　41……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



1。利用VBA中Workbook对象的SaveAs方法实现对工作簿的保护，　下面就对SaveAs有　关的参量　

作一介绍：　Filename：该字符串表示要保存的文件名。　可包含完整路径。　如果不指定路径，　

Microsoft　Excel　将文件保存到当前文件夹。　FileFormat　：　可选，文件的保存格式。　　

Password　：为一个区分大小写的字符串（不超过15个字符）　，用于指定文件的保护密码。　　

WriteResPassword：　该字符串表示文件的写保护密码。　如果文件保存时带有密码，但打开文　

件时不输入密码，则该文件以只读模式打开。　ReadOnlyRemended　：如果为True则在打开　

文件时显示一条信息，提示该文件以只读模式打开。　下例就是在Excel应用程序中添加一工作　

簿，将工作簿按常规文件格式存为―C：pjobj经济评价。xls‖文件，并给该文件指定保护密码　

―12‖　以及写保护密码―23‖　。　　Sub　　保护工作簿　　　NewWorkbook　=　Workbooks。add　　

NewWorkbook。SaveAs　　FileName：　　=〃C：　　pjobj　经　济　评　价　。xls〃；　　FileFormat：　　=　　

XlNormal；Password：=〃12〃；WriteResPassword：=23　End　sub　2。利用VBA中Workbook对象的　

Protect方法对工作簿的结构和窗口进行保护，Workbook对象的Protect方法带有以下三个参　

量：　Password：　为加在工作表或工作簿上区分大小写的密码字符串。　如果省略本参数，不　

用密码就可以取消对该工作簿的保护。否则，取消对该工作表或工作簿的保护时必须提供该密　

码。如果忘记了密码，就无法取消对该工作表或工作簿的保护。最好在安全的　地方保存一份　

密码及其对应文档名的列表。　Structure：　若为True则保护工作簿结构（工作簿中工作表的　

相对位置）。默认值为False。　Windows　若为True则保护工作簿窗口。　下例就是对一名为―经　

济评价。xls‖　的工作簿实现―结构‖和―窗口‖保护：　Sub　保护工作簿　Workbooks　　（经济　

评价）　。Protect　Password：　=〃1234〃；　Structure：　=True；　Windows：=True　End　sub　Workbook　

对象的Unprotect方法用于取消对工作簿的保护。Unprotect方法只有一个参量，就是保护工作　

表时所用的口令。　3。对工作簿进行隐藏保护，可使他人无法看到其对应的窗口。操作方法如　

下：　在VBA中使用Workbook对象下面的Windows对象的Visible属性对工作簿进行隐藏和取消隐　

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

择学生的性别和选择选修课情况（共有5门课，供任选），应如何在窗体利用单选按钮和复选　

框来实现　A。　将5门课程用一组5个复选框来表示，将性别用一组两个复选框来表示　B。　将5门　

课程用一组5个单选框来表示，将性别用一组两个复选框来表示　C。　将5门课程用一组5个复选　

框来表示，将性别用一组两个单选框来表示　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XLV　　


…………………………………………………………Page　46……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



D。　将5门课程用一组5个单选框来表示，将性别用一组两个单选框来表示　13、假设在当前VB5　

窗体有一个个文本框Test3；并有Text3_keyPress过程如下（其中变量S1的初始值为0）　Private　　

Sub　Text3_keyPress　（keyAscii　As　Integer）　Static　S1　If　keyAscii=13　Then　13是回车符　

的ASCII　码）　　S1=S1＋1　Form1。Print　S1　If　Text3。Text=‖11‖　　Then　MsgBox　　―It　is　OK！‖　　

Text3。Enabled＋False　End　Else　If　S1=3　Then　MsgBox　―Sorry；invalid　password！‖　End　Else　　

MsgBox　―Key　in　password　again！‖　Text3。text=‖‖　End　If　End　If　End　If　End　Sub　当程序　

运行时用户要在文本框中输入11，回车后窗体和屏幕上各会显示：　A。　窗体显示―1‖，屏　

幕上弹出一个消息框，框内显示出―Sorry；invalid　password！‖　B。　窗体显示―1‖，屏幕上弹出　

一个消息框，框内显示出―Key　in　password　again！‖　C。　窗体显示―1‖，屏幕上弹出一个消息　

框，框内显示出―It　is　OK！‖　D。　　窗体显示―3‖　，屏幕上弹出一个消息框，框内显示出　

―Sorry；invalid　password！‖　三、判断题（每题2分，共30分）　1、剪贴板中只能保存最后一　

次剪切或复制的内容。（　）　2、要关闭Excel的文档窗口，可以用Alt＋F4快捷键。（　）　3、　

Excel97启动后自动打开一个名book1的工作表。（　）　4、在Excel中，　一个工作表可以包含　

多个工作薄。（　）　5、在Excel97中，如果在某个单元格输入的公式中使用的是绝对地址，则　

复制该单元公式到另一单元时，Excel会对后一单元的公式作相应的调整。（　）　6、在Excel　

中进行数据分类汇总，既可以通过执行―数据‖菜单中的―分类汇总‖命令执行，也可以使用Excel　

提供的数据透视表功能实现。前者适合依据多个字段进行分类汇总，后者适合依据一个字段进　

行分类汇总。（　）　7、在Excel中，当工作表的数据发生变化时，相应图表中的数据序列也会　

随之变化，反之亦然（　）　8、使用Excel默认的填充序列功能，可以自动填充出―第一课。。。。　

第十课‖　的序列。（　）　9、在VB5的标准控件中复选框控件适用于在一组按钮中显示多个选项，　

但用户只能而且必须选择其中一项。（　）　10、在VB中，可能有许多事件过程不会被执行。这　

是因为事件过程对应的事件没有发生。（　）　11、在VB中，变体型变量是一种没有数据类型的　

变量。（　）　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XLVI　　


…………………………………………………………Page　47……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



12、在VB中，Integer类型的类型声明符为―　！‖　。　　（　）　13、在VB中，局部变量只在定义它的　

过程内有效。（　）　14、在VB5的过程中用Dim声明局部变量是动态变量，其值在过程执行完后　

仍保留。用Static声明局部变量是静态变量，其值在程序执行完后会消失。（　）　15、在VB　

中，属性窗体和窗体属性中一回事。（　）　四、多选题（提示：在下述题前有*标记的题选择　

是有次序的，每小题2分，共20分）　1、―关闭计算机的正确步骤为‖　　　　　　　　　　　　　　　　（　）　A。　选择―关闭系统　

项‖　B。　在弹出的对话框选择―关闭