Excel VBA 笔记

EXCEL VBA Integer 导致 Overflow Error ： https://www.cnblogs.com/nuswgg95528736/articles/7651764.html

在运行VB程序时，碰见Overflow 是因为VBA Integer 的最大值是32767，而实际自己的值过大    改为Dim lastr 或 Dim lastr as Long 就可以成功

 

 

1. 在Excel中打开VB的方式

（1）打开Excel按Alt+F11快捷键，就可以直接调出VB的代码

（2）打开开发工具面板（默认是没有开发工具选项卡的）

【文件】->【选项】->【自定义功能区】勾上开发者工具

打开方式【开发者工具】->【Visual Basic】

（3）【右键Sheet1 】->【查看代码】

2.  VB 详细教程参考

https://www.w3cschool.cn/excelvba/excelvba-w

宏

介绍一下Excel中宏（Macro）的使用，这个比较方便当你想把你的操作用代码去实现的时候，就录制宏。例如改变单元格颜色

1、打开新工作簿，确认其他工作簿已经关闭。
2、选择A1单元格。调出"常用"工具栏。
3、选择"工具"-"宏"-"录制新宏"。
4、输入"改变颜色"作为宏名替换默认宏名，单击确定,注意，此时状态栏中显示"录制"，特别是"停止录制"工具栏也显示出来。替换默认宏名主要是便于分别这些宏。

★ 宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。

5、选择"格式"的"单元格"，选择"图案"选项中的红色,单击"确定"。

6、单击"停止录制"工具栏按钮，结束宏录制过程。

※ 如果"停止录制"工具栏开始并未出现，请选择"工具"-"宏"-"停止录制"。
录制完一个宏后就可以执行它了。

 

执行宏

1、选择任何一个单元格，比如A3。

2、选择"工具"-"宏"-"宏"，显示"宏"对话框。

3、选择"改变颜色"，选择"执行"，则 A3 单元格的颜色变为红色。试着选择其它单元格和几个单元格组成的区域，然后再执行宏，以便加深印象。

 

查看录制的代码

1、选择"工具"-"宏"-"宏"，显示"宏"对话框。

2、单击列表中的"改变颜色",选择"编辑"按钮。
此时，会打开 VBA 的编辑器窗口（VBE）。关于该编辑器，以后再详细说明，先将注意力集中到显示的代码上。代码如下：（日期和姓名会有不同）
Sub 改变颜色()
'
' 改变颜色 Macro
' xw 记录的宏 2000-6-10
'
'
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub

Sub 改变颜色():这是宏的名称。
中间的以单引号开头的五行称为"注释"，它在录制宏时自动产生。
以With 开头到End  With 结束的结构是With结构语句，这段语句是宏的主要部分。注意单词"selection"，它代表"突出显示的区域"（即：选定区域）。With Selection.Interior ：它读作"选择区域的的内部".这整段语句设置该区域内部的一些"属性"。

其中：
.ColorIndex = 3: 将该内部设为红色。注意：有一小圆点，它的作用在于简化语句，小圆点代替出现在With后的词,它是With结构的一部分。另外：红色被数字化为3.(红色警戒是否可称作：3号警戒，嗯？)有兴趣的话，你将3改为其他数字试试看。

.Pattern = xlSolid：设置该区域的内部图案。由于是录制宏，所以，虽然你并未设置这一项，
宏仍然将其记录下来(因为在"图案"选项中有此一项，只是你未曾设置而已）。xlSolid 表示纯
色。

.PatternColorIndex = xlAutomatic：表示内部图案底纹颜色为自动配色。

End With:结束With 语句。

End Sub:整个宏的结束语