Excel VBA出错时给出的错误信息极少,需要充分利用各种工具来进行调试. 1.编译错误 常见的编译错误有: 错误的源代码格式,比如if后面缺少then:在编辑器中该行会变成红色. 错误的语法结构,比如if和end if没有对应上:代码运行前会给出编译错误提示. 类型不匹配:函数输入的参数与定义时的参数类型不同时会出现该类错误. 变量未定义:指使用了没有申明的变量类型(当Option Explicit时) 建议: 格式规范化,严格缩进.VBA插件Smart Indent是一个很好的辅助工具.这

VBA设置/取消工作簿共享是很常用的一个功能,那么如何用代码实现呢? 设置共享 Then MsgBox "文件没有保存" Exit Sub End If Application.DisplayAlerts = False ActiveWorkbook.ProtectSharing Filename:=ActiveWorkbook.Name Application.DisplayAlerts = True 取消共享 On Error Resume Next Application.Dis

在开发VBA程序中,我们可能会需要用代码处理VBA工程,包括启用VBA工程访问,启用所有宏,动态插入代码,动态删除代码,动态添加引用和自动创建模块等等,本次的分享内容便以这些为主. 启用VBA工程访问 Dim oWshell As Object Set oWshell = CreateObject("WScript.Shell") oWshell.RegWrite , "REG_DWORD"'将第二个参数改为0就是关闭 启用所有宏 Dim WScr As Objec

今天下班前分享一下之前在网上搜到的两段好用的VBA代码,貌似都来自国外,觉得挺好,模仿不来. 第一段的功能是修改VBA控件中的文本框控件,使其右键可以选择粘贴.复制.剪切等: Option Explicit ' Required API declarations Private Declare Function CreatePopupMenu Lib "user32" () As Long Private Declare Function InsertMenuItem Lib &quo

即在工作簿中添加一个工作表,然后移出并存为新的工作簿,在移出前将本工作簿的一个模块的代码拷贝至新的工作簿.下面是关键代码: '====================================================================== '各班名单保存为单个xls文件 ActiveSheet.Move ChDir myPath '忽略对话框,覆盖保存 Application.DisplayAlerts = False '班级名称增加“考生号处理”vba模块 Dim

031 删除工作表中的空行 如果需要删除工作表中所有的空行,可以使用下面的代码. Sub DelBlankRow() DimrRow As Long DimLRow As Long Dimi As Long rRow= Sheet1.UsedRange.Row LRow= rRow + Sheet1.UsedRange.Rows.Count - 1 Fori = LRow To rRow Step -1 If Application.WorksheetFunction.CountA(Rows(i

VBA开发中经常需要提示消息框,如果不关闭程序就会暂时中断,这里分享下VBA如何实现消息框的自动关闭,总共有三种方法: 第一种方法 Public Declare Function MsgBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long

Sub 合并一个文件夹下全部xls文件中sheet到一个xls的sheet()workDir = ThisWorkbook.Path '当前xls文件所在的目录绝对路径'MsgBox workDir, 0, "workDir"bookname = ThisWorkbook.Name '当前xls文件名'MsgBox bookname, 0, "bookname"file = Dir(workDir & "\*.xls") 'workDir

一. 在ThisWorkbook中 Private Sub Workbook_Open() '%对应alt键 宏不能加() Application.OnKey "%q", "Test" End Sub 利用open事件触发 二. 在Sub中 Sub auto_open() Application.OnKey ", "test.模块1.Test " End Sub 设置快捷键为大键盘部分数字1, 宏中test为VBAProject修改的名

直接介绍重点: 常用的操作是导航栏的逐句与断点: 添加断点:调试->切换断点 单步运行:调试->逐句 查看变量的窗口:视图->本地窗口

原始出处:http://www.cnblogs.com/Charltsing/p/EncryptVBACode.html VBA代码加密是个老生常谈的问题,自从本人的VBA Dumper发布之后,在Office层面上做任何加密都已经失去了意义.所以,很多人开始转战VB封装或者升级到VSTO,Delphi等其他语言.但是,对于广大的VBAer来说,重新学一门语言带来的麻烦要远远超过开发VBA程序所带来的收益.所以,是否能有一种办法在不改变VBA代码的情况下,将VBA代码脱离office进行加密呢?

先说下背景环境 1. 公司需要问卷调查,有两份问卷, 1)是spss问卷,2)是excel问卷.spss问卷数据不全,但有各种标签, excel呢, 生成的数据直接把选项变成了值 2. 现在需要把excel的选项值变成1, 2这种数字{1:“满意”} 3. 妹子已经把vba写好了.(不忍直视!) 由于需要执行很多vba命令,我就用py的字符串拼接,生成了,900多份,怀疑vba的代码有问题,凭直觉,但我不会vba,又懒得查,只能让cpu去做重复工作了 需要模块win32com 安装方法 ```

傻瓜可以写出机器读懂得代码,但写出让人能读懂的代码的是优秀程序员 Sub 填充() Application.ScreenUpdating = False 'ScreenUpdating 是控制你的excel是否按步骤刷新显示宏执行过程,所有单元格同时执行 p = ThisWorkbook.Path & "/" '本文件所在的目录 F = p & "附件1贫困户信息采集表.doc" '本文件的路径 Dim myWS As Worksheet '定义一个

Excel对象模型简介 在介绍Excel对象模型之前,让我们先来看一个简单的例子.大多数工厂都是按这样的结构进行设置的:最上层为工厂总部,第二层次分为各个车间,在车间下面又分各班组.就这样组织在一起,形成了一个工厂体系.Excel对象模型与此相似,看起来复杂但实质上很简单清晰. 提示  任何看起来复杂的东西其实都是由一些简单的部分组成的,或者其实它本身就比较简单. Excel的对象模型是通过层次结构很有逻辑地组织在一起的,一个对象可以是其它对象的容器,可以包含其它的对象,而这些对象又包含其它的对

今天是2014-11-01 是周末,忙了一周了,最终能够闲下来了.想起近期工作用到的VBA的一个场景,结合VBA的数组,所以就想试试看.结果还好.出来了.这年头,又玩起了VB了,经过多时才接受了VB的种语法风格,闲话不说,进入正题 watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvdHF0aWhpaGM=/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt

无聊啊--于是,我想做一个随机地图. 但是我很懒,不想做. 但是身体很诚实. 这次是直接在Excel中制作的地图,但是,VB的执行效率很慢,我代码的效率也很慢,导致,一旦地图长宽稍大,就会出现好几分钟才能出现结果的效果. 而且,不能忍的是,随机崩溃!我至今没有找到原因在哪. 以下是VBA的代码 Sheet1全局 Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Bool

ylbtech-杂项-软件: VBA(Visual Basic for Applications) VBA (Visual Basic宏语言) Visual Basic for Applications(VBA)是Visual Basic的一种宏语言,是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言.主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件.也可说是一种应用程式视觉化的Basic 脚本.该语言于1993年由微软公司开发的的应用

先看一下excel文件, 下图左边部分为文件签审单为要打印的内容, 要求一页需要打印两个文件签审单, NO需要根据打印页面连续编号, 右边部分为打印设置,以及vba部分代码展示, 打印设置可以设置打印页数, 编号前准,和编号位数, 以及起始编号 \ 根据上面的打印设置, 打印预览效果如下: 第一页: 第二页: 第三页 注意上面的编号为连续编号, 编号前准为"N0.", 编号后半部分未纯数字, 长度为4位, 编号前准和编号数字部分长度可设置,起始编号也可以设置,  比如前缀设置为&quo

在用Excel处理实际业务中,我们会碰到如下场景: 1.从一堆人名中找到包含某些关键字的名字: 2.从银行流水文件中根据[备注]字段找到包含某些关键字的,统一识别为[手续费业务]等. 这本质说的都是一类问题:如何从数据集中,根据业务需求配置的多个关键字,匹配得到对应的行项目.这个问题有好的办法吗? 如果我们使用Excel自带的[自定义自动筛选]功能,它只能支持添加最多两组关键字,无法添加更多,如下图所示: 如果我们有多个关键词供我们作为筛选条件,Excel自带的[自定义自动筛选]功能自然不够用.

Excel开发过程中有时候会遇到各种奇怪的问题,下面就列出一些本人在开发中遇到的一些比较典型的问题,并给出了解决方法,希望对大家有所帮助. 一 插件调试不了以及错误导致崩溃的问题 在开发机器上,有时可能会装有多个版本的.NET运行时,有时候也可能装有多个版本的Visual Studio,本人的开发机器上就安装了3个版本的Visual Studio,在最新的Visual Studio 2013出来之后,就迫不及待的把工程文件迁移到2013上来了,但是在设置了启动程序之后,调试的时候,断点根本不能命

http://www.delphifans.com/infoview/Article_730.html日期:2006年2月20日 作者:潇潇2003 人气:5602 查看:[大字体 中字体 小字体] 1．引言 在利用Delphi开发应用程序的时候,通常我们要设计出很多各种格式的文档.报表,经常要进行文件的创建.编辑及修改,虽然Delphi本身提供了很多设计报表的控件或方法,但是存在明显的不足,比如中文输入,数据格式的控制等操作起来比较麻烦.利用大家都很熟悉的Office工具结合开发,能够很好的解