作者frank082474 (心情好坏牵动ㄧ切)
看板Visual_Basic
标题Re: [VBA ] 关於执行阶段错误"438"
时间Tue Dec 15 00:18:14 2009
※ 引述《boral (完备性)》之铭言：
: 我的程式码如下
: Const pi = 3.1415926
: Public Sub WriteTest()
: Dim x As Double
: Dim ans As Double
: x = Worksheets("Sheet1").Cellls(2, 2).Value
~~~~~~~~~~~~~~~~~~
Cells(2,2).value 你多打了一个l
我更改後 就能运作了
: 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: 122.117.75.30