Excel 指定したフォルダのファイルリストを作成（サブフォルダも含む）
Sub WriteFilesToTable(folderPath As String) Dim fso As FileSystemObject Dim folder As Folder Dim subFolder As Folder Dim...
Excel
Excel Excel 複数フィールドを検索対象とし、キーワードに基づいて動的にフィルタを生成する処理
Sub ApplyConcatenatedFieldsFilterAndCondition() Dim strFilter As String Dim strConcatFields As String Dim strKey1 As Str...
Excel 指定フォルダ内のファイル数を取得する関数（サブフォルダ内のファイル数もカウント）
Function GetTotalFileCount(folderPath As String) As Long Dim fso As FileSystemObject Dim folder As Folder Dim subFolder ...
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...
Excel 英字、数値、スペースのみ半角に変換する
Function fncConvertAlphanumericAndSpaceToHalfWidth(strInput As String) As String Dim i As Long Dim strOutput As String: ...
Excel オートフィルタで複数条件をセットする
Sub prcApplyAutoFilterAndColor() Dim ws As Worksheet Dim rng As Range Dim lastRow As Long Dim visibleCells As Range ' シー...
Excel 2つのブックの全セルを比較→異なっている値を出力する
Sub prcCompareSheets() Dim wbkA As Workbook, wbkB As Workbook Dim shtA As Worksheet, shtB As Worksheet Dim rngCell As Ra...
Excel フィルタ抽出状態のセルにユーザー定義関数を入力、可視セルへコピー
Sub prcApplyFormulaWithCondition() ' 概要: D列が空白の場合にフィルタを適用し、条件に合致する可視セルのH列にユーザー定義関数を入力します。 ' H列に数式を入力する前に、表示形式を「数値」に変更し、2...