声明：笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师：曾贤志

定义：运算符是代表VBA某种运算功能的符号

赋值运算符：=
	
数学运算符：&(字符连接符)、+(加)、-(减)、Mod(取余)、\(整除)、*(乘)、/(除)、-(负号)、^(指数)
	
逻辑运算符：Not(非)、And(与)、Or(或)、Xor(异域)、Eqv(相等)、Imp(隐含)
	
关系运算符：=(相同)、<>(不等于)、>(大于)、<(小于)、>=(大于等于)、<=(小于等于)、Like(比较字符串是否相同)


like用来比较两个字符串
	
？任何单一字符
	
*  零个或多个字符
	
# 任何一个数字（0-9）
	
[charlist] charlist.中的任何单一字符
	
[!charlist] 不在charlist中的任何单一字符
实例演示：

Sub a1()
a = "admin" Like "Admin"    '区分大小写
End Sub

Sub a2()
b = "abc" Like "a?c"    '通配符运用
b2 = "abc" Like "???"
End Sub

Sub a3()
c = "Excel函数" Like "*函*"
End Sub

Sub a4()
d = 88 Like "##"
End Sub

Sub a5()
e = "a" Like "[a-z]"
f = 8 Like "[!1-7]"
g = 8 Like "[1-4,6-9]"
End Sub

Like运算符运用



Sub aa()
For j = 2 To 6
    For i = 2 To 14
        If Cells(i, "a") Like Cells(j, "e") Then n = n + 1
    Next
        Range("f" & j) = n
        n = 0
Next
End Sub


综合运用（盘点清单核对）



Sub 盘点清单()
Dim rng As Range, rngs As Range, k%, a, b
For Each rng In [a2:a6]
                a = rng.Value
        For Each rngs In [b2:b4]
                b = rngs.Value
                If rng = rngs Then
                    GoTo 100
                End If
        Next rngs
        k = k + 1
        Cells(k + 1, "c") = rng
100:
Next rng
End Sub

 

在最近的工作中遇到很复杂的Excel的处理，仅仅用公式根本无法完成，百度搞了一天多，现在记录一下用到的语法；以防以后忘记，不喜勿喷。
1. Excel和VBA
1.1 vba如何编写
1、首先打开Excel，右键点击sheet，选择查看代码，可以打开Excel编写代码的页面，语言采用vba语言



2、如下图，为编辑器页面的介绍

1.2 代码同文件的保存
当我们完成代码逻辑之后，保存并推出，会发现代码并没有保存，这是因为Excel默认额.xlsx格式不允许保存代码；如果想吧代码一起板寸，我们可以将文件另存为启用宏的文件，启用宏的文件后缀有(.xlsm、.xltm、.xlam)
1.3 修改该文档格式后引发的保存提示
当我们修改启用宏以后，无论保存代码还是保存文件内容，都会出现很多提示；我们要怎么关闭他们呢？？？

点击文件 --> 选项


进入设置选择信任中心 -> 信任中心设置


取消保存时从文件属性中删除个人星系，然后保存。



2. VBA语法
2.1 变量声明及赋值
声明格式为：
	Dim 变量名称 As 变量类型

例如：
	Dim i As Integer	// 声明一个数字变量
	Dim str As String	// 声明一个字符串变量
	i = 3				// 数字赋值
	str = "hello world!"// 字符串赋值

VBA数据类型：




数据类型
定义符号
简写
备注




字符串
String
$



整型数字
Integer
%
-32768~32767


长整型数字
Long
&
-2147483648~2147483647


单精度浮点型数字
Single
!
精度为6


双精度浮点型数字
Double
#
精度为14


日期型
Date
yyyy/m/d



布尔型
Boolean




变体型
Variant

万用的类型，尽量避免使用


对象型
Object

没有深究


枚举型





枚举类型数据定义格式：
	Public|Private Enum 变量名
		成员1[=常数表达式1]
		成员1[=常数表达式1]
		··· ···
	End Enum

例如：
	Public Enum WorkDays
		星期日
		星期一
		星期二
		星期三
		星期四
		星期五
		星期六
	End Enum

2.2 if-else结构
	If bool Then
		// 代码...
	ElseIf ······ Then
		// 代码...
	Else
		// 代码...
	End If

2.3 循环结构
	// while循环
	Do While ······
		// 代码...
	Loop

	// for循环
	For i = 0 To 100 Step 1
		// 代码...
		Exit For		// 跳出循环
	Next i

2.4 注释
VBA里的单行注释以单引号’标识
3. 常用功能
3.1 获取表格数据
Sheets('sheet名')		// 获取表格的sheet对象
Sheets(i)				// 获取第i个sheet表格对象
Sheet1.Rows(i)			// 获取表格中第i行数据
Sheet1.Columns(j)		// 获取表格中第j列数据
Sheet1.Range("a1:b60")	// 获取表格中一块数据

Sheet1.UsedRange.Rows.Count		// 获取sheet表中已用行数
Sheet1.UsedRange.Columns.Count	// 获取sheet表中已用列数

ActiveWorkbook.Worksheets.count	// 获取当前Excel的sheet表格的个数
ActiveSheet.Index				// 获取当前sheet表的位置

更多方法参考

作者：iamlaosong
数据类型是对同一类数据的统称，如文本、日期、数值等。VBA里的数据类型有：字节型（Byte），整数型(Integer），长整数型（Long），单精度浮点型（Single），双精度浮点型（Double），货币型（Currency），小数型（Decimal），字符串型（文本型）（String），日期型（Date），布尔型（Boolean）。 VBA对数据类型的管控并不强，有一个Variant万金油类型，这种类型的变量干啥都行。此外，用Dim定义类型时，存在一个陷井，稍不注意就会掉落其中。
1、测试结果
通过测试发现，如果一条语句定义多个变量，只有最后一个变量有效果，比如下面的程序是不会报错的，也能实现其功能：
Sub tt()
    Dim ss, a, b, c, d As Integer
    a = 100
    b = 200
    c = a + b
    ss = "sum=" & c
    
    Cells(5, 1) = a
    Cells(5, 2) = b
    Cells(5, 3) = c
    Cells(5, 4) = ss
    
    a = 87654
    b = 12348
    c = a + b
    ss = "sum=" & c
    
    Cells(5, 5) = a
    Cells(5, 6) = b
    Cells(5, 7) = c
    Cells(5, 8) = ss
    
End Sub

执行结果是正常的：
100
200
300
   sum=300
87654
12348
100002
    sum=100002

不过，如果定义写成：Dim ss, a, b, c As Integer，则会报“溢出”错误（c是整型）。
同样，如果定义写成：Dim a, b, c, ss As Integer，则会报“类型不匹配”错误（ss是整型）。也就是说，只对定义中最后一个变量进行管控，这一点从C语言转过来的人有点想不通。
2、真实含义
实际上Dim a, b,c,ss As Integer的意思是:
dim a, dim b, dim c, dim ss as integer
变量a、b、c没有类型说明，那么VB就会给你使用默认的类型Variant。
3、严格管控
要严格的进行变量类型管控，一次只能定义一个变量，也可以写成下列形式：
Dim a As Integer, b As Integer, c As Integer, ss As String
===========================
附：VBA中的数据类型 
数据类型（名称）
大小（字节）
描述
Boolean
2
逻辑值True或False
Byte
1
0到255的整数
Integer
2
–32,768到32,767的整数
Long
4
–2,147,483,648到2,147,483,647的整数
Single
4
单精度浮点数值
负数：–3.402823E38到–1.401298E–45
正数：1.401298E–45到3.402823E38
Double
8
双精度浮点数值
负数：–1.79769313486231E308到–4.94065645841247E–324
正数：4.94065645841247E–324到1.79769313486231E308
Currency
8
（放大的整数（译者：整数除以10000得到的数值，参见VBA帮助））使用在定点计算中：
–922,337,203,685,477.5808到922,337,203,685,477.5807
Decimal
14
+/–79,228,162,514,264,337,593,543,950,335没有小数点；
+/–7.9228162514264337593543950335小数点后有28位数字；
最小的非0数字是
+/–0.0000000000000000000000000001
Date
8
从100年1月1日到9999年12月31日的日期
String（变长字符串）
10字节+字符串长度
变长字符串最多可包含大约 20 亿 ( 2^31)个字符。
String（定长字符串）
字符串长度
定长字符串最多可包含大约65,400 个字符。
Object
4
对象变量用来引用Excel中的任何对象
Variant（带数字）
16
最高范围到Double类型的任何数值
Variant（带字母）
22字节+字符串长度
和变长字符串的范围一样
用户定义类型
（使用Type）
成员所需的数值
每个成员的范围和它的数据类型的范围一致

以下代码们都是有业务逻辑的，展示在这里，只是想让自己别忘了一些写法，至于业务逻辑，

各位想必没有兴趣，有兴趣的可以学习
Sub «ö1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim biao_zhi As Boolean
Dim yong_liang As Double
n = 2
For i = 3 To 10000
    If Len(Sheet1.Cells(i, 16).Value) < 2 Then
       Exit For
    End If
    yong_liang = 0
    biao_zhi = True
    For m = 2 To 10000
        If Len(Sheet3.Cells(m, 1).Value) < 2 Then
           Exit For
        End If
        If Sheet3.Cells(m, 2) = Sheet1.Cells(i, 2).Value _
        And Sheet3.Cells(m, 1).Value = Sheet1.Cells(i, 16).Value Then
            biao_zhi = False
            Exit For
        End If
    Next m
    If biao_zhi = True Then
       For j = 3 To 10000
          If Len(Sheet1.Cells(j, 16).Value) < 2 Then
             Exit For
          End If
          If Sheet1.Cells(j, 2).Value = Sheet1.Cells(i, 2).Value _
              And Sheet1.Cells(j, 16).Value = Sheet1.Cells(i, 16).Value Then
                yong_liang = yong_liang + Sheet1.Cells(j, 9).Value
          End If
        Next j
          Sheet3.Cells(n, 1).Value = Sheet1.Cells(i, 16).Value
          Sheet3.Cells(n, 2).Value = Sheet1.Cells(i, 2).Value
          Sheet3.Cells(n, 3).Value = yong_liang
          n = n + 1
     End If
Next i
End Sub
Sub «ö2_Click()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim biao_zhi As Boolean
Dim yong_liang As Double
n = 2
For i = 3 To 10000
    If Len(Sheet2.Cells(i, 16).Value) < 2 Then
       Exit For
    End If
    yong_liang = 0
    biao_zhi = True
    For m = 2 To 10000
        If Len(Sheet3.Cells(7, 1).Value) < 2 Then
           Exit For
        End If
        If Sheet3.Cells(m, 8) = Sheet2.Cells(i, 2).Value _
        And Sheet3.Cells(m, 7).Value = Sheet2.Cells(i, 16).Value Then
            biao_zhi = False
            Exit For
        End If
    Next m
    If biao_zhi = True Then
       For j = 3 To 10000
          If Len(Sheet2.Cells(j, 16).Value) < 2 Then
             Exit For
          End If
          If Sheet2.Cells(j, 2).Value = Sheet2.Cells(i, 2).Value _
              And Sheet2.Cells(j, 16).Value = Sheet2.Cells(i, 16).Value Then
                yong_liang = yong_liang + Sheet2.Cells(j, 9).Value
          End If
        Next j
          Sheet3.Cells(n, 7).Value = Sheet2.Cells(i, 16).Value
          Sheet3.Cells(n, 8).Value = Sheet2.Cells(i, 2).Value
          Sheet3.Cells(n, 9).Value = yong_liang
          n = n + 1
     End If
Next i
End Sub
Sub «ö3_Click()
'Selection.Value = "Test1"
Dim i As Integer
Dim j As Integer
Dim n As Integer
n = 2
For i = 2 To 10000
    If Len(Sheet3.Cells(i, 1).Value) < 2 Then
        Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®É­Ô¡A´N°h¥X´`Àô
    End If
    For j = 2 To 10000
        If Len(Sheet3.Cells(j, 1).Value) < 2 Then
             Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®É­Ô¡A´N°h¥X´`Àô
        End If
        If Sheet3.Cells(i, 1).Value = Sheet3.Cells(j, 7).Value _
        And Sheet3.Cells(i, 2).Value = Sheet3.Cells(j, 8).Value _
        And Sheet3.Cells(j, 9).Value - Sheet3.Cells(i, 3).Value <> 0 Then
            Sheet3.Cells(n, 12).Value = Sheet3.Cells(i, 1).Value
            Sheet3.Cells(n, 13).Value = Sheet3.Cells(i, 2).Value
            Sheet3.Cells(n, 14).Value = Sheet3.Cells(i, 3).Value
            Sheet3.Cells(n, 15).Value = Sheet3.Cells(j, 9).Value
            n = n + 1
        End If
    Next j
Next i
End Sub
Sub «ö4_Click()
'Selection.Value = "Test2"
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim a As Integer
n = 2
For i = 3 To 10000
    a = 0
    If Len(Sheet3.Cells(i, 1).Value) < 2 Then
        Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®É­Ô¡A´N°h¥X´`Àô
    End If
    For j = 3 To 10000
        If Len(Sheet3.Cells(j, 7).Value) < 2 Then
             Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®É­Ô¡A´N°h¥X´`Àô
        End If
        If Sheet3.Cells(i, 1).Value = Sheet3.Cells(j, 7).Value _
        And Sheet3.Cells(i, 2).Value = Sheet3.Cells(j, 8).Value Then
            a = 1
        End If
    Next j
    If a = 0 Then
       Sheet3.Cells(n, 18).Value = Sheet3.Cells(i, 1).Value
       Sheet3.Cells(n, 19).Value = Sheet3.Cells(i, 2).Value
       Sheet3.Cells(n, 20).Value = Sheet3.Cells(i, 3).Value
       'Selection.Value = i
       n = n + 1
    End If
Next i
End Sub
Sub «ö5_Click()
'Selection.Value = "Test2"
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim a As Integer
n = 2
For i = 3 To 10000
    a = 0
    If Len(Sheet3.Cells(i, 7).Value) < 2 Then
        Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®É­Ô¡A´N°h¥X´`Àô
    End If
    For j = 3 To 10000
        If Len(Sheet3.Cells(j, 1).Value) < 2 Then
             Exit For '¦pªG²£«~®Æ¸¹¬°ªÅªº®É­Ô¡A´N°h¥X´`Àô
        End If
        If Sheet3.Cells(i, 7).Value = Sheet3.Cells(j, 1).Value _
        And Sheet3.Cells(i, 8).Value = Sheet3.Cells(j, 2).Value Then
            a = 1
        End If
    Next j
    If a = 0 Then
       Sheet3.Cells(n, 23).Value = Sheet3.Cells(i, 7).Value
       Sheet3.Cells(n, 24).Value = Sheet3.Cells(i, 8).Value
       Sheet3.Cells(n, 25).Value = Sheet3.Cells(i, 9).Value
       'Selection.Value = i
       n = n + 1
    End If
Next i
End Sub