自定义函数问题

[aspen2002]

关于excel 自定义函数问题：
如下代码：
Function sum1() As Integer
Dim sht As Worksheet
Set sht = Worksheets("sheet1")
Dim i, j, s As Integer
s = 0: j = 0
For i = 1 To 5
Cells(i, 2) = sht.Cells(i, 1) ^ 2－－－－就是这一行
s = s + sht.Cells(i, 1)
j = j + sht.Cells(i, 2)
Next i
sum1 = s
End Function


在excel的sheet的单元格内用“＝”或fx 调用sum1就不行
在VBA编辑器里可以run
关键是怎样在excel的sheet里使用用户的自定义函数编写中，如何向单元格内写东西
help!!!

[klbt]

关注，帮你顶。

[xamcsdn2]

[Range对象].FormulaR1C1="sssss"