Access フォーム上でアクティブなレコードを新規レコードとして追加（一部のフィールドは値を変更）
Sub prcCopyActiveRecordWithValuesDefinedInCase() Dim rst As DAO.Recordset Dim fld As DAO.Field ' 現在のフォームのRecordsetCloneを...
VBA侍-SAMURAI
Access Excel 末尾が連番になるファイル名を生成
Sub prcAddSequenceToFileNamesWithConfirmation() Dim strBase As String Dim lngLastRow As Long Dim i As Long Dim intRespon...
Excel フルパスからフォルダパスとファイル名を分割出力
Sub prcSplitFilePath() Dim wst As Worksheet Dim lngLastRow As Long Dim lngRow As Long Dim strFullPath As String Dim strF...
Excel フォルダ内に存在する全てのファイルのフルパスを取得（サブフォルダも含む）
Sub prcListFilesInFolderWithSubfolders() Dim fso As FileSystemObject ' FileSystemObjectのインスタンス Dim fld As Folder ' 処理中のフ...
Excel ダブルクリックで任意のwebサイトを起動
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' セルA1をダブルクリックした時に指定のURLを開く Dim strURL...
Excel 指定されたフォルダ内の特定の拡張子を持つファイルの数をカウント
Function fncCountFilesByExtension(ByVal strFolderPath As String, ByVal strExtension As String) As Long ' 指定されたフォルダ内の特定の拡...
Excel PDFのページ数を取得（PDF側に特定できる文字が存在する場合）
’呼び出し側の処理Sub prcTestGetPDFPageCountInFolder() Dim strFolder As String Dim strFile As String Dim lngPageCount As Long Dim...
Excel PDFファイルのページ数を取得する
' PDFページ数取得関数のテストプロシージャ'----------------------------------------------------------------’呼び出すプロシージャ'--------------------...
Excel シートのコピー（シート名に対する位置指定）
Sub prcCopySheetAndRename() ' 変数宣言 Dim wstOriginal As Worksheet Dim wstNew As Worksheet Dim strNewName As String ' コピーする...
Excel 分を●時間●分のような文字列で取得する関数
Function ConvertMinutesToTimeString(minutes As Long) As String Dim hours As Long Dim remainderMinutes As Long ' 分を時間と分に変...