セルのクリアと検索文字列の追加 - フォルダ内文字列カウントソフト : Excelでアプリケーションソフトを作ってみよう

ファイル一覧の表示する範囲を事前にクリアするのと、検索文字列欄を追加します。検索文字列が入力されていない場合は、メッセージを表示させます。

実行画面

[検索フォルダ]ボタンの上に、検索文字列の入力セルを追加しました。

検索文字列が入力されていない場合、[検索フォルダ]ボタンを押すと「検索文字列を入力してください。」とメッセージが表示されます。

VBAコード

[検索フォルダ]ボタンのクリックイベントを下記に追加・変更してください。

Private Sub CommandButton1_Click()
    Dim sDir As String

    If Range("C4") = "" Then
        MsgBox ("検索文字列を入力してください。")
        Range("C4").Select
        Exit Sub
    End If

    'フォルダー選択ダイアログ
    sDir = SelectFolder_FileDialog
    If sDir <> "" Then
        Range("C6") = sDir
        Range(Cells(9, 2), Cells(1000, 3)).ClearContents
        ExFolderSearch sDir, 9, 2
    End If
End Sub

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

フォルダ内文字列カウントソフト

Step 3 セルのクリアと検索文字列の追加

実行画面

VBAコード

Step 3　セルのクリアと検索文字列の追加