EXCEL翻译代码

Sub 按钮1_Click()
Dim word As String
Dim cn As String
Dim row As Integer
For row = 2 To 18 '行号要修改，如2-18行
word = Trim(ActiveSheet.Cells(row, 3).Value) '来源要修改，如C列
cn = find(word)
If cn <> "" Then
ActiveSheet.Cells(row, 8).Value = cn '翻译结果放到哪里，如H列
Else
Range("C" + CStr(row)).Select '变色的列，如C列
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936 '颜色
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next
End Sub

Function find(word As String)
Dim rg As Range
Dim cn As String
cn = ""
For row = 2 To 18 '词典从哪行到哪行，如2到18行
'查询哪个sheet，哪列。如sheet3，C列
If word = Trim(ActiveWorkbook.Sheets(3).Cells(row, 3).Value) Then
'从哪个sheet，哪列返回结果，如Sheet3，F列
cn = ActiveWorkbook.Sheets(3).Cells(row, 6).Value

'返回之前，把查到的结果，标上颜色，Sheet3、C列
Set rg = ActiveWorkbook.Sheets(3).Range("C" + CStr(row))
With rg
.Interior.ColorIndex = 10 '绿色
End With

Exit For
End If
Next

find = cn
End Function