エクセルで入力支援(2)

昨日と同じテーマで、
「データを、リストから選択した順に入力する」方法です。

昨日は、単純なマクロで実現しました。
しかし、もともと「エクセルの複数選択リストボックス」記事から派生した話題なので、
意地でもリストボックスを使ってやることにしてみました。
#なぜ、意地を張るのか、わかりませんが^^;
 

サンプルのエクセルファイルは、こちらからダウンロードしてください。

シートのイベントマクロは、そのまま。
「指定範囲を選択したら、フォームを表示しろ」というものです。

フォームには、「選択解除」ボタンも用意しました。
同じ項目を、連続して選択することもできるようにするためです。

で、フォームのイベントは、いろいろ。
・リストボックスの項目を選択したら、D1セルに追記していく。
・「OK」ボタンが押されたら、D1セルの内容をカレントセルに入力する。
・「選択解除」ボタンが押されたら、リストボックスの選択を解除する。
・リストボックスが消えるとき、選択解除状態にする。

D1セルは、文字色を白にしています。
どんな感じで追記されていくか見たい時は、文字色を黒などにしてください。