|
▼くどう さん:
こんばんは。
>フォーム上に付いているボタンを押した場合のイベントプロシージャーからの
>呼び出し関数data_str_CHK(Txt_tmp) をSheet1コードに記述したのですが、
>SUBまたはFunctionが定義されていません。と出ます。
>なにか共通設定があるのでしょうか?
>お詳しい方ご教授願います。
Sheet1のモジュールに記述したのなら、
data_str_CHKは、Sheet1に作成した独自メソッドということになりますから、
既成メソッドを記述するのと同じように呼び出して下さい。
>
>
>Private Sub SyuSei_Button_Click()
> Dim Txt_tmp As String
> Txt_tmp = Syusei_Bi_input_TXT.Text
If worksheets("sheet1").data_str_CHK(Txt_tmp) = "StrOK" Then
' 一例ですが、
> MsgYesNo = MsgBox(" チェック完了です。", vbOKOnly)
> Else
> MsgYesNo = MsgBox("その入力は不正です。", vbOKOnly)
> End If
>End Sub
但し、
この「data_str_CHK」は、Private宣言では駄目ですよ!!
Sheet1のモジュールで
'================================
Function data_str_CHK(aaa)
data_str_CHK = "aaa"
End Function
こんな感じに(これは、おそらくは余計なお世話でしょうが・・)!!
確認してみて下さい。
|
|