VBA宏
文章平均质量分 54
bigheadsheep
这个作者很懒,什么都没留下…
展开
-
VBA语言基础
第一节 标识符 一.定义 标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号,利用它可以完成对变量、常量、过程、函数、类等的引用。 二.命名规则 1) 字母打头,由字母、数字和下划线组成,如 A987b_23Abc 2) 字符长度小于40,(Excel2002以上中文版等,可以用汉字且长度可达254个字符) 3) 不能与VB保留字重名,如public, priv转载 2013-01-14 17:29:23 · 1094 阅读 · 0 评论 -
VBA的LENB()和Excel的LENB()区别
Q:VBA的LENB和工作表中的LENB函数有啥区别?A:工作表中和VBA中都有LENB函数,两者有一定区别。工作表中LENB函数表示的是字符所占的字节数。如果为双字节字符,比如中文占用两个字节。则LENB返回2,英文占用1个字节。VBA中的LENB函数则不同,由于VBA中有各种变量类型,当用LENB计算时,实际返回的是该类型变量所占用的字节数。比如下面例子:Sub MyLenB()转载 2014-12-29 10:34:02 · 7309 阅读 · 0 评论 -
VBA 判断字符串含中文、英文、数字(亲自实践)
Dim exp As String Dim temp, tmpExp As String Dim length As Integer length = 0 tmpExp = "" exp = Trim(xlsheet_TandE.cells(i, 8)) For j = 1 To Len(e原创 2014-12-16 14:45:20 · 25732 阅读 · 0 评论 -
VBA 设定Indirect时报错 400 (亲自实践)
今天在VBA中设定单元格的INDIRECT公式,运行时候总是报错,如下图:原创 2014-05-19 11:26:35 · 1664 阅读 · 0 评论 -
VBA Excel 高级筛选AdvancedFilter
最近在网上找到了一些比较好的关于AdvancedFilter应用的例子,总结和分享如下: expression.AdvancedFilter(Action,CriteriaRange, CopyToRange, Unique)expression 必需。该表达式返回“应用于”列表中的对象之一。ActionXlFilterAction 类型,必需。转载 2014-03-27 17:16:32 · 8993 阅读 · 0 评论 -
Excel 2010 受保护的工作表中使用“组合”功能(亲自实践)
组合功能在Excel中经常使用,可以很方便地将一组数据展开或者折叠当我们需要将其所在工作表进行保护时,发现之前设定的组合无法使用了 此时,就需要我们在VBA中设定相关语句:PS:该方法转自Excelhome论坛 (http://club.excelhome.net/forum.php?mod=viewthread&tid=259467) Private Sub Workbo转载 2014-02-07 15:00:54 · 14378 阅读 · 0 评论 -
Excel 如何消除“隐私问题警告”的提示(亲自实践)
有时候保存Excel文件时,会弹出以下内容确认框:隐私问题警告:此文件包含宏、ACTIVEX控件、XML扩展包信息或WEB组件,它们中可能包含个人信息,这些信息无法通过设置“工具”菜单下‘选项’对话框“安全性”选项卡中的‘保存时从文件属性中删除个人信息’来删除 解决办法:1.Excel2007、2010Excel开始->Excel选项->信任中心->信任中心设置...->个人信转载 2013-11-11 15:21:11 · 5091 阅读 · 1 评论 -
VBA宏实现将中文转为拼音(转帖+亲自实践)
以下内容来自百度文库将写在A1单元格的中文,转化为拼音写在B1单元格缺点是:针对中文中的多音字,无法识别。 Sub 按钮1_Click() Cells(1, 2).Value = PinYin(Cells(1, 1).Value) End SubPublic Function PinYin(Hz As String)Dim PinMa As StringD转载 2012-10-30 07:49:27 · 7141 阅读 · 0 评论 -
Access 2007 宝典--学习笔记7(VBA)
以下内容为本人在学习《Access 2007 宝典》(人民邮电出版社)过程中,总结和实践。 1 变量"显式"声明 "Option Explicit"要求变量都是"显式"声明,指定特定的数据类型 优点: 防止程序速度变慢和出现bugVBA窗口"工具"-->"选项"中,勾选"要求变量声明",自动在Access所有VBA模块中插入"Option Explicit"原创 2013-07-26 14:54:18 · 1554 阅读 · 0 评论 -
VBA宏:覆盖文件时关闭提示信息
用VBA创建文件时,遇到重名文件,会自动弹出对话框让用户选择是否覆盖为了保持程序使用的连贯性,希望能够将提示框取消,直接覆盖可以利用以下方法解决: 在文件处理开始时,关闭报警:Application.DisplayAlerts = False在文件保存后,再打开报警:Application.DisplayAlerts = True原创 2013-07-25 17:06:09 · 9133 阅读 · 0 评论 -
VBA连接SQL Server
在VBA中直接与SQL服务器建立连接Set Conn = CreateObject("adodb.connection")'定义连接的SERVER名,数据库名,用户名和密码Conn.Open "Driver=SQL Server;SERVER=DB001;Database=DBtest;uid=userID;pwd=password"'判断连接状态If Conn.State =原创 2013-07-25 09:59:37 · 2236 阅读 · 0 评论 -
Excel单元格内容变化时,自动添加系统时间批注(亲自实践)
以下宏程序来自于百度知道网友的回答实现目的:在C4到Z100范围内,单元格内容发生变化时,将系统日期追加到该单元格的批注中Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("c4:z100")) Is Nothing Then Exit Sub If Target.Co转载 2013-02-28 10:05:35 · 7152 阅读 · 1 评论 -
VBA宏 将内容生成到一个新txt文档中(亲自实践)
开发VBA,有时候需要将信息输出到外部文件,比如说在C盘下生成一个以系统时分秒为文件名的txt,其中记录错误信息可以用以下代码:'将错误信息写入Log文件Private Sub writeErrorLog(ByVal checkErrorCollect As Collection) Dim fso As Object Dim MyTxt As Object原创 2013-01-16 13:40:16 · 3034 阅读 · 0 评论 -
VBA宏 Access自身查询/删除/插入数据库(亲自实践)
Access自身查询数据库,可以利用 CurrentDb 的方法,其中1.查询 (select) 利用的是CurrentDb.OpenRecordset(stSql) Dim rs As Object Dim stSql As String '拼写取得TABLE内容的SQL文 stSql = "SELECT Place FROM [TABLE] "原创 2013-01-16 13:56:55 · 12443 阅读 · 0 评论 -
VBA宏: adodb.RecordSet的属性和方法
为了更精确地跟踪数据,要用RecordSet组件创建包含数据的游标,游标就是储存在内存中的数据: rs = Server.CreateObject("ADODB.RecordSet") rs.Open(sqlStr,conn,1,A) 注:A=1表示读取数据;A=3表示新增、修改或删除数据。 在RecordSet组件中,常用的属性和方法有: rs.Fields.转载 2013-01-11 10:53:46 · 43660 阅读 · 0 评论 -
VBA遍历文件夹的三种方法(转载)
VBA遍历文件夹常用有三种方法,这三种方法中,filesearch不适合2007和2010版本,而且速度比较慢,递归法速度也慢。只有用DIR加循环的方法,速度飞快。下面是三种方法的代码: 1、filesearch法Sub test3()Dim wb As WorkbookDim i As LongDim tt = Timer With Applic转载 2015-06-26 18:34:46 · 14548 阅读 · 2 评论