Sep 12, 2019
Buttonなどの図形全般を扱うShapesコレクションを使ってボタンを消してシートをコピーする
売上表についてシートのコピーをしていまいしたが、マクロを実行するボタンを取っておいたままコピーしたくないため、ボタンを消すコードを追加しました。
まずはコピーする部分を少し変えて、ボタンがあるシートも選択してコピーするようにします。
Set temp = Sheets("start") temp.Select False
For i = 1 To sh_count + 1 Set temp = temp.Next temp.Select False Next
------before------
-----after-------
そして、ボタンを消すコードを追加します。
こうすると、自動計算モードだとかなり処理に時間がかかってしまいますので、自動計算をオフにするコードも足しておきます。
もちろん、自動計算の設定をもとに戻しておくのも忘れずに。
今回はコピー元とコピー先の２つのブックがあるので、どちらも戻しておきます。
これで集計結果も保存された状態でコピーができました。