Excel

Sub MatchKeywordsAndOutputPaths() Dim wsKeywords As Worksheet Dim wsPaths As Worksheet Dim lastRowKeywords As Long Dim l...

Sub WriteFilesToTable(folderPath As String) Dim fso As FileSystemObject Dim folder As Folder Dim subFolder As Folder Dim...

Sub ApplyConcatenatedFieldsFilterAndCondition() Dim strFilter As String Dim strConcatFields As String Dim strKey1 As Str...

Function GetTotalFileCount(folderPath As String) As Long Dim fso As FileSystemObject Dim folder As Folder Dim subFolder ...

Sub AddNewTextsToMasterUsingDictionary() ' ライブラリ参照設定済み: Microsoft Scripting Runtime Dim wsSource As Worksheet Dim wsMast...

Sub prcUpdateStatusBarEvery10Items() Dim i As Long Dim lngTotal As Long ' 例として100件の処理を想定 lngTotal = 100 ' 処理開始前にステータスバーを...

1. 画面更新をオフにする処理の実行前にApplication.ScreenUpdatingをFalseに設定し、処理が完了したらTrueに戻す。これにより、処理中の画面の再描画を防ぎ、パフォーマンスを向上させることができる。Applica...

Function fncConvertAlphanumericAndSpaceToHalfWidth(strInput As String) As String Dim i As Long Dim strOutput As String: ...

Sub prcApplyAutoFilterAndColor() Dim ws As Worksheet Dim rng As Range Dim lastRow As Long Dim visibleCells As Range ' シー...

Sub prcCompareSheets() Dim wbkA As Workbook, wbkB As Workbook Dim shtA As Worksheet, shtB As Worksheet Dim rngCell As Ra...