Access フォームにフィルタを追加
Public Sub prcAddFilterToAnyForm(frm As Form, strAdditionalFilter As String) Dim strCurrentFilter As String ' 現在のフィルタ条件を...
VBA侍-SAMURAI
Access Excel シートAのA列に変更があった際に、その値に応じてシートBのA列で一致する値を探し出し、B列の値を取得する
Private Sub Worksheet_Change(ByVal Target As Range) ' 変数宣言 Dim rngTarget As Range ' 対象セル範囲 Dim strValue As String ' 変更され...
Access 他のDBからテーブルをインポート
Sub prcImportTableDataWithSQL() ' A.accdbのテーブルAにB.accdbのテーブルBからデータをインポートする Dim strSourceDB As String ' インポート元データベースのパス D...
Access 他のデータベース（Access）を起動する
Private Sub prcOpenDatabaseB_Click() ' 変数宣言 Dim strDatabasePath As String ' データベースBのパス Dim appAccess As Access.Applicati...
Excel 複数シートの保護時に任意の設定を行う処理（事前にシートが存在するかもチェック）
Sub prcProtectSheets() ' 変数の宣言 Dim arrSheetNames() As String ' シート名の配列 Dim strPassword As String ' シート保護のパスワード Dim strMi...
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...