cation.Dialogs(xlDialogZoom).Show 激活字体对话框 Application.Dialogs(xlDialogActiveCellFont).Show 打开另存对话框 Dim kk As String kk = Application.GetSaveAsFilencom("excel (*.xls), *.xls") Workbooks.Open kk 此段代码寻找字符串中特定字符的位置，需要建立一个窗体，并在窗体中，放入TEXTBOX1,TEXTBOX2和TEXTBOX3(3个文本框）及COMMANDBUTTON1(按钮) Private Sub CommandButton1_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, vbTextCompare) = 0 Then Exit Do kk = InStr(i, a, b, vbTextCompare) 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工作簿时，该工作簿上的控件将不会正常工作。如果用户是通过用右键单击工作簿，然后选中快捷菜单上的“打开”
命令来编辑工作簿的话，工作簿上的控件就能正常工作了。 (二)当ActiveX控件处于激活状态时，将禁用某些MicrosoftExcelVisualBasic方法和属xìng。例如，当某一控件激活时，就不能使用Sort方法，故下述按钮单击事件处理过程中的代码将失败(因为用户单击按钮后，该按钮就处于激活状态)。 PrivateSubCommandButton1 Click Range(″a1:a10″) SortKey1:=Range(″a1″) EndSub 解决办法是通过选激活工作表上其它元素的方法来绕过这种问题。例如，可用下列代码对单元格区域排序： PrivateSubCommandButton1 Click Range(″a1″) Activate Range(″a1:a10″) SortKey1:=Range(″a1″) CommandButton1 Activate End Sub (三)在MicrosoftExcel中，用OLEObjects集合中的OLEObject对象代表ActiveX控件。如果要用编程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方法。例如向第一张工作表添加命令按钮。 Worksheets(1) OLEObjects Add″Forms CommandButton 1″，_ Left:=10,Top:=10,Height:=20,Width:=100 因为ActiveX控件也可用OLEObjects集合中的OLEObject对象代表，所以也可用该集合中的对象来设置控件的属xìng。例如要设置控件“CommandBotton1”的“左边位置”属xìng。 Worksheets(1) OLEObjects(″CommandButton1″) Left=10 那些不属于OLEObject对象属xìng的控件属xìng，可通过由Object属xìng返回的实际控件对象来设置。例如要设置控件“CommandButton1”的标题。 Worksheets(1) OLEObjects(″CommandButton1″) Object Caption=″rucom″ 因为所有的OLE对象也是Shapes集合的成员，所以也可用该集合设置若干控件的属xìng。例如要对齐第一张工作表上所有控件的左边框。 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() ′自定义多级选单函数
On Error Rescom 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:="条例" ′以下为创建如图所示的多级选单 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 Rescom Next ′忽略错误 MenuBars("MyMenu").Delete ′删除自定义选单 End Sub 读者可以在自己的工作簿选单“工具”中的“宏”下，创建以上三个函数并将以上函数语句拷贝到其中即可运行。 66、.用VBA(编程)保护Excel文档 VBA（Visual Basic for Application）是Excel应用程序中功能非常强大的编程语言，为了规范不同的用户对Excel应用程序的访问能力，需要对Excel文档及有关的数据进行有效的保护， 这里根据自己及同行们的体会，从以下二个方面介绍用VBA编程法实现对Excel文档的保护。 对工作簿的保护
1.利用VBA中Workbook对象的SaveAs方法实现对工作簿的保护， 下面就对SaveAs有 关的参量作一介绍： Filencom：该字符串表示要保存的文件名。 可包含完整路径。 如果不指定路径，Microsoft Excel 将文件保存到当前文件夹。 FileFormat： 可选，文件的保存格式。 Password ：为一个区分大小写的字符串（不超过15个字符） ，用于指定文件的保护密码。 WriteResPassword： 该字符串表示文件的写保护密码。 如果文件保存时带有密码，但打开文件时不输入密码，则该文件以只读模式打开。 ReadOnlyRecocomnded ：如果为True则在打开文件时显示一条信息，提示该文件以只读模式打开。 下例就是在Excel应用程序中添加一工作簿，将工作簿按常规文件格式存为“C:\pj\obj\经济评价.xls”文件，并给该文件指定保护密码“12”以及写保护密码“23”。 Sub 保护工作簿（） NewWorkbook = Workbooks.add NewWorkbook.SaveAs FileNcom: ="C: \pj\obj\经济评价.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.对工作簿进行隐藏保护，可使他人无法看到其对应的窗口。cāo作方法如下： 在VBA中使用Workbook对象下面的Windows对象的Visible属xìng对工作簿进行隐藏和取消隐藏，Visible属xìng的值可取“True”和“False”两种。 下面程序代码完成对工作簿“book.xls”的隐藏： Sub 隐藏工作簿（） Workbooks("book").Activate ActiveWindow.Visible = False End sub 或： Sub 隐藏工作簿（） Workbooks("book").Windows（1）.Visible=False End sub 对工作表的保护 1
松语文学免费小说阅读_www.16sy.com