Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


70128 / 76733 ←次へ | 前へ→

【11116】Re:1枚だけのシートを保存する方法は?
回答  かみちゃん  - 04/2/28(土) 14:54 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>新規ブックを追加し、そのブックにコピーして、その後、既存の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

0 hits

【11092】1枚だけのシートを保存する方法は? miyake 04/2/27(金) 21:58 質問
【11093】Re:1枚だけのシートを保存する方法は? かみちゃん 04/2/27(金) 22:04 回答
【11107】Re:1枚だけのシートを保存する方法は? miyake 04/2/28(土) 11:56 質問
【11116】Re:1枚だけのシートを保存する方法は? かみちゃん 04/2/28(土) 14:54 回答
【11110】Re:1枚だけのシートを保存する方法は? Jカーター 04/2/28(土) 12:20 回答
【11113】Re:1枚だけのシートを保存する方法は? Jカーター 04/2/28(土) 12:47 発言
【11117】ありがとうございます miyake 04/2/28(土) 15:51 お礼

70128 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free