データ取得の次は、データ更新を行ってみる。
「StiLL」のボタンテンプレートから左上のボタンを貼り付け、そのボタンをクリックして「Excelデータ更新」を選択すると、設定ダイアログが表示された。
ヘルプによると、更新対象位置の項目名と入力レコード位置で指定したキー列の項目名（最大４つまでＯＫ）で同じレコードがあれば更新、なければ追加の処理となる。
ここで簡単な伝票番号のインクリメント処理を作ってみたい。
下図のように、シート上にＩＤ、伝票Ｎｏ、枝番、updateの４項目のデータを準備した。
ＩＤは１固定とし、元データと更新用データをそれぞれ用意。
更新用データで元データを更新する。
図に表示されていないが、セルＪ８には関数（TODAY）が入力されている。
更新用データにチョット数式と関数を使って、同日更新F（updateの変化）をみて、日付が変わったときは伝票Ｎｏをインクリメントし、同じ日付の場合は枝番をインクリメントする動きにしてみた。なお伝票Ｎｏをインクリメントするときは枝番を初期化する。（上図説明参照）
肝心のボタンの設定は次の通り。極めて簡素だ。
「Excelデータ更新」ボタンをクリックして実行すると、最初は日付が違うので、元データの伝票Ｎｏがインクリメント（＋１）された。
またupdateも置き換えられ、同日更新Fの値は１になった。（更新用データの伝票Ｎｏは変わらず）
もう一度「Excelデータ更新」ボタンをクリックすると。
今度は枝番がインクリメントされた。
以降、クリックする度、枝番が＋１されていく。
たぶん、明日になれば伝票Ｎｏが＋１され、２となるだろう。
今回はExcelの要素が多くみえたが、このような更新処理はExcelのみではできない。
もちろんＶＢＡでプログラムを作りボタンに関連付けすることはできるが、こんなに簡素にはいかない。簡素な分、逆にExcelでの設定部分が目立ってしまったのかもしれない。
続く。
PR
