共通 モジュールエクスポート
Sub ExportSheetNamesAndDefinedNames() Dim ws As Worksheet Dim nm As Name Dim FileNum As Integer Dim Sfx As String Dim FN...
VBA侍-SAMURAI
共通 Excel トラブル対応・改修作業時の確認事項
•タイトル: この改修作業のタイトル（例: 売上集計ツール改修） • 件名: 不具合・改修内容の件名（例: 集計結果が誤っている問題の対応） • 打ち合わせ参加者: 打ち合わせや確認作業に参加したメンバー（例: 山田、鈴木）、所属部署 • ...
Excel プロセスサンプル
1. ブックを開く 2. 開いているブックに対して処理をする（これをファイルAとする） 1. ベースファイル名が規定のファイル名になっているかを確認する 1. 規定のファイルになっていなければ処理を終了する 2. 規定のファイルになっている...
Access 選択されたフォルダ内の全ファイル（サブフォルダも含む）のフルパスとファイル名を取得し、それらをテーブルAに格納
Option Compare Database Option Explicit ' フォルダ選択ダイアログを表示し、選択されたフォルダを取得 Function GetFolder() As String Dim fDialog As Fil...
Access フォームにフィルタを追加
Public Sub prcAddFilterToAnyForm(frm As Form, strAdditionalFilter As String) Dim strCurrentFilter As String ' 現在のフィルタ条件を...
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...