Re: [VBA ] 關於執行階段錯誤"438"
※ 引述《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
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：