|
有難うございました。助かりました!!
▼ichinose さん:
>▼くどう さん:
>こんばんは。
>
>>フォーム上に付いているボタンを押した場合のイベントプロシージャーからの
>>呼び出し関数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
>こんな感じに(これは、おそらくは余計なお世話でしょうが・・)!!
>
>確認してみて下さい。
|
|