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

最終更新日：2015-10-22

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

練習問題28の回答ページです、

問題

アクティブブックにはシートが複数（Sheet1,Sheet2,Sheet3）あります、

Sheet1だけを別ブックにして、計算式を抜き（値だけにする）にしてから保存して下さい。

作成したブックの保存先は、アクティブブックと同一フォルダとし、ブック名はシート名と同一にして下さい。

※Excelのファイルバージョンは、
　　2007以降ならxlsx、2003以前ならxlsで作成して下さい。

では、お考えください。

すぐに回答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

・
・・
・・・
・・・・
・・・・・

当サイトのコンテンツ

Excelマクロ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ではクリップボードが使用されますし、

何より、値だけにするなら、先の方がスマートだと思います。

また、若干余談になりますが・・・

オブジェクト変数（Workbook,Worksheet）の使い方は、人により好みで良いですが、

ここでは、全てオブジェクト変数に入れてから処理するようにしてみました。

Withを使った方が見やすいと感じる人も多いかと思います。

ただし、オブジェクト変数に入れることが基本だと覚えて置いて下さい。

例えば、
Worksheets("Sheet1").
このピリオドを入力しても、候補表示されませんが、
Set ws1 = wb1.Worksheets("Sheet1")
ws1.
このピリオドを入力した時点では候補表示されるようになります。
つまり、オブジェクト型が確定されている事になります。