VBA 知识

• VBA 编程基础

• Excel VBA入门（二）数组和字典

• Excel VBA 的可变类型Variant

• ed2k://|file|[%E4%BB%8E%E9%9B%B6%E5%BC%80%E5%A7%8B%E5%AD%A6Excel.VBA].%E9%AD%8F%E6%B1%AA%E6%B4%8B.%E6%89%AB%E6%8F%8F%E7%89%88[WWW.OYKSOFT.COM].pdf|52417779|9209495b7b774e4b317136da8d313e5e|h=gra2aupud2tw3vzaemytuiieuijwkuxe|/

---

• Excel sheets和worksheets的区别
  Sheets集合代表当前工作簿中的所有工作表，包括图表、工作表、对话框工作表和宏表。
  Worksheets集合仅代表当前工作簿中的所有工作表。

Sheet.png

区别：worksheets只代表工作表，仅第一个。sheets包括全部

---

• 遍历工作表六种方法

1.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    sh.Select
    Call 设置A1格式
Next
End Sub
--------------------------------------
2.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    if sh.name <> 表名1 and sh.name <>表名 2 then
            sh.Select
            Call 设置A1格式
    end if 
Next
End Sub
--------------------------------------
3.Sub 循环工作表()
    For Each sh In Worksheets
        If sh.Index > 2 Then    '限定工作表范围
       sh.Select
              Call 设置A1格式
        End If
    Next
End Sub
--------------------------------------
4.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    If sh.Name Like "*" & "表" & "*" Then     '如果工作表名称包含“表”
        sh.Select
        Call 设置A1格式
    End If
Next
End Sub
---------------------------------
5.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    If Not sh.Name Like "\*" & "表" & "*" Then     '如果工作表名称不包含“表”
        sh.Select
        Call 设置A1格式
    End If
Next
End Sub
-------------------------
6.Sub 遍历工作表()
For Each sh In Worksheets    '数组
    If sh.Name <> "价格表" And sh.Name <> "人员表" Then    '指定不参与循环的工作表名称，可一个或多个，自行增减
        sh.Select
        Call 设置A1格式
    End If
Next
End Sub

---

• 删除重复项

1. VBA去重复的几种方法

Sub 删除重复项()
 
Application.ScreenUpdating = False
 
Dim rga, rgb As Range
Dim a, b As String
 
For Each rga In Range("c2:f25")
For Each rgb In Range("h30:z55")
 
a = rga.Value
b = rgb.Value
 
If a = b And rgb <> "" Then
rga.ClearContents
rgb.Interior.ColorIndex = 3
End If
 
Next rgb
Next rga
 
Application.ScreenUpdating = True
 
End Sub

---

'使用 ParamArray 关键字可以使函数接收数目可变的参数
Function CalcSum(ByVal FirstArg As Integer, ParamArray OtherArgs())
    Dim i As Integer
    CalcSum = FirstArg
    For i = 0 To UBound(OtherArgs)
        CalcSum = CalcSum + OtherArgs(i)
    Next
End Function
'如果用如下代码调用该函数：
Sub Example1()
    Dim ReturnValue
    '局部变量赋予以下值：FirstArg = 4，
    'OtherArgs(0) = 3，OtherArgs(1) = 2，OtherArgs(2) = 1，等等。
    ReturnValue = CalcSum(4, 3, 2, 1)
    MsgBox ReturnValue
End Sub

---

• 集合 Collection

Sub test()
'    Dim s As Collection '定义s变量为集合对象
'    Set s = New Collection '初始化集合对象s (否则无法使用)

    Dim s As New Collection '推荐这句代码，直接初始化，可以不用再Set了

    '集合s中添加元素的方法
    For i = 1 To 10
        s.Add i '对于集合s，用Add方法可以加入集合元素
            '当然事实上你可以添加任意内容来代替本例中的i
    Next

    '读取集合中元素的方法    
    For i = 1 To s.Count '可以用Count属性返回集合中元素总个数
        t = s(i) '读取集合s中第i个变量存入临时变量t中
        t = s.Item(i) '正规的代码写法应该是这样子(效果一样，推荐用上一句更简明)
        Debug.Print s(i) '在立即窗口中观察s(i)的值
    Next
    
    '下面是集合s中元素删除的方法
    For i = 1 To s.Count '遍历集合元素
        s.Remove (1) '每次删去第1个……直至全部删除完毕 或直接简写为： s.Remove 1
'        s.Remove (s.Count) '或者每次删除最后一个，直至全部删除完毕(推荐用上一句，不容易错)
'        或简写为 s.Remove s.Count       
        Debug.Print s.Count '在立即窗口中观察集合s中剩余元素个数
    Next
    
End Sub

---

• 在 VBA 中可以通过 Font 对象的 Name.Size 等属性设置字体的格式。

1. 方法一：
   在 VBA 窗口中输入以下代码即可一步实现：

Sub 设置字体格式()

  Range("A1").Select With Selection .Font.Name = "黑体" .Font.Size = 16 .Font.ColorIndex = 5 .Interior.ColorIndex = 39 End With

  Range("A2:G2").Select With Selection.Font .Name = "微软雅黑" .Size = 14 End With

  Range("A3:A21,C3:C21,G3:G21").Select With Selection.Font .Name = "TimeS New Roman" .Size = 11 End With

  Range("A2:G21").Select With Selection .HorizontalAl ignment = xlCenter .VerticalAlignment = xlCenter End With

  Range("A1").Select

End Sub

2. 方法二：
   通过录制宏的方法获取为表格添加边框的代码，但由宏录制器生成的代码会分别设置单元格的每个边框，因此代码过多且效率低。实际上，使用 Range 对象的 Borders 集合可快速对单元格区域的每个边框应用相同格式，且 Range 对象的 BorderAround 方法可以快速为单元格区域添加一个外边框。

例如，在 Excel 2010 的工作表中添加边框，只要输入以下 VBA 代码即可快速实现：

Sub 添加边框()

  Dim i As Range Set i = Range("A1:G21") '设置对象变量为单元格区域"A1：G21"

  With i.Borders(xlInsideVertical) 
    .LineStyle = xlContinuous '设置边框的线条样式

    .Weight = xlThin '设置边框线条的精细

    .ColorIndex = 55 '设置边框的颜色

  End With

  With i.Borders(xlInsideHorizontal) 
    .LineStyle = xlDash .Weight = xlThin .ColorIndex = 55
  End With

  i.BorderAround xlContinuous, xlMedium, 55 Set i = Nothing '从内存中释放对象变量，与Set相对应

End Sub

当在运行该程序后，即可为 Excel 2010 表添加边框。

操作步骤

• 提示：另外，Borders(index) 属性返回单个 Border 对象，其中参数 index 的取值及意义如下表所示。

'常量--值--说明
xlDiagonaIDown ：5　斜下边框
xlDiagonalUp ：6　斜上边框
xlEdgeLeft ：7　左边框
xlEdgeTop ：8　顶部边框
xlEdgeBottom ：9　底部边框
xlEdgeRight ：10　右边框
xllnsideVertical ：11　内部垂宜
xllnsideHorizontal ：12　内部水平

应用 Range 对象的 BorderAround 方法向单元格区域添加整个区域的外边框，其语法格式为：BorderAround(LineStyle, Weight, ColorIndex, Color)。其中 Colorlndex 参数可以指定当前调色板中的颜色，Color 参数以 RGB 值指定边框的颜色，可以是当前调色板以外的颜色，但是不能同时指定这两个参数。

---

• 行和列 Row Column

'vba 取行数
Sheets（1）.[A65536].End(xlUp).Row '''该列最后一行
'vba 取列数
Cells(14, 256).End(xlToLeft).Column'''该14行最后一列

'当前工作表总行数 k=activesheet.usedrange.rows.count '指定sheet1工作表总列数 j=sheets("sheet1").usedrange.columns.count '前提是顶部和左侧无空行空列

---