VBA侍-SAMURAI

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' セルA1をダブルクリックした時に指定のURLを開く Dim strURL...

Function fncCountFilesByExtension(ByVal strFolderPath As String, ByVal strExtension As String) As Long ' 指定されたフォルダ内の特定の拡...

’呼び出し側の処理Sub prcTestGetPDFPageCountInFolder() Dim strFolder As String Dim strFile As String Dim lngPageCount As Long Dim...

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