作者boral (完备性)
看板Visual_Basic
标题[VBA ]
时间Mon Dec 14 22:41:31 2009
我的程式码如下
Const pi = 3.1415926
Public Sub WriteTest()
Dim x As Double
Dim ans As Double
x = Worksheets("Sheet1").Cellls(2, 2).Value
ans = NorPdf(x)
Worksheets("Sheet1").Cells(2, 3).Value = ans
End Sub
Public Function NorPdf(d As Double) As Double
Dim ans As Double
ans = Exp(-d * d / 2) / Sqr(2 * pi)
NorPdf = ans
End Function
当按执行时,却产生执行阶段错误"438" 查了很久 还是不知道错在哪???
不知道有人能不能帮帮小弟 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.36.208.119
※ 编辑: boral 来自: 114.36.208.119 (12/14 22:41)
1F：→ necsa:Cellls(2,2),多了一个l 12/15 00:17