リストボックスの活用~応用③

Pocket

前回の内容でコマンドボタンを押し続けると、どんどん新しいものが追加されてしまいます。
2510271

これを回避するために、VBAコードを1行追加します。
2510272
ListBox1.Clear
を追加します。これでコマンドボタンを押すごとにリストボックスが一旦リセットされ、
コマンドボタンを何度押しても、同じものが何度も出てくることはなくなります。
これでコマンドボタンを押したときのVBAコードは完成です。

あとは残りのコマンドボタンを押したときのコードを入れていきます。
2510273
通信費を押したときのコードをコピーし、上記の図の数字のところを変更するだけです。

実行結果です。
2510274