2

3つのボタンがあるユーザーフォームがあります。[OK]ボタンをクリックすると、次のコードを記述しました。

Private Sub CommandButton2_Click()
   Call calculateCost
End Sub

Sheet1に書いたサブメソッドは次のとおりです。

Public Sub calculateCost()
    Dim kilo As String
    kilo = Worksheets("Sheet1").TextBox1.Text
    MsgBox "value" & kilo
End Sub

コードを実行すると、エラーが発生します。呼び出しcalculateCostの近くで定義されていないサブまたは関数。なぜこうなった？これを解決する方法。ありがとうございました

4

1 に答える 1

4

計算されたCostプロシージャを標準モジュールに移動します（挿入-VBEのモジュール）。シートクラスモジュールを含むクラスモジュールのプロシージャは、そのように呼び出すことはできません。シートのクラスモジュールから他の方法で呼び出すこともできますが、シートのモジュールに含まれている必要があるプロシージャには何も表示されないため、おそらく標準モジュールに属しています。

于 2012-10-01T02:27:56.740 に答える