Excel VBA 学习

公司里提交bug不仅仅需要提交到缺陷库，还需要提交excel文档，为了更明显地区分不同类型的bug，有时候需要对不同的bug标记不同颜色，闲来无事，小做研究，记录与此。

Worksheet    Activate

Private Sub Worksheet_Activate()
Dim str As String
Dim str2 As String
str = Sheets("5.2 Import Planning").Range("k16")
'MsgBox (str)
If InStr(str, "ig") > 0 Then
    Range("c16:k16").Interior.Color = RGB(200, 160, 35) ' brown
End If

str2 = Sheets("5.2 Import Planning").Range("h16").Text
'MsgBox (str2)
If InStr(str2, "F") > 0 Then
    Range("h16").Interior.ColorIndex = 6 ' yellow
    'MsgBox (str2)
End If
Range("h17").Interior.ColorIndex = 0 ' white
Range("h18").Interior.ColorIndex = 1 ' black
Range("h19").Interior.ColorIndex = 2 ' white
Range("h20").Interior.ColorIndex = 3 ' red
Range("h21").Interior.ColorIndex = 4 ' green
Range("h22").Interior.ColorIndex = 5 ' blue
Range("h23").Interior.ColorIndex = 7 ' purple

End Sub