引数を省略なんてしていないんですが…。 (ID:124659)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 質問です。 「すべての対象の置換をする」 というボタンをつくろうとしているのですが まず、１つを置換するコード Private Sub cmdReplace_Click(Index As Integer) Dim InputStr As String Dim SearchStr As String Dim ReplaceStr As String Dim SearchStart As Long Dim FindStrStart As Long SearchStr = txtSearch.Text ReplaceStr = txtReplace.Text '置換の処理 If frmMDI.ActiveForm.txtEdit.SelText = SearchStr Then frmMDI.ActiveForm.txtEdit.SelText = ReplaceStr SearchStart = frmMDI.ActiveForm.txtEdit.SelStart + Len(ReplaceStr) + 1 Else SearchStart = frmMDI.ActiveForm.txtEdit.SelStart + 1 End If '検索の開始 InputStr = frmMDI.ActiveForm.txtEdit.Text FindStrStart = InStr(SearchStart, InputStr, SearchStr) '検索結果の処理 If FindStrStart > 0 Then frmMDI.ActiveForm.txtEdit.SelStart = FindStrStart - 1 frmMDI.ActiveForm.txtEdit.SelLength = Len(SearchStr) ReplaceAllFlag = True Else MsgBox "文章の検索と置換が終りました。", vbInformation ReplaceAllFlag = False End If frmMDI.ActiveForm.SetFocus End Sub で、こっちが全ての対象を置換するコード Private Sub cmdReplaceAll_Click(Index As Integer) 'カーソル位置の初期化 frmMDI.ActiveForm.txtEdit.SelStart = 0 '置換の開始 ReplaceAllFlag = True Do Until ReplaceAllFlag = False cmdReplace_Click 'ここにエラーが出ます Loop End Sub cmdReplace_Click 'ここにエラーが出ます に対して「引数は省略できません」とでます。 自分的には、エラーが出るところのイベント名が「cmdReplaceAll_Click」 の為、「cmdReplace_Click」が「All」を省略しているとみなされ このようなエラーが出ると思うのですが、参考書ではこれでできているので 疑問に思い質問しました。 コードの書き写しはないと思います。 低レベルな質問ですが、よろしかったら教えてください！