Excel 任意のフォームの特定レコードに移動
Public Sub prcMoveFocusToRecord(ByVal strFormName As String, ByVal strFieldName As String, ByVal varSearchValue As Varia...
VBA侍-SAMURAI
Excel Excel テーブルAにテーブルB（親階層）→テーブルC（子階層）を順次追加
Sub prcWrikeテーブル追加() Dim dbs As DAO.Database Dim rstWrike As DAO.Recordset Dim rstPrj As DAO.Recordset Dim rstTask As DA...
Excel 回帰テスト
回帰テスト（リグレッションテスト）とは？回帰テスト（Regression Testing）とは、コードを改修した際に、改修した部分だけでなく、他の機能に影響が出ていないか確認するテスト です。つまり、「修正したことで別のバグを生んでいないか...
共通 モジュールエクスポート
Sub ExportSheetNamesAndDefinedNames() Dim ws As Worksheet Dim nm As Name Dim FileNum As Integer Dim Sfx As String Dim FN...
Excel トラブル対応・改修作業時の確認事項
•タイトル: この改修作業のタイトル（例: 売上集計ツール改修）• 件名: 不具合・改修内容の件名（例: 集計結果が誤っている問題の対応）• 打ち合わせ参加者: 打ち合わせや確認作業に参加したメンバー（例: 山田、鈴木）、所属部署• 不具合...
Excel プロセスサンプル
1. ブックを開く2. 開いているブックに対して処理をする（これをファイルAとする） 1. ベースファイル名が規定のファイル名になっているかを確認する 1. 規定のファイルになっていなければ処理を終了する 2. 規定のファイルになっている場...
Access 選択されたフォルダ内の全ファイル（サブフォルダも含む）のフルパスとファイル名を取得し、それらをテーブルAに格納
Option Compare DatabaseOption Explicit' フォルダ選択ダイアログを表示し、選択されたフォルダを取得Function GetFolder() As String Dim fDialog As FileDi...
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...