新しいシートが表示されません。

質問

Sub 新清算書シート作成()
'
' 新清算書シート作成 Macro
' 新しいシートに交通費清算書を作成する
'

'
Worksheets("新清算書").Range("b1:f22").Copy

Set NewSheet = Sheets.Add(Type:=xlWorksheet)
ActiveSheet.Paste Destination:=NewSheet.Range("b1:f22")
NewSheet.Visible = True
NewSheet.Name = Sheets("メニュー").Range("A3").Value & Sheets("メニュー").Range("B3").Value
Worksheets("メニュー").Range("A3").Copy NewSheet.Range("D4")
Worksheets("メニュー").Range("B3").Copy NewSheet.Range("F4")

ActiveWindow.SelectedSheets.Visible = False
End Sub

サンプルコードを勉強し自分なりに変えて作っています。　このコードでNewSheet.Visible = True　があるにも関わらず、シートが表示されなくて困っています。しかし書式からシート→再表示にいけば表示は可能です。NewSheet.Visible = True　以外にも方法はありますか？

　また新清算書をマクロで実行してコピーしても完璧にはコピーできず、セルの中身はコピーできるのですが、セルの行や列の幅まできれいにコピーできません。完璧にコピーするにはどうすればいいのでしょうか？

回答No.1

papayuka · ベストアンサー

NewSheet.Visible = True は通常不要です。
表示されないのは ActiveWindow.SelectedSheets.Visible = False で隠している為です。
この２行を消せば希望の内容になると思います。

列幅などは、シートそのものをコピーするか、下記のようにセル全部をコピーしちゃうとか、、、

Sub test()
Dim NewSheet As Worksheet
　On Error Resume Next
　Set NewSheet = Worksheets.Add(Type:=xlWorksheet)
　Worksheets("新清算書").Cells.Copy Destination:=NewSheet.Cells
　With Worksheets("メニュー")
　　　NewSheet.Name = .Range("A3").Value & .Range("B3").Value
　　　NewSheet.Range("D4").Value = .Range("A3").Value
　　　NewSheet.Range("F4").Value = .Range("B3").Value
　End With
End Sub

お礼

２点についての質問の回答ありがとうございました。

希望通りにできました。ありがとうございました。