＜タイトル＞
ビットマップメーカー

＜内容＞
　表計算ソフト、エクセルのマクロでビットマップのデータを生成す
るツールを作成しました。セルに１から３の数字を書き、計算ボタン
を押します。シートが２枚あり、２×２、４×４の２種類のビットマ
ップデータが作成できます。
　生成されたデータをカットアンドペーストでエディタにコピーする。

＜動作環境＞
　Ｗｉｎｄｏｗｓ９８／Ｍｅ（ＮＴ／２０００もたぶん大丈夫）
上のＥｘｃｅｌ２０００　確認は９８、Ｍｅでしか行なってません。

＜操作＞
　各セルに０から３の数字を４種類の色番号として書き込みます。なに
も書かなければ０として扱います。計算ボタンを押すと、入力したデー
タからビットマップデータを生成します。入力データの右側のセルは１
行ずつ別計算されたデータです。最上段の生成データは４ブロックを左
上、右上、左下、右下の順で結合したデータです。
　クリアボタンは入力データと計算値をクリアします。そのとき右上の
バックアップを１にしておくと入力データをバックアップ位置にコピー
します。必要に応じてバックアップの右セルに０、１を入れます。バッ
クアップしたデータを戻すボタンは用意していませんから、コピーアン
ドペーストで元に戻します。
　表示されるときの目安になるように、入力セルの下に色で表示するよ
うにしました。クリアボタンの下にある表の色の欄に色番号を入力しま
す。使用する色はサンプルとして挙げた番号を入力するか、２０番から
の番号にＲＧＢで設定して、その番号を表に入力します。セルの位置を
指定してデータを読み込んでいますので、セル位置は移動しないでくだ
さい。
　生成データをエディタにコピーするときは、生成データセルをそのま
まコピー＆ペーストすると、データが””で囲まれてしまいます。
セルを選択したときにツールバーに表示されるデータの方をコピーする
とそのまま使えます。

＜技術情報＞
　エクセルＶＢＡです。　以上。
　内容はＶＢエディタを起動してみると実に短いプログラムで、すぐわ
かると思います。
　カラー版も作成したかったのですが、いまいち仕様がわからず今回は
あきらめました。

＜わたし＞
宍戸　勝浩
北海道石狩郡当別町太美町　在住
北海道工業大学　機械工学科　卒業（流体力学研究室）