Excel 複数シートの保護時に任意の設定を行う処理（事前にシートが存在するかもチェック）
Sub prcProtectSheets() ' 変数の宣言 Dim arrSheetNames() As String ' シート名の配列 Dim strPassword As String ' シート保護のパスワード Dim strMi...
VBA侍-SAMURAI
Excel Excel シート（複数）の存在をチェックし、存在しないシート名を返す関数
Function fncCheckSheetsExist(wbk As Workbook, sheetNames() As String) As String ' 変数の宣言 Dim i As Integer ' ループカウンタ Dim s...
共通 シートのタイトルが期待する値になっているか確認する関数
Function fncCheckSheetTitles(wst As Worksheet) As Boolean Dim expectedTitles As Variant Dim actualTitle As String Dim i ...
Access 自身のバックアップを行う
※要参照設定：Microsoft Scripting RuntimePublic Sub prcBackupDatabase() Dim fso As New FileSystemObject ' FileSystemObject Dim ...
Excel シート保護（オートフィルタ、-グループ化、書式設定は許可）
Sub prcProtectSheet() ' 変数宣言 Dim wsSheet As Worksheet ' 対象シート ' 対象シートを設定 Set wsSheet = ActiveWorkbook.Sheets("Sheet1") '...
Excel シートを保護し、アウトラインの操作を許可
Sub prcProtectSheetWithOutline() ' シートを保護し、アウトラインの操作を許可するプロシージャ Dim sht As Worksheet ' 作業シート Set sht = ThisWorkbook.Shee...
共通 フォルダを開く（Shell関数を使用）
Sub prcOpenFolderInExplorer() Dim strFolderPath As String ' フォルダパス strFolderPath = "C:\指定のパス" ' 開きたいフォルダのパスを指定 ' Shell関数...
Excel 各セルの値を改行区切りで連結して返す関数
' fncJoinCellValues' 各セルの値を改行区切りで連結して返す関数' 引数:' rngTarget: Range 対象のセル範囲' 戻り値:' 各セルの値を改行で連結した文字列Function fncJoinCellValu...
Excel win11
Excel 任意のフォルダ内の「サブフォルダとその中のフィアル名リスト」を作成（サブフォルダが1階層の場合）
Sub prcListFilesInSimpleOrder() ' 変数の宣言 Dim objFSO As FileSystemObject ' ファイルシステム操作オブジェクト Dim fldMain As Folder ' メインフォル...