#Application.Caluculation

[kotaexcel]

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-------

そして、ボタンを消すコードを追加します。

こうすると、自動計算モードだとかなり処理に時間がかかってしまいますので、自動計算をオフにするコードも足しておきます。

もちろん、自動計算の設定をもとに戻しておくのも忘れずに。

今回はコピー元とコピー先の２つのブックがあるので、どちらも戻しておきます。

これで集計結果も保存された状態でコピーができました。