![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
お世話になります。
下記のコードでシートをコピーし、新規ブックに保存しています。
マクロを削除して保存するにはどのようにしたらよいでしょうか?
コードはsheet5に記入しています。
ちなみにセルだけをコピペして、シートの設定もコピーできるコード
もあるハズですよね?
書式、列の幅、行の高さ、ページ設定、をコピーしたいので、
どなたかご教授お願いします。
Private Sub 保存()
Dim ns As Workbook
Dim msg As String
Sheets("sheet5").Copy
Set ns = ActiveWorkbook
msg = IIf(Application.Dialogs(xlDialogSaveAs).Show(ARG1:="" & ".xls", ARG2:=1), "保存", "キャンセル")
ns.Close (False)
Set ns = Nothing
MsgBox msg & "しました。"
End Sub
No.2
- 回答日時:
何を聞きたいのか判らん。
>マクロを削除して保存するにはどのようにしたらよいでしょうか
と標題や質問文の中にあり
質問の途中から
>セルだけをコピペして、シートの設定もコピーできるコード
もあるハズですよね?
書式、列の幅、行の高さ、ページ設定、をコピーしたいので
と別のことらしいことを言っているのでは。
ーーー
「質問文のマクロを後半の内容に改善したい」ってこと?
No.1
- 回答日時:
おや、どこかで見たコードだと思ったら・・・・。
シートモジュールにマクロがあったのですね。
最初からそう書いてくだされば最初からこう書いたのですが。
ただし、ブック保護してるとエラーになりますからもしそうならブック保護解除&作業終了時にブック保護のコードを付け加えてくださいね。
Private Sub 保存2()
Dim ns As Worksheet
Dim nb As Workbook
Dim msg As String
Set ns = Worksheets.Add
Sheets("Sheet5").Cells.Copy
ns.Cells.PasteSpecial
ns.Copy
Set nb = ActiveWorkbook
msg = IIf(Application.Dialogs(xlDialogSaveAs).Show(ARG1:=".xls", ARG2:=1), "保存", "キャンセル")
nb.Close (False)
Application.DisplayAlerts = False
ns.Delete
Application.DisplayAlerts = True
Set ns = Nothing
Set nb = Nothing
MsgBox msg & "しました。"
End Sub
merlionXXさん、先日に続き、ありがとうございました。
完璧です!!
まだまだ勉強が足りないのですが、なんとか覚えてきました。
ちなみにmerlionXXさんがVBAを覚えるにあたってどのように
してきたのかお聞きかせいただけませんでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 3個のfileのセルデータを1個のfileのセルに貼り付けるVBAコードですが。 1 2023/02/20 09:21
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel:VBAブック保存時にマクロをはずずには
Excel(エクセル)
-
【ExcelVBA】指定の書式で、マクロなしブックとしてAlertなしで別名保存する方法
Visual Basic(VBA)
-
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
-
4
VBAでマクロを使って、マクロ無効のエクセルシートとして名前を付けて保
その他(Microsoft Office)
-
5
マクロでマクロを削除する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルを共有するとPCによっ...
-
VBAでブックを非表示で開いて処...
-
エクセル2016です。「ブッ...
-
エクセルで参照しているデータ...
-
Excelで複数ブックの同一セルに...
-
エクセルで50行ごとに区切った...
-
エクセルの関数 ENTERを押...
-
フォルダ内の複数ファイルから...
-
エクセルファイルをオープンし...
-
エクセルで「ディスクがいっぱ...
-
エクセルで複数のシートを別フ...
-
VBAでブック保護非保護を判定す...
-
VBA: ブックをアクティベイトで...
-
WorkBooksをオープンさせずにシ...
-
VBA:ワークブックを変数でActi...
-
エクセルでウィンドウの枠固定...
-
複数ファイルから特定シートの...
-
Excel(2010)のフィルターが保...
-
【マクロ】【VBA】別ブックへの...
-
エクセルファイルを開かずにpdf...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
エクセルを共有するとPCによっ...
-
エクセルで参照しているデータ...
-
WorkBooksをオープンさせずにシ...
-
Excel(2010)のフィルターが保...
-
フォルダ内の複数ファイルから...
-
Excelでブックの共有を掛けると...
-
複数ファイルから特定シートの...
-
エクセルで「ディスクがいっぱ...
-
Excelで複数ブックの同一セルに...
-
エクセルファイルを開かずにpdf...
-
エクセルで別ブックをバックグ...
-
エクセルで50行ごとに区切った...
-
外部ブック参照が#REF!になって...
-
エクセル2016です。「ブッ...
-
エクセルの関数について教えて...
-
エクセルシートの一部を送りたい
-
ブックのピボットを別ブックに...
-
Excel起動時に特定のワークシー...
おすすめ情報