作者:乔山办公网日期:
返回目录:excel表格制作
问题一:xm没有符百值度
问题回二:少了END IF
问题三:单元答格引用要用CELLS
Function yuwen(xingming As String) As Integer
Dim i As Integer
For i = 2 To 71
If xingming = Worksheets("10ÔÂ").Cells(i, 2) Then
temp = Worksheets("10ÔÂ").Cells(i, 4)
End If
Next
yuwen = temp
End Function