Excel

Sub prcProtectSheetWithOutline() ' シートを保護し、アウトラインの操作を許可するプロシージャ Dim sht As Worksheet ' 作業シート Set sht = ThisWorkbook.Shee...

' fncJoinCellValues' 各セルの値を改行区切りで連結して返す関数' 引数:' rngTarget: Range 対象のセル範囲' 戻り値:' 各セルの値を改行で連結した文字列Function fncJoinCellValu...

Sub prcListFilesInSimpleOrder() ' 変数の宣言 Dim objFSO As FileSystemObject ' ファイルシステム操作オブジェクト Dim fldMain As Folder ' メインフォル...

=DATE("20" & LEFT(MID(CELL("filename", A1), FIND("]", CELL("filename", A1)) + 1, 255), 2), MID(MID(CELL("filename", A1),...

Sub prcListSubfolders() Dim dlgFolder As FileDialog ' フォルダ選択用のダイアログ Dim strFolderPath As String ' 選択されたフォルダのパス Dim fsoFi...

Sub prcRenameFolders() Dim lngRowStart As Long ' 処理開始行 Dim lngRowEnd As Long ' 処理終了行 Dim lngRow As Long ' 現在処理中の行 Dim st...

Sub prcSplitPath() Dim rngCell As Range ' 各セルをイテレートするための変数 Dim strPath As String ' 入力されたフルパス Dim fso As FileSystemObject...

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