共通 シートのタイトルが期待する値になっているか確認する関数
Function fncCheckSheetTitles(wst As Worksheet) As Boolean Dim expectedTitles As Variant Dim actualTitle As String Dim i ...
VBA侍-SAMURAI
共通 Access 自身のバックアップを行う
※要参照設定：Microsoft Scripting Runtime Public 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 fncJoinCe...
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...