Excel 特定キーワードを含むパスをフルパスリストから取得
Sub MatchKeywordsAndOutputPaths() ' 変数宣言 Dim wsKeywords As Worksheet Dim wsPaths As Worksheet Dim lngLastRowKeywords As ...
VBA侍-SAMURAI
Excel Excel 指定キーワードが含まれるファイルのフルパスをリストから取得
Sub MatchKeywordsAndOutputPaths() Dim wsKeywords As Worksheet Dim wsPaths As Worksheet Dim lastRowKeywords As Long Dim l...
Excel 指定したフォルダのファイルリストを作成（サブフォルダも含む）
Sub WriteFilesToTable(folderPath As String) Dim fso As FileSystemObject Dim folder As Folder Dim subFolder As Folder Dim...
Excel 複数フィールドを検索対象とし、キーワードに基づいて動的にフィルタを生成する処理
Sub ApplyConcatenatedFieldsFilterAndCondition() Dim strFilter As String Dim strConcatFields As String Dim strKey1 As Str...
共通 アルファベットをカナに変換
事前設定：Microsoft Scripting Runtimeへの参照設定Function ConvertAlphabetToKatakana(str As String) As String Dim alphaToKana As Dic...
Excel 指定フォルダ内のファイル数を取得する関数（サブフォルダ内のファイル数もカウント）
Function GetTotalFileCount(folderPath As String) As Long Dim fso As FileSystemObject Dim folder As Folder Dim subFolder ...
共通 処理に要した所要時間を取得
Sub CalculateProcessTimeWithoutSeconds() Dim startTime As Double Dim endTime As Double Dim elapsedTime As Double Dim hou...
Access 任意フォルダ内のサブフォルダを全て削除 →新たに10個のサブフォルダを作成
Sub CreateSubfolders() Dim fso As FileSystemObject Dim parentFolder As Folder Dim subFolder As Folder Dim folderPath As ...
Excel シートAのテキストがシートBのテキストマスタに存在しない場合はテキストマスタに新規登録する
Sub AddNewTextsToMasterUsingDictionary() ' ライブラリ参照設定済み: Microsoft Scripting Runtime Dim wsSource As Worksheet Dim wsMast...
Excel ステータスバーへの進捗表示（Excel）
Sub prcUpdateStatusBarEvery10Items() Dim i As Long Dim lngTotal As Long ' 例として100件の処理を想定 lngTotal = 100 ' 処理開始前にステータスバーを...