VBA侍-SAMURAI

Sub prcAddSequenceToFileNamesWithConfirmation() Dim strBase As String Dim lngLastRow As Long Dim i As Long Dim intRespon...

Sub prcSplitFilePath() Dim wst As Worksheet Dim lngLastRow As Long Dim lngRow As Long Dim strFullPath As String Dim strF...

Sub prcListFilesInFolderWithSubfolders() Dim fso As FileSystemObject ' FileSystemObjectのインスタンス Dim fld As Folder ' 処理中のフ...

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