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

按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！



果一些功能你不想给别人用，顶多你屏蔽掉吧。　6、关闭程序的时候很喜欢退出整个EXCEL，　

这样自我感觉更象一个完整的程序。其实完全有必要考虑其他用户是否也在用EXCEL，所以，　

必须做好一下判断，不要自作聪明全部退出来，还帮忙把每个工作簿都保存一下。　7、不喜欢　

用with，总是workbook（〃〃）。worksheet（〃〃）。range（〃〃）。***一行行排得挺整齐的，还说都用复　

制，其实也不麻烦。　8、总想把VBA＋EXCEL做得象一个程序一样，其实，就因为它不独立，所　

以才更加为我们喜爱，不是吗？　64、用过VB的人都应该知道如何声明变量，在VBA中声明变量　

和VB中是完全一样的！　使用Dim语句　Dim　a　as　integer　'声明A为整形变量　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXXIV　　


…………………………………………………………Page　35……………………………………………………………

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



Dim　a　'声明A为变体变量　Dim　a　as　string　'声明A为字符串变量　Dim　a；b；c　as　currency　'　

声明A；b；c为货币变量　声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、　

Double、Decimal　（当前不支持）、Date、String　（只限变长字符串）、String　*　length　（定　

长字符串）、Object、Variant、用户定义类型或对象类型。　强制声明变量　Option　Explicit　　

说明：该语句必在任何过程之前出现在模块中。　声明常数，用来代替文字值。　Const　'　常数　

的默认状态是　Private。　Const　My　=　456　'　声明　Public　常数。　Public　Const　MyString　=　　

〃HELP〃　'　声明　Private　Integer　常数。　Private　Const　MyInt　As　Integer　=　5　'　在同一行　

里声明多个常数。　Const　MyStr　=　〃Hello〃；　MyDouble　As　Double　=　3。4567　在EXCEL97中，　

有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以　

将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。　Sub　My_Select　　

Selection。CurrentRegion。Select　End　sub　删除当前单元格中数据的前后空格。　sub　my_trim　　

Trim（ActiveCell。Value）　end　sub　使单元格位移　　sub　my_offset　ActiveCell。Offset（0；　　

1）。Select'当前单元格向左移动一格　ActiveCell。Offset（0；　…1）。Select'当前单元格向右移　

动　一　格　　　ActiveCell。Offset（1　　；　　0）。Select'　当　前　单　元　格　向　下　移　动　一　格　　

ActiveCell。Offset（…1　；　0）。Select'当前单元格向上移动一格　end　sub　如果上述程序产生错　

误那是因为单元格不能移动，为了解除上述错误，我们可以往　sub　my_offset　之下加一段代　

码　on　error　resume　next　注意以下代码都不再添加　sub　―代码名称‖　和end　sub请自己添加！　　

给当前单元格赋值：　ActiveCell。Value　=　〃你好！！！〃　给特定单元格加入一段代码：　例如：　

在Ａ１单元格中插入〃ＨＥＬＬＯ〃　Range（〃a1〃）。value=〃hello〃　又如：你现在的工作簿在　

sheet1上，你要往sheet2的Ａ１单元格中插入〃ＨＥＬＬＯ〃　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXXV　　


…………………………………………………………Page　36……………………………………………………………

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



1。sheets（〃sheet2〃）。select　　　　　　　　　　　　　　　　range（〃a1〃）。value=〃hello〃　　　　　　　　　　　　　　　或　

2。Sheets（〃sheet1〃）。Range（〃a1〃）。Value　=　〃hello〃　说明：　　1。sheet2被打开，然后在将　

―HELLO〃放入到A1单元格中。　2。sheet2不被打开，将―HELLO〃放入到A1单元格中。　隐藏工作表　　

'　隐藏SHEET1　这张工作表　　sheets（〃sheet1〃）。Visible=False　'　显示SHEET1　这张工作表　　

sheets（〃sheet1〃）。Visible=True　有时候我们想把所有的EXCEL中的SHEET都打印预览，请使用　

该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。　Dim　my　As　　

Worksheet　For　Each　my　In　Worksheets　my。PrintPreview　Next　my　得到当前单元格的地址　　

msgbox　ActiveCell。Address　得到当前日期及时间　msgbox　date　&　chr（13）　&　time　保护工作　

簿　ActiveSheet。Protect　取消保护工作簿　ActiveSheet。Unprotect　给当前工作簿改名为　　

〃liu〃　　　ActiveSheet。Name　　　=　　　〃liu〃　　　打　　开　　一　　个　　应　　用　　程　　序　　　　　AppActivate　　

（Shell（〃C：WINDOWSCALC。EXE〃））　　增加一个工作簿　　Worksheets。Add　　删除当前工作簿　　

activesheet。delete　　　　打　　　开　　　一　　　个　　文　　　　件　　　　　　Workbooks。Open　　　FileName：=〃C：My　　

DocumentsBook2。xls〃　关闭当前工作簿　ActiveWindow。Close　　当前单元格定为：左对齐　　

Selection。HorizontalAlignment　　=　　xlLeft　　当　前　单　元　格　定　为　：　中　心　对　齐　　

Selection。HorizontalAlignment　　=　　xlCenter　　　当　前　单　元　格　定　为　：　右　对　齐　　

Selection。HorizontalAlignment　=　xlRight　当前单元格为百分号风格　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXXVI　　


…………………………………………………………Page　37……………………………………………………………

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



Selection。Style　=　〃Percent〃　当前单元格字体为粗体　Selection。Font。Bold　=　True　当前单　

元格字体为斜体　Selection。Font。Italic　=　True　当前单元格字体为宋体20号字　With　　

Selection。Font　。Name　=　〃宋体〃　。Size　=　20　End　With　With　语句　With　对象　。描述　End　With　　

让你的机器发出响声　　BEEP　　清除单元格中所有文字、批注、格式、所有的东西！　　

ActiveCell。Clear　测试选择状态的单元格的行数　MsgBox　Selection。Rows。Count　测试选择　

状态的单元格的列数　MsgBox　Selection。Columns。Count　测试选择状态的单元格的地址　　

Selection。Address　让所有的错误不再发生　ON　ERROR　RESUME　NEXT　产生错误时让错误转到另　

一个地方　on　error　goto　l　'code　l：　'code　删除一个文件　kill　〃c：1。txt〃　定制自己的状　

态　栏　　　Application。StatusBar　　=　　〃　现　在　时　刻　：　　〃　　&　　Time　　恢　复　自　己　的　状　态　栏　　

Application。StatusBar　=　false　在运行期执行一个宏　Application。Run　macro：=〃text〃　滚　

动窗口到a1的位置　ActiveWindow。ScrollRow　=　1　ActiveWindow。ScrollColumn　=　1　定制系统　

日期　Dim　MyDate；　MyDay　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXXVII　　


…………………………………………………………Page　38……………………………………………………………

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



MyDate　=　#12/12/69#　MyDay　=　Day（MyDate）　今天的年限　Dim　MyDate；　MyYear　MyDate　=　Date　　

MyYear　=　Year（MyDate）　MsgBox　MyYear　产生一个inputbox　InputBox　（〃Enter　number　　

of　　months　　to　　add〃）　　得　到　一　个　文　件　名　：　　　Dim　　kk　　As　　String　　kk　　=　　

Application。GetOpenFilename（〃EXCEL　（*。XLS）；　*。XLS〃；　Title：=〃提示：请打开一个EXCEL　

文件：〃）　msgbox　kk　打开zoom显示比例对话框　Application。Dialogs（xlDialogZoom）。Show　激　

活字体对话框　Application。Dialogs（xlDialogActiveCellFont）。Show　打开另存对话框　Dim　　

kk　　As　　String　　kk　　=　　Application。GetSaveAsFilename（〃excel　　（*。xls）；　　*。xls〃）　　

Workbooks。Open　kk　此段代码寻找字符串中特定字符的位置，需要建立一个窗体，并在窗体中，　

放入TEXTBOX1；TEXTBOX2和TEXTBOX3（3个文本框）及MANDBUTTON1（按钮）　Private　Sub　　

mandButton1_Click（）　a　=　TextBox1。Text　b　=　TextBox2。Text　aa　=　Len（a）　i　=　1　Dim　YY　　

As　String　If　b　=　〃〃　Then　Exit　Sub　Do　If　InStr（i；　a；　b；　vbTextpare）　=　0　Then　Exit　　

Do　kk　=　InStr（i；　a；　b；　vbTextpare）　YY　=　YY　&　CStr（kk）　&　〃/〃　i　=　kk　＋　1　Loop　While　　

aa　》=　i　TextBox3。Text　=　YY　End　Sub　ActiveX控件在Excel97中的运用　Excel97在工作表或　

图表上可使用ActiveX控件，根据我使用的体会，在工作上处理控件时，必须注意和了解如下　

事项：　　（一）用Excel5。0/95工作簿文件格式保存Excel97工作簿时，将选择ActiveX控件信息。　

当用户通过双击鼠标来编辑内嵌在其它应用程序文档中的Excel97工作簿时，该工作簿上的控　

件将不会正常工作。如果用户是通过用右键单击工作簿，然后选中快捷菜单上的―打开‖　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXXVIII　　


…………………………………………………………Page　39……………………………………………………………

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



命令来编辑工作簿的话，工作簿上的控件就能正常工作了。　　（二）当ActiveX控件处于激活状态　

时，将禁用某些MicrosoftExcelVisualBasic方法和属性。例如，当某一控件激活时，就不能　

使用Sort方法，故下述按钮单击事件处理过程中的代码将失败　（因为用户单击按钮后，该按钮　

就　处　于　激　活　状　态　）　。　　　PrivateSubmandButton1　　　　Click　　Range（　　a1：a10　　）　　

SortKey1：=Range（a1）　EndSub　解决办法是通过选激活工作表上其它元素的方法来绕过这　

种问题。例如，可用下列代码对单元格区域排序：　PrivateSubmandButton1　　Click　　

Range（a1）　　Activate　Range（a1：a10）　　SortKey1：=Range（a1）　mandButton1　　

Activate　End　Sub　（三）在MicrosoftExcel　中，用OLEObjects集合中的OLEObject对象代表　

ActiveX控件。如果要用编程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方　

法。例如向第一张工作表添加命令按钮。　Worksheets（1）　　OLEObjects　　Add　Forms　　

mandButton　　1，_　Left：=10；Top：=10；Height：=20；Width：=100　因为ActiveX控件也可用　

OLEObjects集合中的OLEObject对象代表，所以也可用该集合中的对象来设置控件的属性。例　

如要设置控件―mandBotton1‖　的―　左边位置‖　属性。　Worksheets（1）　　OLEObjects（　　

mandButton1　）　　Left=10　那些不属于OLEObject对象属性的控件属性，可通过由Object　

属性返回的实际控件对象来设置。例如要设置控件―mandButton1‖　的标题。　Worksheets（1）　　

OLEObjects（　mandButton1　）　　　Object　　Caption=　runme　　因为所有的OLE对象也是　

Shapes集合的成员，所以也可用该集合设置若干控件的属性。例如要对齐第一张工作表上所有　

控件的左边框。　ForEachsInWorksheets（1）　　Shapes　Ifs　　Type=msoOLEControlObjectThens　　

Left=10　Next　请注意，当在控件所在工作表的类模块之外使用控件的名称时，必须用工作表　

的名称限定该控件的名称。在工作表上ActiveX控件的事件处理过程中，Me关键字所指向的是　

工作表，而非控件　65、在Excel中利用VBA创建多级选单　Excel是我们常用的报表处理软件之　

一，对于大多数人来说只是使用它进行打印报表，没有注意其他功能，其实利用Excel内嵌的　　

VBA　语言完全可以快速开发出自己企业的应用系统来，而且应用系统界面与其它专业编程语言　

相当相似。下面笔者简单通过一个实例说明如何利用VBA创建多级选单。　首先，我们对Excel　

中两个重要的内置函数auto_open（）　和　auto_close（）作一简单说明。　auto_open（）　：在打开　

工作簿时系统将自动执行该函数，因此我们可以在该函数中调用自己应用程序的选单函数以及　

其它需要初始化设置的函数及宏语句；　auto_close（）：在关闭工作簿时系统将自动执行该函　

数。所以我们需要在该函数中放置删除用户自定义选单语句，否则只有退出Excel才能恢复　

EXCEL的系统选单。　在以下语句中，我们定义了选单设置函数　OpenMyMenu（），用于设置多级　

选单，其他有关说明见程序内注释，详细代码如下：　Sub　OpenMyMenu（）　＋自定义多级选单函　

数　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXXIX　　


…………………………………………………………Page　40……………………………………………………………

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



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

MenuBars。Add　　　（〃MyMenu〃）　　＋　　自　　定　　义　　选　　单　　项　　　　　Sheets（〃sheet1〃）。Select　　

MenuBars（〃MyMenu〃）。Menus。Add　Caption：=〃金融〃　＋增加第一个选单项―金融‖　　＋以下三句　

为在―金融‖选单下增加―银行法、货币政策和条例‖三项选单项　MenuBars（〃MyMenu〃）。Menus（〃　

金　　融　　〃）。MenuItems。Add　　　Caption：=〃　　银　　行　　法　　〃；　　　OnAction：=〃　　银　　行　　法　　〃　　

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

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