引数は省略できない

投稿者 : ぽり     投稿日時 : 2024/01/16(Tue) 09:34:15     OS : Windows 11     EXCEL : Office 365

---

こんにちは！
下記の重複をチェックするプログラムを作成したのですが
ダイヤログボックスにて”引数は省略できない”と表示されます。

ByValのあとの引数が不足しているのでしょうか。xy？

教えていただけると幸いです。

※一部文字などを変更して、投稿しています。

Sub JU_FUKU(ByVal p_name As String, ByVal f_name As String)

    Dim row_cnt1, row_cnt2 As Long
    Dim wb01 As Workbook
    Dim ws1, ws2 As Worksheet
    Set wb01 = Workbooks("ABCDE.xlsx")
    Set ws1 = wb01.Worksheets("Aシート")
    
    
    '5行目からスタートする
    row_cnt1 = 5
         'ENDと等しくない間、繰り返す
         Do While CStr(ws1.Cells(row_cnt1, A).Value) <> "END"
            row_cnt2 = row_cnt1
            'ENDと等しくない間、繰り返す
            Do While CStr(ws1.Cells(row_cnt2, A).Value) <> "END"
                'AシートのC行の重複チェック
                If CStr(ws1.Cells(row_cnt1, C).Value) = CStr(ws1.Cells(row_cnt2 + 1, C).Value) Then
                    MsgBox ○〇〇と▲▲▲が一致しました        
                    
                'AシートのD行の重複チェック
                ElseIf CStr(ws1.Cells(row_cnt1, D).Value) = CStr(ws1.Cells(row_cnt2 + 1, D).Value) Then
                    MsgBox ◆◆◆と☆☆☆が一致しました
              
                End If
                row_cnt2 = row_cnt2 + 1
            Loop
            row_cnt1 = row_cnt1 + 1
       Loop
       
       
      '入力ファイルのタイムスタンプ更新(最終保存時刻)　ボタンの右側に出力
       asheet.Range(xy).Offset(0, 1) = wb_get_date(p_name, f_name)
    
      '作成日時更新(実行時刻)　ボタンの2つ右側に出力
       asheet.Range(xy).Offset(0, 2) = Now
       asheet.Range(xy).Offset(0, 2).Font.ColorIndex = 41  'ブルー 
    
       
End Sub

よろしくお願いいたします。

投稿者 : さんこう     投稿日時 : 2024/01/16(Tue) 09:48:23

---

＞※一部文字などを変更して、投稿しています。

試すことができないコードを見せられても、わかりません。

「Sub JU_FUKU(ByVal p_name As String, ByVal f_name As String)」を呼び出すコードに問題があるように思いますが。


どういう状況で「ダイヤログボックスにて”引数は省略できない”と表示されます。」となるのでしょうか？

投稿者 : ぽり     投稿日時 : 2024/01/16(Tue) 10:58:33

---

こちら削除にてお願いいたします。

投稿者 : ぽり     投稿日時 : 2024/01/16(Tue) 16:08:18

---

■[返信 1] さんこうさん（2024-01-16 09:48:23）の記事
＞ ＞※一部文字などを変更して、投稿しています。
＞
＞ 試すことができないコードを見せられても、わかりません。

→そんなに怒らないでください（＾－＾）笑
　仕事に少し関わる部分だったので変えざるを得なかったのです。　
　それにしても、MsgBoxのところは適当すぎましたね！すみません。
　他で確認して解決済みですので、こちら大丈夫です～！
　ありがとうございました。