M99共通マクロの解説

フォームごとに同じ処理のマクロを個別に作ると、マクロの数が際限なく増えて管理が大変になります。M99共通マクロはどのフォームでも使い回せる処理をサブマクロとして一箇所に集約したものです。コントロール名を統一しておくことでフォームを問わず同じマクロが機能し、修正が必要になった場合も一箇所直すだけで全体に反映されます。オブジェクトを限定しない命令を格納する設計が乱立防止の核心です。

収録サブマクロ一覧

M99共通マクロに収録しているサブマクロの全体像です。このページで解説するものとテキスト補足にとどめるものを合わせて掲載しています。

M99共通　マクロ一覧（一部）

基本操作系

閉じる・閉じる再クエリ

フォームを閉じるだけでよい場合と、閉じた後に呼び出し元フォームを最新状態に更新したい場合で使い分けます。

サブマクロ：閉じる

フォームを閉じるだけのシンプルな構成です。

サブマクロのテキスト表示

サブマクロ：閉じる

  ウィンドウを閉じる
    オブジェクトの種類  （指定なし）
    オブジェクト名    （指定なし）
    オブジェクトの保存  確認

  マクロの中止
サブマクロの最後

マクロの設置場所

閉じるボタンのクリック時にマクロを設置します。

サブマクロ：閉じる再クエリ

フォームを閉じた後に呼び出し元フォームの表示を最新状態に更新します。

サブマクロのテキスト表示

サブマクロ：閉じる再クエリ

  ウィンドウを閉じる
    オブジェクトの種類  （指定なし）
    オブジェクト名    （指定なし）
    オブジェクトの保存  確認

  コントロールの移動
    コントロール名  閉じる

  再クエリ
    コントロール名  （指定なし）

  マクロの中止
サブマクロの最後

マクロの設置場所

閉じるボタンのクリック時にマクロを設置します。

コンボ再検索

検索コンボボックスをNullにクリアして再クエリを実行します。コントロール名を「検索」に統一しておくことでどのフォームでも使い回せます。詳細な解説は従業員リストページをご参照ください。

サブマクロ：コンボ再検索実装事例

入力補正系

備考・その他フィールド

入力時に全角で打たれた数字・カタカナ・記号を半角に統一するマクロです。フィールドの更新後処理に設置します。

サブマクロ：備考

備考フィールドの更新後処理に設定するマクロです。

サブマクロのテキスト表示

サブマクロ：備考

  値の代入
    アイテム  ＝ [備考]
    式      ＝ StrConv([備考],8)

  マクロの中止
サブマクロの最後

マクロの設置場所

備考フィールドの更新後処理にマクロを設置します。

同じ構成のサブマクロ一覧

以下のフィールドも同じ構成でアイテム名だけ変えて設置しています。

並び替え系

取引先名昇順・降順

サブフォームの表示順を略称フィールドで昇順・降順に切り替えます。
表形式のサブフォームに実装します。取引先名（略称）で表示されているデータを並び替えします。サブマクロはフォームに設置した▲▼ボタンに実装します。

実装したフォーム例

サブマクロ：取引先名昇順

サブマクロ：取引先名降順

マクロの設置場所

昇順・降順ボタンのクリック時にマクロを設置します。

日付・期間系

設計思想

日報・受注・売上など期間を指定して検索する場面では「いつから」「いつまで」という2つのコントロール名を統一しています。このコントロール名が統一されているからこそ今日・前日・今週・今月・2年間などのボタンをM99共通マクロとして使い回せます。フォームに新しく検索機能を追加する際もボタンを置いてマクロを設定するだけで即座に動作します。

また週単位・月単位のボタンを同時に操作すると日付がずれる問題を防ぐため、今週ボタンを押すと月単位ボタンが無効になり、今月ボタンを押すと週単位ボタンが無効になる仕組みを組み込んでいます。

日付系ボタン設置例

今日

日付コントロールに本日の日付をセットします。

サブマクロ：今日

サブマクロのテキスト表示

サブマクロ：今日

  値の代入
    アイテム  ＝ [日付]
    式      ＝ Date()

  再クエリ
    コントロール名  （指定なし）

  マクロの中止
サブマクロの最後

マクロの設置場所

今日ボタンのクリック時にマクロを設置します。

前日・翌日

日付コントロールの値を1日前・1日後に移動します。日付が未入力の場合はメッセージを表示して中止します。

サブマクロ：前日

日付コントロールがNullの場合は「日付を選択してから前日ボタンは有効になります」とメッセージを表示してフォーカスを日付コントロールに移動します。日付が入力済の場合は [日付]-1 で1日前の日付に更新します。

サブマクロ：翌日

サブマクロのテキスト表示

サブマクロ：翌日

  If  IsNull([日付])  Then
    メッセージボックス
      メッセージ      日付を選択してから 翌日ボタンは有効になります
      警告音        はい
      メッセージの種類  警告
      メッセージタイトル  無効
    コントロールの移動（日付）
    マクロの中止

  Else
    値の代入
      アイテム  ＝ [日付]
      式      ＝ [日付]+1
    再クエリ（）
    マクロの中止
  If文の最後

サブマクロの最後

マクロの設置場所

前日・翌日ボタンのクリック時にマクロを設置します。

今週

いつから・いつまでを今週の月曜日〜日曜日にセットします。同時に月単位ボタンを無効にして週単位ボタンを有効にします。

サブマクロ：今週

サブマクロのテキスト表示

サブマクロ：今週

  値の代入
    アイテム  ＝ [いつから]
    式      ＝ Date()-Weekday(Date(),3)

  値の代入
    アイテム  ＝ [いつまで]
    式      ＝ [いつから]+6

  値の代入（[前月].[Enabled] ＝ False）
  値の代入（[翌月].[Enabled] ＝ False）
  値の代入（[前週].[Enabled] ＝ True）
  値の代入（[翌週].[Enabled] ＝ True）

  再クエリ（）
  マクロの中止
サブマクロの最後

前週・翌週

今週と同じ構成でいつから・いつまでをそれぞれ±7します。ボタンの有効・無効は今週と同じ設定です。

マクロの設置場所

今週・前週・翌週ボタンのクリック時にマクロを設置します。

今月

いつから・いつまでを今月の1日〜末日にセットします。同時に週単位ボタンを無効にして月単位ボタンを有効にします。

サブマクロ：今月

サブマクロのテキスト表示

サブマクロ：今月

  値の代入
    アイテム  ＝ [いつから]
    式      ＝ DateSerial(Year(Date()),Month(Date()),1)

  値の代入
    アイテム  ＝ [いつまで]
    式      ＝ DateSerial(Year(Date()),Month(Date())+1,0)

  値の代入（[前月].[Enabled] ＝ True）
  値の代入（[翌月].[Enabled] ＝ True）
  値の代入（[前週].[Enabled] ＝ False）
  値の代入（[翌週].[Enabled] ＝ False）

  再クエリ（）
  マクロの中止
サブマクロの最後

前月

いつから・いつまでを前月の1日〜末日に移動します。

サブマクロ：前月

サブマクロのテキスト表示

サブマクロ：前月

  値の代入
    アイテム  ＝ [いつから]
    式      ＝ DateSerial(Year([いつから]),Month([いつまで])-1,1)

  値の代入
    アイテム  ＝ [いつまで]
    式      ＝ DateSerial(Year([いつから]),Month([いつから])+1,0)

  再クエリ（）
  マクロの中止
サブマクロの最後

翌月

前月と対称の構造です。Month([いつまで])+1,1 で翌月1日、Month([いつから])+2,0 で翌月末日を計算します。

マクロの設置場所

前月・翌月ボタンのクリック時にマクロを設置します。

今年

いつから・いつまでを今年の1月1日〜12月31日にセットします。

サブマクロ：今年

サブマクロのテキスト表示

サブマクロ：今年

  値の代入
    アイテム  ＝ [いつから]
    式      ＝ DateSerial(Year(Date()),1,1)

  値の代入
    アイテム  ＝ [いつまで]
    式      ＝ DateSerial(Year(Date()),12,31)

  再クエリ（）
  マクロの中止
サブマクロの最後

前年

いつから・いつまでを前年の1月1日〜12月31日に移動します。

サブマクロ：前年

サブマクロのテキスト表示

サブマクロ：前年

  値の代入
    アイテム  ＝ [いつから]
    式      ＝ DateSerial(Year([いつから])-1,1,1)

  値の代入
    アイテム  ＝ [いつまで]
    式      ＝ DateSerial(Year([いつまで])-1,12,31)

  再クエリ（）
  マクロの中止
サブマクロの最後

DateSerial(Year([いつから])-1,1,1) で前年1月1日、DateSerial(Year([いつまで])-1,12,31) で前年12月31日を計算します。

翌年

前年と対称の構造です。Year([いつから])+1・Year([いつまで])+1で翌年を計算します。

マクロの設置場所

前年・翌年ボタンのクリック時にマクロを設置します。

2年間・3年間

今年を起点に複数年にまたがる期間を一括でセットします。売上推移や受注履歴など年度をまたぐ分析に使います。

サブマクロ：2年間

サブマクロのテキスト表示

サブマクロ：2年間

  値の代入
    アイテム  ＝ [いつから]
    式      ＝ DateSerial(Year(Date()),1,1)

  値の代入
    アイテム  ＝ [いつまで]
    式      ＝ DateSerial(Year(Date()),12,31)

  値の代入
    アイテム  ＝ [いつから]
    式      ＝ DateSerial(Year([いつから])-1,1,1)

  再クエリ（）
  マクロの中止
サブマクロの最後

まず今年の1月1日・12月31日をセットしてからいつからを1年前に移動することで前年1月1日〜今年12月31日の2年間を設定します。

サブマクロ：3年間

サブマクロのテキスト表示

サブマクロ：3年間

  値の代入
    アイテム  ＝ [いつから]
    式      ＝ DateSerial(Year(Date()),1,1)

  値の代入
    アイテム  ＝ [いつまで]
    式      ＝ DateSerial(Year(Date()),12,31)

  値の代入
    アイテム  ＝ [いつから]
    式      ＝ DateSerial(Year([いつから])-2,1,1)

  再クエリ（）
  マクロの中止
サブマクロの最後

マクロの設置場所

2年間〜5年間ボタンのクリック時にマクロを設置します。

まとめ

M99共通マクロはコントロール名の統一を前提に設計したフォーム共通の処理ライブラリです。フォームを閉じる・検索をリセットする・日付を操作するといった頻出処理を一箇所に集約することでマクロの乱立を防ぎ、修正が必要になった場合も一箇所直すだけで全体に反映されます。新しいフォームを作る際もM99共通のサブマクロをそのまま設置するだけで動作するため、開発スピードが大幅に上がります。コントロール名の命名ルールとセットで運用することで真価を発揮する設計です。