練習問題28（シートを別ブックにして値のみにする）解答

公開日：2013年5月以前　最終更新日：2019-06-27

練習問題28（シートを別ブックにして値のみにする）解答

マクロVBA練習問題28の解答ページです。

マクロVBA練習問題

アクティブブックにはシートが複数（Sheet1,Sheet2,Sheet3）あります。
Sheet1だけを別ブックにして、計算式を抜き（値だけに）にしてから保存して下さい。
作成したブックの保存先は、アクティブブックと同一フォルダとし、ブック名はシート名と同一にして下さい。

※Excelのファイルバージョン

2007以降ならxlsx、2003以前ならxlsで作成して下さい。

練習問題用のExcelファイル

こちらからダウンロードできます。zipはこちらです。

では、お考えください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

当サイトのコンテンツ

ExcelマクロVBA入門

この「VBA入門」シリーズは、マクロVBAを習得し、日々のExcel作業を効率化・自動化できるようになることを目指します。VBAが初めての方でも無理なくステップアップできるよう、基礎から丁寧に、そして段階的に解説を進めます。そのため、シリーズ後半では入門レベルに留まらず、実務レベルで通用する高度なテクニックや幅広い知…

書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。

マクロVBA練習問題解答

では解答のマクロVBAコードです。


  
    
      Sub 練習問題28()

      　　Dim wb1 As Workbook, ws1 As Worksheet

      　　Dim wb2 As Workbook, ws2 As Worksheet

      　　Set wb1 = ActiveWorkbook

      　　Set ws1 = wb1.Worksheets("Sheet1")

      　　ws1.Copy

      　　Set wb2 = ActiveWorkbook

      　　Set ws2 = wb2.ActiveSheet

      　　ws2.UsedRange.Value = ws2.UsedRange.Value

      　　If CInt(Application.Version) < 12 Then

      　　　　wb2.SaveAs ThisWorkbook.Path & "\" & ws2.Name & ".xls"

      　　Else

      　　　　wb2.SaveAs ThisWorkbook.Path & "\" & ws2.Name & ".xlsx"

      　　End If

      　　wb2.Close

      End Sub

今回の肝は、
ws2.UsedRange.Value = ws2.UsedRange.Value
これで、当該シートの数式は消えて値のみになります。
ここで、
ws2.Cells.Value = ws2.Cells.Value
これでも良さそうですが、
Excel2007以降の形式では、多くのPCでメモリ不足が出てしまいます。
つまり、100万行*1万列以上の範囲指定は、ちょっときびしいということです。
また、
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
これでも良いのですが、.Copyではクリップボードが使用されますし、
何より、値だけにするなら今回提示のVBAコード方がスマートだと思います。

また、若干余談になりますが・・・
オブジェクト変数（Workbook,Worksheet）の使い方は、人により好みが分かれる部分ですが、
今回は、全てオブジェクト変数に入れてから処理するようにしてみました。
Withを使った方が見やすいと感じる人も多いかと思います。
自分なりに書きやすく読みやすいと思うVBAコードで書いてみてください。

ただし、オブジェクト変数に入れることが基本だとだけは覚えておいて下さい。
例えば、
Worksheets("Sheet1").
このピリオドを入力しても、候補表示されませんが、
Set ws1 = wb1.Worksheets("Sheet1")
ws1.
このピリオドを入力した時点では候補表示されるようになります。
つまり、オブジェクト型が確定されている事になります。
オブジェクト変数を上手く使えるようになることは、VBA上達の要でもあります。

同じテーマ「マクロVBA練習問題解答」の記事

練習問題23（総合練習5）解答
 練習問題24（再帰呼出し）解答
 練習問題25（各種VBA関数）解答
 練習問題26（全シート処理とハイパーリンク）解答
 練習問題27（データ分割し別ブック保存）解答
練習問題28（シートを別ブックにして値のみにする）解答
練習問題29（ロット引き当て）解答
 練習問題30（マトリックス→リスト形式）解答
 練習問題31（セル結合を解除して値を埋める）解答
 練習問題32（連続数値部分を取り出し記号で連結）解答
 初級脱出10問パック解答

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA入門編
マクロVBA練習問題解答
練習問題28（シートを別ブックにして値のみにする）解答

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBA練習問題解答
練習問題28（シートを別ブックにして値のみにする）解答