VBA 第一天

 公司实习第一天，excel搞不定啊，学点VBA留着用：

录制宏：

点击录制宏按钮以后，在这段期间你做的每一个操作都会被记录下来，直到你点击停止录制按钮才能够停下，停下来后在此期间每一个操作都会以宏代码的形式保存下来，下次同样机械的操作都可以使用宏所定义的快捷键进行操作。

编写宏定义：

使用快捷键ALT+F11进入宏编写IDE，插入一个新的宏，比如如下的一个宏可以在任何一个单元格的数字的后面根据数字的大小判断其属于哪个档次：

Sub GetRank()
    Select Case Selection.Value
        Case Is >= 90
        Selection.Offset(0, 1) = "OutStanding"
        Case Is >= 75
        Selection.Offset(0, 1) = "Excellent"
        Case Is >= 60
        Selection.Offset(0, 1) = "Pass"
        Case Else
        Selection.Offset(0, 1) = "Fail"
    End Select
End Sub

突然觉得好sb的操作，只能在每个单元格后面点，于是来点快捷的，对一列进行操作吧！

Sub GetAllRanks()
Dim IntRows As Integer
Dim i As Integer
IntRows = Selection.Rows.Count
For i = 1 To IntRows
Select Case Cells(i + 1, 1).Value
Case Is >= 90
Cells(i + 1, 2).Value = "OutStanding"
Case Is >= 75
Cells(i + 1, 2).Value = "Excellant"
Case Is >= 60
Cells(i + 1, 2).Value = "Pass"
Case Else
Cells(i + 1, 2).Value = "Fail"
End Select
Next i
End Sub

使用Range并且是"A1"形式：

Sub Get_Cell()
    Dim RanCell As Range
    Set RanCell = Range("e2")
    With RanCell
        .Value = "Hello to excel vba"
        .Font.Italic = True
        .Font.Bold = True
    End With
    Set RanCell = Nothing  '释放对象
End Sub

使用Range的"R1C1"形式引用单元格：

Sub Get_Cells()
Worksheets("main").Cells.ClearContents
    Dim i As Integer, j As Integer
    For i = 1 To 8
        For j = 1 To i
            Cells(i, j).Value = i * j
        Next
    Next
    
End Sub

引用一块区域，则可以使用range来得到一块区域：

Sub CellsSelect()
Worksheets("Sheet2").Select
    Dim MyRange1 As Range, MyRange2 As Range
    Set MyRange1 = Range("A1:D5,G1:G8")
    Set MyRange2 = Union(Range("A8:C12"), Range("E10:G13"))
    MyRange1.Select
    Selection.Interior.Color = 52435
    MyRange2.Select
    Selection.Interior.Color = 13254
End Sub

当然我们也可以选择整行或者整列，如Rows(1)选择第一行，Rows选择所有的行，Columns(1)或者Columns("A")选择第一列，Columns选择所有列；也可以使用Range关键词来选择Range("C:C"),选择C列，Range("C:F")，选择C到F列。

 developer=>insert=>button, 拖一个出来点在worksheet上，程序会默认让你制定点击事件绑定的宏，默认会是***_Click()，你可以按这个命名定义，也可以先写好了再Assign也行。

选择当前选择单元格的上一个可以使用Previous，选择当前单元格的下一个单元格可以使用Next，当然首先你得选中自己，那么在excel中选中自己的代码是ActiveCell，这是当前你的光标所停留在的格子。

还可以使用offset选中相对于当前单元格的其他单元格，使用方法是Offset(RowOffset, ColumnOffset),如Range("A1").Offset(2,2)表示选择C3，ActiveCell.offset(,1)选择了当前单元格的下一列，ActiveCell.offset(1)选择了下一行，区域偏移可使用Range("C3:D5").offset(,1)

 快下班了，今天先写到这里！