4

何らかの理由で、カスタム関数がExcelで実行されていないようです。以下に簡単な関数を作成しましたが、ワークシート関数として使用する場合でも、プロシージャから呼び出す場合でも、値として常にゼロを返します。誰かが私が間違っていることを知っていますか、またはどこかに私が欠けている設定があるかどうかを知っていますか？

  Public Function Testthisout(number As Double) As Double
    result = number * number
  End Function

  Public Sub TESTFUNCTION()
    Dim number As Double
    Dim result As Double

    Application.Volatile (True)

    number = 4
    result = Testthisout(number)
    MsgBox result
  End Sub
4

1 に答える 1

3

関数を次のように変更します。

Public Function Testthisout(number As Double) As Double
  result = number * number
  Testthisout = result
End Function
于 2013-02-13T06:10:28.457 に答える