|
開いておけば、楽に自動マクロで可動するんですね!!
ありがとうございました。
下のコードは行間はコピーされないようですので、自分で自動記録で追加しました。
しかし、よく、開かずに起動させてしまうので、下のコードをマクロボタンに登録してマクロボタンを押すとメッセージボックスで注意を表示させることはできますか?
Sub Sheetcopy1()
'
' Sheetcopy1 Macro
' マクロ記録日 : 2006/10/22 ユーザー名 : Kyozaburo'
'
Columns("A:Y").Select
Range("A2").Activate
Selection.Copy
Windows("公表用(1).xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("V22").Select
Sheets("監督者用").Select
Sheets("監督者用").Name = "監督者用"
Rows("2:2").RowHeight = 5.25
Rows("7:7").RowHeight = 8.25
Rows("12:12").RowHeight = 8.25
Rows("17:17").RowHeight = 6
Windows("確認1.xls").Activate
Application.CutCopyMode = False
Range("A1:Y1").Select
End Sub
よろしくお願いします。
|
|