Excel シート保護（オートフィルタ、-グループ化、書式設定は許可）
Sub prcProtectSheet() ' 変数宣言 Dim wsSheet As Worksheet ' 対象シート ' 対象シートを設定 Set wsSheet = ActiveWorkbook.Sheets("Sheet1") '...
Excel
Excel Excel シートを保護し、アウトラインの操作を許可
Sub prcProtectSheetWithOutline() ' シートを保護し、アウトラインの操作を許可するプロシージャ Dim sht As Worksheet ' 作業シート Set sht = ThisWorkbook.Shee...
Excel 各セルの値を改行区切りで連結して返す関数
' fncJoinCellValues' 各セルの値を改行区切りで連結して返す関数' 引数:' rngTarget: Range 対象のセル範囲' 戻り値:' 各セルの値を改行で連結した文字列Function fncJoinCellValu...
Excel win11
Excel 任意のフォルダ内の「サブフォルダとその中のフィアル名リスト」を作成（サブフォルダが1階層の場合）
Sub prcListFilesInSimpleOrder() ' 変数の宣言 Dim objFSO As FileSystemObject ' ファイルシステム操作オブジェクト Dim fldMain As Folder ' メインフォル...
Excel Excel標準関数でシート名を取得し、日付に変換
=DATE("20" & LEFT(MID(CELL("filename", A1), FIND("]", CELL("filename", A1)) + 1, 255), 2), MID(MID(CELL("filename", A1),...
Excel フォルダに含まれるサブフォルダのリストを作成
Sub prcListSubfolders() Dim dlgFolder As FileDialog ' フォルダ選択用のダイアログ Dim strFolderPath As String ' 選択されたフォルダのパス Dim fsoFi...
Excel フォルダのリネーム
Sub prcRenameFolders() Dim lngRowStart As Long ' 処理開始行 Dim lngRowEnd As Long ' 処理終了行 Dim lngRow As Long ' 現在処理中の行 Dim st...
Excel フォルダパスから親フォルダとフォルダ名を分割
Sub prcSplitPath() Dim rngCell As Range ' 各セルをイテレートするための変数 Dim strPath As String ' 入力されたフルパス Dim fso As FileSystemObject...
Excel 末尾が連番になるファイル名を生成
Sub prcAddSequenceToFileNamesWithConfirmation() Dim strBase As String Dim lngLastRow As Long Dim i As Long Dim intRespon...