VBでなんとかできる、と聞いたのですが

質問

VB関係のサイトを見たのですが、解らなかったので、こちらで質問させてください。

エクセルファイルを使って、雑多な集計を行っています。本来ならばこれをメールで送り、確認をしてもらうのが最善なのですが、ファイルが重くなってしまい、メールに添付できません。このため、集計のページだけを、エクセルの別のファイルで出力したいのです。

従来は、これの数式を消して、いらないページを消して・・・という操作を行ったり、別ファイルに貼り付けたりしていましたが、今後は自分以外の人間がこの操作を行うことになり、不安なもので・・・。

必要な項目など、不足部分ありましたらできるだけ即時対応いたしますので、よろしくお願いします。

回答No.3

Wendy02 · ベストアンサー

こんばんは。

話は良く分かりませんが、単に、このようなことでよいのではないかなって思いました。

保存などは、ユーザーご自身でおやりいただくものとします。

Sub TestCopy()
ActiveSheet.Copy
ActiveSheet.UsedRange.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = xlCopy
Range("A1").Select
End Sub

お礼

ありがとうございます！
やりたいと思っていた操作が行えました！
本当に助かりました！

回答No.2

NCU

ActiveSheet.UsedRange の値（Value）を値（Value）で上書きするだけの（通常）３行のコードで、シートのすべての数式を計算結果に置き換えることができます。
後は、当該シートを新しいブックとしてコピーし、保存する操作ですが、マクロ記録で簡単にできます。
質問者のスキルアップの芽を摘んでしまうことになりますので、サンプルの提示はできませんが。
ただこういうものって、作り込みがすべてなんですよね。
道のりは長いわけですが、勉強してください。

回答No.1

process9

送信用ページとして集計ページと全く同じ
フォーマット（データ以外全く同じ）のページ
を作成して、

　１．保存
　２．形式選択コピー
　３．シート削除
　４．別名保存
の順に処理するマクロかＶＢＡ
を作れば、いいのではないでしょうか。