前提・実現したいこと
こんちわ。Excel VBA 初心者です。
会員登録画面を作成しています。
下記エラーバグの削除方法がよくわかりません。
どなたかお願いします。
■■な機能を実装中に以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
引数の判定するコードで コンパイルエラー subまたfunctionが定義されませんのエラー
該当のソースコード
Option Explicit Public Sub LS_BookReturn_Click() Dim TextCamnameS As String Dim Textdescrip As String Dim TextCskiDay As String Dim Textemployees As String Dim TextFounding As String ' Dim Textoname As String Dim Textzipcode As String Dim ComBprefectures As String Dim Texminicic As String Dim Textaddress As String ' Dim Textworkplice As String TextCamnameS = clientForm.TextCamnameS.Text Textdescrip = clientForm.Textdescrip.Text TextCskiDay = clientForm.TextCski.Text Textemployees = clientForm.Textemployees.Text TextFounding = clientForm.TextFounding.Text Textoname = clientForm.Textoname.Text Textzipcode = clientForm.Textzipcode.Text 'ComBprefectures = clientForm.ComBprefectures.Text Texminicic = clientForm.Texminicic.Text Textaddress = clientForm.Textaddress.Text Textworkplice = clientForm.Textworkplice.Text If LF_user(TextCamnameS, Textdescrip, TextCskiDay, Textemployees, Textoname, Textzipcode, Texminicic, Textaddress, Textworkplice) = 0 Then '会員No、氏名が未入力でなければ、情報を登録しましたの表示' MsgBox "「返却情報を登録しました」" End If End Sub Public Function LF_BookReturnRegistration(ByVal Textdescrip As String, ByVal TextCamnameS As String, ByVal Textemployees As String, _ ByVal TextCskiDay As String, ByVal Textemployees As String, ByVal TextFounding As String, ByVal Textoname As String, _ ByVal Textzipcode As String, ByVal Texminicic As String, ByVal Textaddress As String, _ ByVal Textworkplice As String) As Integer If TextCamnameS = "" Or Textdescrip = "" Or Textemployees = "" Then MsgBox "「入力がエラーです。」", vbOKOnly + vbExclamation, "エラーメッセージ" LF_user = -1 Exit Function End If 'もし、該当物ならば罫線と中央配置を設定 With Sheet2.Cells(D4) .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeRight).LineStyle = xlContinuous .HorizontalAlignment = xlCenter '(返却日)4列目にTextemployeesを入れる Sheet3.Cells(BNumC, 4).Value = Textemployees End With LF_user = 0 End Function
補足情報(FW/ツールのバージョンなど)
Windows10 、Excel 2010
回答2件
あなたの回答
tips
プレビュー