|
こんにちは。かみちゃん です。
>新規ブックを追加し、そのブックにコピーして、その後、既存のsheet1からsheet3を削除する方法でよろしいのでしょうか。また、コピー元シートにコマンドボタンがいくつか配置されており、コピー後にすべてのコマンドボタンを削除し登録されているマクロも消去したいと思いますが、簡単な方法はありますか。
Jカーターさんも書かれていましたが、新規ブックにコピーするのは、保存したいシートだけです。ですから、シートを削除する必要はありません。
ただし、前のコメントにも書きましたが、シート間の計算式は考慮しなくてもいいのでしょうか?
「コピー後にすべてのコマンドボタンを削除」するのは、次のコードでできると思います。
Sub OLEObjects_Del()
'progIDについては、ヘルプまたは次のURLを参照
'http://www.moug.net/skillup/opm/opm01-04.htm
Dim obj As OLEObject
'アクティブシートのコマンドボタンをすべて削除する。
For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.CommandButton.1" Then
obj.Delete
End If
Next
End Sub
|
|