Step4 ファイル一覧の上から順に調べていく

検索開始ボタンをクリックすると作成されるファイル一覧を、上から繰り返して空かどうか調べていきます。繰り返しはDo While 〜 Loop文を使います。

含む/含まない文字列検索ソフトのメニューに戻る


スポンサードリンク



クリックイベントコード

検索開始ボタンをクリックすると、H列の上から順にセルが空になるまで進みます。


クリックイベント内を下記のコードに変更します。
MySearchStartを追加しています。
引数は行数、列数になっています。

    If Range("B5") = "" Then
        Beep
        MsgBox "検索フォルダを指定してください。"
        Range("B5").Activate
    Else
        ExFolderSearch Range("B5"), 2, 8
        MySearchStart 2, 8
    End If


スポンサードリンク



指定されたセルを上から順に空になるまで繰り返します。

繰り返しは、Do While 〜 Loop を使っています。
Cells(lRow, lCol)<>"" でセルが空かを調べています。

Private Sub MySearchStart(lRow As Long, lCol As Long)
    Do While (Cells(lRow, lCol) <> "")
        lRow = lRow + 1
    Loop
End Sub

スポンサードリンク





含む/含まない文字列検索ソフトのメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved