過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     361
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼シートのコピー  truth 02/11/19(火) 14:14
　　　┗Re:シートのコピー  Jaka 02/11/19(火) 16:45

　───────────────────────────────────────
　■題名 ： シートのコピー
　■名前 ： truth
　■日付 ： 02/11/19(火) 14:14
　-------------------------------------------------------------------------
   
シートのスタイル(余白や縮小率）のみコピーして新規シートを作成したいのですが、どうすればよいのでしょうか。


　───────────────────────────────────────
　■題名 ： Re:シートのコピー
　■名前 ： Jaka
　■日付 ： 02/11/19(火) 16:45
　-------------------------------------------------------------------------
   
▼truth さん：

>シートのスタイル(余白や縮小率）のみコピーして新規シートを作成したいのですが、どうすればよいのでしょうか。



こんにちは。



Sub fofo()

　　Dim LM As Double, RM As Double, TM As Double

　　Dim BM As Double, HM As Double, FM As Double

　　Dim ZM As Double

　　With ActiveSheet.PageSetup

　　　　LM = .LeftMargin

　　　　RM = .RightMargin

　　　　TM = .TopMargin

　　　　BM = .BottomMargin

　　　　HM = .HeaderMargin

　　　　FM = .FooterMargin

　　　　ZM = .Zoom

　　End With

　　ActiveSheet.DisplayPageBreaks = False

　　Sheets.Add

　　With ActiveSheet.PageSetup

　　　　.LeftMargin = LM

　　　　ActiveSheet.DisplayPageBreaks = False

　　　　.RightMargin = RM

　　　　ActiveSheet.DisplayPageBreaks = False

　　　　.TopMargin = TM

　　　　ActiveSheet.DisplayPageBreaks = False

　　　　.BottomMargin = BM

　　　　ActiveSheet.DisplayPageBreaks = False

　　　　.HeaderMargin = HM

　　　　ActiveSheet.DisplayPageBreaks = False

　　　　.FooterMargin = FM

　　　　ActiveSheet.DisplayPageBreaks = False

　　　　.Zoom = ZM

　　　　ActiveSheet.DisplayPageBreaks = False

　　End With

End Sub





ページ設定は、トロイんでシートを複製して内容を消去した方が速いと思う。

こんな感じに書式を戻す。（シートの複製は、マクロ記録してください。）



With Cells

　　.Clear

　　.RowHeight = 13.5

　　.ColumnWidth = 8.38

End With

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     361