フォルダ内文字列カウントソフト
Step 3 セルのクリアと検索文字列の追加
ファイル一覧の表示する範囲を事前にクリアするのと、検索文字列欄を追加します。検索文字列が入力されていない場合は、メッセージを表示させます。
Homeに戻る > 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
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
Homeに戻る > Excelでアプリケーションソフト３ > フォルダ内文字列カウントソフト
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved