テンプレートシートの書式と列幅を別のシートにコピーする - アプリケーションとしてのVBA

◆テンプレートシートの書式と列幅を別のシートにコピーする VBAでアプリケーションを作成するときに、作成する表の書式をテンプレートから コピーできるようにしておくと、一層汎用性を高めることができます。 テンプレートシートから書式をコピーする方法の説明です。 Sub test1() Dim i As Integer 'Excel 2002以上ではこんなことをしなくても 'xlPasteColumnWidths の定数がそのまま使えます Const pxlPasteColumnWidths = 8 'C列からH列目までの書式のCopy For i = 3 To 8 'シート1の選択 Sheets(1).Select 'i列の2行目のセルをCopy Cells(2, i).Select Selection.Copy 'シート2の選択 Sheets(2).Select 'i列全体を選択して書式だけ

[tech-kazuhisa]

[vba]