Excel

' PDFページ数取得関数のテストプロシージャ '---------------------------------------------------------------- ’呼び出すプロシージャ '-----------------...

Sub prcCopySheetAndRename() ' 変数宣言 Dim wstOriginal As Worksheet Dim wstNew As Worksheet Dim strNewName As String ' コピーする...

Function ConvertMinutesToTimeString(minutes As Long) As String Dim hours As Long Dim remainderMinutes As Long ' 分を時間と分に変...

Sub ConvertPathsToHyperlinksWithRange(lngStartRow As Long, lngEndRow As Long) Dim ws As Worksheet Dim cell As Range ' ワー...

Sub MatchKeywordsAndOutputPaths() ' 変数宣言 Dim wsKeywords As Worksheet Dim wsPaths As Worksheet Dim lngLastRowKeywords As ...

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...