最大行: Range("B" & Cells.Rows.Count).End(xlUp).Row 最大列 colu = Range("XFD2").End(xlToLeft).ColumnstrColu = Num2Name(colu) [VBA]列号与字母(列名)的相互转换 (自定义函数)

1. '列号转字母(列名) Function Num2Name(ByVal ColumnNum As Long) As String On Error Resume Next Num2Name = "" '超出范围返回空,如调用Num2Name(100000) Num2Name = Replace(Cells(1, ColumnNum).Address(0, 0), "1", "") 'Cell.Address用来返回单元格的地址,参数(0,0)

1.自定义菜单 首选需要开发“开发工具”菜单 文件--选项--自定义功能区--开发工具 勾选 .定义用户窗体或者宏 ) 定义用户窗体 Alt+F11进入Microsoft Visual Basic for Applications 插入--用户窗体--自定义布局--实现功能 视图--宏--录制宏--编辑 myUserForm.Show ) 定义宏 视图--宏--录制宏--编辑 .自定义菜单 文件--选项--自定义功能区--开发工具--新建选项卡(新建组) 从下列位置选择命令--宏--选择1中定义

Excel多表合并之vba实现 需求 保留列名,复制每一个excel里的数据,合并到一个excel 操作步骤 将要合并的文件放在同一文件夹下,复制过来就好(ps:最好不要直接操作原数据文件,避免操作失败,数据丢失) 在这个目录下创建一个“合并.xlsx” 双击打开“合并.xlsx” 同时按 ALT + F11 出现下图,按图中文字操作即可完成合并 完成 附录代码 Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Work

作者:iamlaosong 用VBA对Excel文件进行处理的时候,keyword段的列号编程时往往是不知道的.须要通过參数设定才干知道,因此.我们编程的时候,就不能用这种语句取有效行数: lineno = [B65536].End(xlUp).Row          '从下至上找有效行数 上述语句中的列名"B"假设是变量.能够用字符串连接的方式实现,即: pos_ems = "C"     lineno = Range(pos_ems & "6

你在EXCEL中增加一个列名为ID,后在VBA中写以下代码,并引用Microsoft ActiveX Data Objects 2.8后执行Public Sub 写入SQL2008()Dim cnn As New ADODB.ConnectionDim SQL As String, mydata As String, mytable As StringDim i%mydata = "KKKK" '指定要修改的数据库mytable = "aaaa" '指定数据表'建立

每每提到Excel办公自动化,我们脑海里能想到的就是公式.数据透视表.宏.VBA,这也是我们大部分人数据分析的进阶之路.当我们对于常用VBA技巧已经相当熟练后,往往会有一种"我的VBA知识够用啦"的错觉,其实那只是因为我们收到的实际需求还不够复杂和多样化. 一旦哪天碰到略显复杂的业务需求时,我们才知道VBA变量.循环.条件判断.数组.字典.窗体,这些还只是VBA的基础知识罢了,会了这些,远达不到[蒂花之秀]的水准.我们今天的主角,SQL(结构化查询语言),通过嵌入VBA代码中,就可以解

小爬之前的文章 [Excel VBA中写SQL,这些问题你一定为此头痛过]中详细讲诉了一些常见的VBA 中使用SQL遇到的问题,这里再补充两个常见的问题场景及对应的解决方案,希望你们看了后能够思路开阔些,少走些弯路. 一.数据源Excel文件的工作表有些列的列名相同 我们知道,在商业数据库中创建表时,同一个表名下是不允许创建相同的字段的,且字段名要遵从一定规范.但在Excel文件中则无此限制,同一个工作表下,支持多列的列名相同.那么当我们用SQL来操作这类头疼的Excel文件时,该如何区分不同字

今天客户那边遇到了一个比较奇葩的问题跑来问我,这个问题比较冷门,所以特别记录下. 问题描述 数据库的字段存在斜杠或者空格的时候,怎么用sql进行insert或者select操作. 问题解答 对于这种特殊字符,我们一般想到的是用转义符进行处理,所以试了下"/".引号.单引号等常见的转义符,发现依然语法错误,又查了下mysql的官方说明: 特殊字符位于列名中时必须进行转义,如果列名中包含\t,(,),/,\,=,<,>,+,-,*,^,",',[,],~,#,|,&a

VBA 格式化字符串 VBA 的 Format 函数与工作表函数 TEXT 用法基本相同,但功能更加强大,许多格式只能用于VBA 的 Format 函数,而不能用于工作表函数 TEXT ,以下是本人归纳的几点用法,希望对学习VBA有所裨益.Format(值,格式(可选参数))一.数字格式:1.General Number:普通数字,可以用来去掉千位分隔号和无效 0 .如:Format("1,234,567.80", "General Number")="1

1. Range / Cells / Columns / Rows 2. 绝对引用 $F$13 / 相对引用 F13 公式所在单元格的被复制到其他位置时,绝对引用不变 3. VLookup / NLookup / LLookup 4. =if(ISNA(C1:C17); "There are #N/A's in one of the cells"; "") other similars: ISERROR(), ISERR(), ISBLANK(), ISEVEN()

打算花两三天学习VBA的基础,学习资料为<别怕,VBA其实很简单>,为了快速学习,先了解大致框架,后续再深入学习各种属性.方法和技巧. 1.VBA编程环境基本操作,手工操作,熟悉即可 2.了解过程:Sub(对应宏)和Function(对应函数) Sub过程对应手工录制的宏代码,是一堆操作的集合 Function过程是Excel的函数代码,我们可以自己编写,然后再窗口界面调用 要注意,Excel界面的函数和VBA的内置函数是不同的!Function编写的就相当于Excel的界面函数 3.VBA的

VBA实际上就是操作Excel,把Excel进行拆解,划分多层对象,由顶至下为(也可以说是层层包裹): Application:代表Excel程序本性,之后我们操作对象都在它之下,因为是唯一且至高点,所以代码中可以忽略不写它,因为必定是它的. Workbook:代表一个工作薄,加个s后的Workbooks代表当前打开的所有的工作薄. Worksheet:代表一个工作表,加工s后的Worksheets代表当前工作薄的所用工作表. Range:可以理解为一个工作表中的工作范围.同等级的还有Rows和

'================================ ' VBA采用Application.OnTime实现计时器 ' ' http://www.cnhup.com '================================ Public RunWhen As Double ' two minutes Public Const cRunWhat = "TheSub" ' the name of the procedure to run Sub StartTimer

SELECT a.*, 1 DELETABLE, '' YEAR_ON, '' MONTH_ON, TOOL_STATUS status0 FROM TOOL a 说明:其中tool字段有tool_status字段. 问题:1 deleteable, '' year_on 这些新取的字段是什么意思? 答:tool表中没有deleteable,year_on字段,页面上又需要这些字段,所以在可以在查询表中使用 1 deleteable, '' year_on 查询出一个新的列,其中列的值为1 或者

#新增数据 INSERT INTO goods VALUES(10,'豆豆','男',85.2,'2016-12-14',5000.36,'2016-12-14 12:05:06','高') INSERT INTO goods VALUES(11,'小小','女',86.2,'2016-12-13',5000.36,'2016-12-13 11:05:06','高'); INSERT INTO goods VALUES(12,'笑笑','女',84.2,'2015-12-14',5000.36,

怎么建表? 主键 名称 重量 价格 生产日期 保质期 产地 种类                       分析:我们只要把第一行的表头建好后,这张表也就完成了.  术语:建表的过程就是声明字段过程.声明数据类型. 考虑:名称数据的宽度?价格,重量....宽度.     浮点类型:  decimal(5,2) 5是精度,2是标度.精度表示保存值的主要位数,标度表示小数点后面可以保存的 位数.            建表取名原则:  1. 表名.列名不能有空格和中文.  2. 不能以数字开头 3

查询表名为tb_menu的所有列名 select name from syscolumns where id=object_id('tb_menu')     查询表名为tb_menu的所有列名个数 select count(name) from syscolumns where id=object_id('tb_menu')     或者 select count(syscolumns.name) from   syscolumns ,sysobjects    where  syscolum

今天遇到一个任务,要把excel中的相同行合并:没有找到直接的办法(vlookup大概能做),试了试VBA挺好用 数据结构 第一.二列是描述字段,第二列元素唯一:第三到第八列是标志位 任务 合并描述字段相同的行,描述字段不变,标志位合并 方法: 1.录制空宏(命名为test1),查看宏进入VBA编辑器模式 2.代码 Sub test1() Dim i As Integer Dim j As Integer i = 2 '跳过标题行 ).Value <> "" ).Value

一直以来,ArcGIS10.1 的VBA安装后,菜单栏里也没相关菜单,听说是许可的问题,直到遇到这个问题才知道真正的原因. 由于项目需要使用了ArcGIS10.0, 不知道操作了什么,打开ArcMap就报这个错: 于是尝试去百度上搜索VBA安装包,居然没找到,然后又去桌面安装包里去找,找到了SDK VBA,安上就对了. 安装好这个VBA菜单也可以看得到了. 参考: http://blog.csdn.net/sydbc/article/details/17173833