随笔分类 - VBA
摘要:1.'以第一张表为模板自动生成本月所有日报,要求报表日期为2016-5-1,表名为5月1日 字样 Sub rb() Dim i As Integer For i = 1 To 31 Sheet1.Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count
阅读全文
摘要:1.add、count、name 新增工作表,将新增工作表按照月份命名 如1月、、、、、12月 方法一: Sub xzyfb1() Dim i As Integer For i = 1 To 12 Sheets.Add after:=Sheets(Sheets.Count) Sheets(Sheet
阅读全文
摘要:1.sheet1与sheets(1)、sheets(“1”)区别: sheet1是一个专有名词,不是任何对象的属性,只能单独使用,特指代码所在工作簿的那个sheet1(和顺序无关,是固定的一个表,sheets(1)则和顺序有关)。 sheet1表示的是一个工作表对象,Sheets(1)表示工作表集合
阅读全文
摘要:for 循环可以解决 VBA1 中 录制宏 中的使用相对引用 问题 1.根据条件判断 填入相应内容,并删除空值所在行Sub bg2() Dim i As Integer For i = 2 To 200 '退出条件 If Range("a" & i) = "" Then Exit For '判断性别
阅读全文
摘要:1.打开VBA: EXCEL 2010及以上版本 开始-选项-自定义功能区-开发工具(勾选)-确定,则将开发工具显示到状态栏 07版本显示开发工具 2.打开VBA界面及操作 点击 Visual Basic- 视图-工程资源管理器 及属性窗口 拖动进行调整布局,点击工程资源管理器最后 模块,代码编辑页
阅读全文