VBA各种实例过程代码，积木的补充

留言板：今日是双十一，下述教程中的第二套"数据库"和第三套"字典"是优惠的最后一天，如有需要的朋友还请尽快，另外在此期间，我还准备了11份资料大礼，送给确实需要想学习VBA的同路人；视频由于还没有正式推出，仍可以享受最大的优惠。还有几个小时的最后时间，能尽早的要尽早啊。

大家知道，在我写的VBA解决方案的系列丛书中推出一种搭积木的思想，在三套教程中给出了大量的积木供大家使用。这三套教程中是按侧重点不同而写的，第一套：《VBA代码解决方案》侧重的是基本知识结构的讲解，第二套：《VBA数据库解决方案》侧重的是数据的专业处理，第三套：《VBA数组与字典解决方案》是侧重于利用字典，提高自己的代码水平。这些教程发表之后，有些朋友觉得还过瘾，总在问一些现成的问题解决处理方案，在这这个文章中我将收集一些VBA编程的常用过程代码方案，供大家写代码参考，并陆续发表。

所谓过程，包括方法、函数和事件，以及一些属性的执行，可以完成一个小的执行工程，大家可以拿来利用这些案例。

VBA过程代码1 : 使用Dim声明语句

Sub MyNZ()

Dim a as integer '声明a为整型变量

Dim a '声明a为变体变量

Dim a as string '声明a为字符串变量

Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量

……..

End sub

代码的解析及说明：上述代码声明变量可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。

VBA过程代码2: 使用强制声明变量声明语句

Option Explicit

Sub MyNZ()

……..

End sub

代码的解析及说明：上述代码将强制声明变量，未经声明的变量时不能使用的。该语句必在任何过程之前出现在模块中。

VBA过程代码3: 使用声明常数语句，用来代替文字值。

Sub MyNZ()

Const My = 456 ' 常数的默认状态是 Private。

Public Const MyString = "HELP" ' 声明 Public 常数

Private Const MyInt As Integer = 5 ' 声明 Private Integer 常数

Const MyStr = "Hello", MyDouble As Double = 3.4567 ' 在同一行里声明多个常数

……..

End sub

代码的解析及说明：上述代码过程是常量的声明过程，注意常数的作用范围。

VBA过程代码4：选择当前单元格所在区域

Sub MyNZ()

Selection.CurrentRegion.Select

End sub

代码的解析及说明：在EXCEL中，把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。上述代码就是完成了这个过程。要注意理解CurrentRegion的含义，不清楚的可以到VBA代码解决方案中查找。

VBA过程代码5：返回当前单元格中数据,删除前后空格后的值

Sub MyNZ()

msgbox Trim(ActiveCell.Value)

end sub

代码的解析及说明：上述代码过程用Trim函数，返回当前活动单元格内的数据，此数据是删除前后空格的值。Trim函数是提取input录入数据的常用函数，以避免录入的数据有空格确没有被发现