工作中经常用到的VBA代码推荐

VBA过程代码81：检查单元格A1的文本颜色并返回颜色索引

Sub MyNZ()

TextColor=Range('A1').Font.ColorIndex

End Sub

代码的解析说明：上述代码的过程将，检查单元格A1的文本颜色并返回颜色索引值于变量TextColor中，其中.Font.ColorIndex是指文本的颜色索引属性。

VBA过程代码82：VBA中的完全匹配查找

Sub MyNZ()

i = 2

TT = Cells(i, 1)

Set FJX = Sheets('X').Range('A1:A' & Sheets('A').Range('A1').End(xlDown).Row).Find(TT, LookAt:=xlWhole)

Set FJX = Nothing

End Sub

代码的解析说明：上述代码的过程将在工作表'X'中A列第一个单元格到不为空的最后一个单元格中查找TT，TT是指定的一个单元格的值Cells(i, 1)，其中LookAt:=xlWhole是指完全匹配查找。

VBA过程代码83：VBA中的在不同的工作表间进行查找取值

Sub mynz ()

Sheets('1').Select

i = 2

Do While Cells(i, 1) <> ''

Cells(i, 1).Select

TT = Cells(i, 1)

Cells(i, 2) = ''

Set FJX = Sheets('2').Range('A1:A' & Sheets('2').Range('A1').End(xlDown).Row).Find(TT, LookAt:=xlWhole)

If Not FJX Is Nothing Then Cells(i, 2) = Sheets('2').Cells(FJX.Row, 2)

i = i + 1

Set FJX = Nothing

Loop

End Sub

代码的解析说明：上述代码的过程将在不同的工作表间进行查找取值。将在中Sheets('2')工作表的A列第一个单元格到不为空的最后一个单元格中查找，查找的内容是Sheets('1')工作表中Cells(i, 1)的内容，其中LookAt:=xlWhole是指完全匹配查找，如果能查找到将把Sheets('2')工作表的B列的相应内容填到Sheets('1')工作表中的B列。

以上代码中要注意的内容If Not FJX Is Nothing是指如果查找到了，那么将执行下面的操作。

Cells(i, 2) = Sheets('2').Cells(FJX.Row, 2)是指在Sheets('1')工作表中的B列中填入相应的值，这个值是Sheets('2').Cells(FJX.Row, 2)，即Sheets('2')工作表的B列的相应值。

Cells(FJX.Row, 2)：FJX.Row是指查找到值的行数，Cells(FJX.Row, 2)是指查找到值的那行B列的值。

VBA过程代码84：VBA中的DO…WHILE….循环

Sub mynz ()

Sheets('1').Select

i = 2

Do While Cells(i, 1) <> ''

……….

i=i+1

loop

代码的解析说明：上述代码的过程将执行一个循环，循环的条件是Cells(i, 1) <> ''即Sheets('1')工作表的i行A列的值不为空。中间的'……….'是在循环过程中将执行的操作。

越简单的事物往往越容易理解，简单的过程组合起来就是一个复杂的过程，我们要先认真掌握这些简单的过程，才能在可以为我们复杂的工程服务。