Excel 指定キーワードが含まれるファイルのフルパスをリストから取得
Sub MatchKeywordsAndOutputPaths() Dim wsKeywords As Worksheet Dim wsPaths As Worksheet Dim lastRowKeywords As Long Dim l...
VBA侍-SAMURAI
Excel 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 ' 処理開始前にステータスバーを...
Excel ExcelVBAの進捗表示でホワイトアウトを防ぐ方法
1. 画面更新をオフにする処理の実行前にApplication.ScreenUpdatingをFalseに設定し、処理が完了したらTrueに戻す。これにより、処理中の画面の再描画を防ぎ、パフォーマンスを向上させることができる。Applica...