【090】Excel VBA 基础

Excel Object Model：

Application Object (Excel): Stab Me!!!
Font Object (Excel): Stab Me!!!
Worksheet Object (Excel): Stab Me!!!

Ref: Visual Basic Language Reference

Ref: VBA Course: Colors

具体使用例子：

修改单元格的颜色：
　　使用单元格的 Interior 类！其中 Color 属性可以修改或是显示单元格的背景颜色！ColorIndex 则是通过数字来修改单元格的背景颜色！

For i = 2 To 19
    For j = 2 To 19
        If Cells(i, j) = "A" Then
            Cells(i, j).Select
            Selection.Interior.Color = RGB(255, 255, 0)　　'通过选取改变
        End If
        If Cells(i, j) = "C" Then
            Cells(i, j).Interior.Color = RGB(255, 0, 255)　　'直接通过单元格来修改
        End If
        If Cells(i, j) = "D" Then
            Cells(i, j).Select
            Selection.Interior.ColorIndex = 2　　　　'用索引修改
        End If
    Next
Next

　　VB、VBA、VB.NET 基本差不多，就是类不同罢了！
参考：Excel VBA Interior.ColorIndex 色彩列表
参考：Interior Object Members

每一行上面增加一行，然后空行通过上下的平均求得！
参考数据：https://files.cnblogs.com/alex-bn-lee/GOCI.rar
参考代码：（现将txt导入excel中）

Sub add()
    For n = 6 To 1000 Step 2    
        Rows(n).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove   'Rows(i).Insert 也可以
    Next
End Sub

Sub avg()
    For n = 6 To 704 Step 2    
        For m = 1 To 9        
            Cells(n, m) = (Cells(n - 1, m) + Cells(n + 1, m)) / 2       
        Next   
    Next
End Sub

ComboBox的使用
　　首先需要为其增加内容，这个内容的增加需要在窗体加载/激活的时候触发，如下实现：
　　
　　之后在Activate事件中增加Item，利用ComboBox的AddItem方法：
```
Private Sub UserForm_Activate()

    ComboBox1.AddItem "C"    
    ComboBox1.AddItem "D"
    
    For m = 1 To 100
        ComboBox2.AddItem m
    Next

End Sub
```
　　ComboBox1中，增加了C和D，ComboBox2中，增加了从1到100的数字！
　　
TabIndex属性：按照数字顺序，一次通过点击“TAB”键实现每个控件之间的遍历！
TabStop属性：True说明参加上面的遍历，False则说明不参加上面的遍历！
待定