急急急!!!!EXCEL自定义函数无法调用

sdxazly 2011-04-29 09:43:51
我在EXCEl里面自定义了一个函数

如下:

Function sumScoreA(startRow As Range, endRow As Range)
sumScoreA = 0
row1 = startRow.Value
row2 = endRow.Value
If row1 < row2 Then
For i = row1 To row2

tiMuNo = Trim(Sheet1.Cells(i, 1).Value)
answer = Trim(Sheet1.Cells(i, 2).Value)

tempScore = 0

myIndex = 0
For j = 2 To 11
oneType = Trim(Sheet2.Cells(j, 2).Value)
If tiMuNo = onType Then
myIndex = j
End If
Next

Select Case answer
Case Is = Trim(Sheet2.Cells(myIndex, 3).Value)
tempScore = Trim(Sheet2.Cells(myIndex, 4).Value)
Case Is = Trim(Sheet2.Cells(myIndex, 5).Value)
tempScore = Trim(Sheet2.Cells(myIndex, 6).Value)
Case Is = Trim(Sheet2.Cells(myIndex, 7).Value)
tempScore = Trim(Sheet2.Cells(myIndex, 8).Value)
End Select


sumScoreA = sumScoreA + tempScore
Next
End If
End Function

总是显示无效名称,紧急求助
...全文
86 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

1,265

社区成员

发帖
与我相关
我的任务
社区描述
软件工程/管理 管理版
社区管理员
  • 研发管理社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧