摘要：列出所有工作薄的 VBA由 Mr Colo写的 VBA 需要在VBA内选取 Microfost Visual Basic Applications Extensbility请在 Tools - 宏 - 安全性 - 选取 信任存取 Visual Basic 项目' Module ' List All VBA module Dim x As Long Dim aList() Sub GetVbP... 阅读全文

摘要：一、求字符串中某字符出现的次数： 例：求A1单元格中字符"a"出现的次数： =LEN(A1)-LEN(SUBSTITUTE(A1,"a","")) 二、如何在不同工作薄之间复制宏： 1、打开含有宏的工作薄，点“工具/宏(M)…”，选中你的宏，点“编辑”，这样就调出了VB编辑器界面。 2、点“文件/导出文件”... 阅读全文

摘要：适用范围：Microsoft Office Excel 2003摘要：寻找能够为 Excel 工作表增加额外功能的宏。只需稍加练习，您就可以扩展这些程序，使其适合您自己的应用程序。本页内容引言 引言导出带有逗号和引号分隔符的文本文件 导出带有逗号和引号分隔符的文本文件计算包含公式、文本或数字的单元格数量 计算包含公式、文本或数字的单元格数量使用 Saved 属性确定工作簿是否已发生更改 使... 阅读全文

摘要：1、Application.CommandBars("Worksheet Menu Bar").Enabled = false 2、cells(activecell.row,"b").value '活动单元格所在行B列单元格中的值3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位... 阅读全文

摘要：定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为1 (2) On Error Resume Next '忽略错误继续执行VBA代码,避免出... 阅读全文

摘要：选择当前活动的工作簿:ThisWorkbook.Activate如果选择其他工作簿，注意该工作簿一定是打开的，并且不要忘记加上后缀“.xls” ，例如：Windows("Totol.xls").Activate选择一个工作表：Sheets("Balance").Activate.选择单元格：Range("A1").Select选择连续的单元格：Range("A1:G8").... 阅读全文

摘要：用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！ 使用Dim语句Dim a as integer '声明a为整型变量Dim a '声明a为变体变量Dim a as string '声明a为字符串变量Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量......声 明变量可以是：Byte、Boolea... 阅读全文

摘要：作为世界最优秀的矢量图形设计软件CorelDRAW X3(最新版）居然没有查询图形周长、面积的功能，然而作为矢量图形设计软件，查询图形几何属性是必不可少的，还好有VBA，给了我们扩展 CorelDRAW X3功能的无限空间，以下就是查询矢量图形几何信息的VBA过程。如果你有Corel Designer 12, 可以在里面找到此功能，将其中的窗体，模块，类模块，导出，再到 CorelDRAW X3 ... 阅读全文

摘要：此程序用于自动闭合曲线，相邻两点自动连接，应用此程序时，需要注意以下两点：①将所要自动闭合的曲线“组合”（Ctrl+L)，不是群组（Ctrl+G)；②组合的曲线中没有杂点、单线，如从CAD或AI中导过来的图形，需仔细检查。③如上面两点没处理好，将导致程序处理缓慢，甚至假死。④如有高人能将此程序加上几句以处理以上问题，再好不过了... 阅读全文

摘要：'VBA生成一个CorelDraw工具栏 Private Sub CommandButton2_Click() On Error Resume Next CommandBars("我的工具").Delete CommandBars.Add("我的工具").Visible = True FrameWork.CommandBars("我的工具").Controls.AddCustomButton "2... 阅读全文

摘要：Sub SaveTextOnly() '备份文本 Dim p As Page Dim nPos As Long Dim strName As String Dim srAllShapes As New ShapeRange For Each p In ActiveDocument.Pages srAllShapes.AddRange p.Shapes.FindShapes() 'Add each ... 阅读全文

摘要：开发和运行 CorelDRAW 宏指令之前，必须安装 VBA 组件。 安装 CorelDRAW VBA VBA 在 CoerlDRAW 11和12 中是作为典型安装的一部分安装。CoerlDRAW 10 中，VBA 必须自定义安装。 自定义安装 VBA 1插入标号为光盘1的安装CD到您的计算机的CD驱动器。如果安装程序不自动启动，双击D:\Setup.exe文件启动，其中 D:是您的计算机的CD... 阅读全文

摘要：OnerrorresumenextstrRemotePath="\\UNC路径"strNewName="要显示的名称"SetobjNetwork=CreateObject("Wscript.Network")SetcolDrives=objNetwork.EnumNetworkDrivesFori=0tocolDrives.Count-1Step2SetobjShell=CreateObject(... 阅读全文

摘要：1、添加一个命令按钮 SubAddCommandBar()'命令DimcbarAsCommandBarButtonSetcbar=CommandBars("Standard").Controls("临时按钮")IfNotcbarIsNothingThenExitSubEndIfWithCommandBars("Standard").Protection=msoBarNoProtectionWith... 阅读全文

摘要：一、建立分类下拉列表填充项 　　我们常常要将企业的名称输入到表格中，为了保持名称的一致性，利用“数据有效性”功能建了一个分类下拉列表填充项。　　1.在Sheet2中，将企业名称按类别（如“工业企业”、“商业企业”、“个体企业”等）分别输入不同列中，建立一个企业名称数据库。 　　2.选中A列（“... 阅读全文

摘要：1.定义一些全局变量Dim Obj_Toolbar As CommandBar’代表工具栏的变量Dim Obj_Menu As CommandBarPopup’代表菜单的变量Dim Obj_Toolbar_button As CommandBarButton’代表菜单项和按钮的变量2.编制生成工具栏和菜单的子程序Sub addbutton()’创建工... 阅读全文

摘要：又是一篇别人总结的文章，摘取了其中一部分，其中CommandBar对象比较有用。一)工具栏及其控件对象　　在Office中通过VBA开发工具栏和菜单，需使用Office提供的CommandBar、CommandBarButton、CommandBarComboBox等对象，这些对象即代表工具栏、工具栏按钮和工具栏下拉框，通过这些对象可编制出各类复杂的工具栏或菜单。1.CommandBars集合　　... 阅读全文

摘要：怎么自定义一个按钮？首先要确保要更改的工具栏是可见的，再单击“工具栏选项”箭头指向“添加或删除按钮”或用右击单击工具栏，再单击“自定义”，单击“ 命令”选项卡，在类别中选择“宏”，将“自定义按钮”拖拉到你需要的工具栏的位置即可。而有多项的话，我们还可以自定... 阅读全文

摘要：Office由于提供了VBA,为大家开发一些定制功能提供了一种途径。但是如何实现工具栏中的命令与宏进行绑定，对于初学则来说是一个不小的门槛。 今天,给大家介绍一下在Excel里写完宏后,如何通过宏自动生成工具栏。如图：在VBA中将要用到CommandBar，CommandBarButton两个对象。Option Explicit'定义全局变量Private zyi_Bar As CommandBa... 阅读全文