友情提示:如果本网页打开太慢或显示不完整,请尝试鼠标右键“刷新”本网页!阅读过程发现任何错误请告诉我们,谢谢!! 报告错误
狗狗书籍 返回本书目录 我的书架 我的书签 TXT全本下载 进入书吧 加入书签

Excel word ppt office使用技巧大全(DOC格式)-第10章

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




                               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:=〃 条 例 〃;  

OnAction:=〃条例〃  +以下为创建�
返回目录 上一页 下一页 回到顶部 赞(0) 踩(0)
未阅读完?加入书签已便下次继续阅读!
温馨提示: 温看小说的同时发表评论,说出自己的看法和其它小伙伴们分享也不错哦!发表书评还可以获得积分和经验奖励,认真写原创书评 被采纳为精评可以获得大量金币、积分和经验奖励哦!