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

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

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

メニューに戻る

スポンサーリンク





実行画面

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

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

スポンサーリンク



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




メニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved