作者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