IT備忘録

テンプレートとなるSheetを元に値を入力し、その値をlogとして
残すVBAを組んでみました。

------------------------------------------------------

Private Sub Workbook_Open()

    Sheets("START").Activate
    Range("G7").Activate

End Sub

------------------------------------------------------

Private Sub CommandButton1_Click()

' *************************
' 初期設定
' *************************
Dim START As Object

Set START = ThisWorkbook.Worksheets("START")

' *************************
' ORGよりシートをコピーする
' *************************
Sheets("ORG").Select
Sheets("ORG").Copy After:=Sheets(3)
Sheets("ORG (2)").Name = "New_User"

' *************************
' 値を挿入
' *************************
Sheets("New_User").Activate

With ThisWorkbook.Worksheets("New_User")
    .Range("M5") = START.Range("G8")
    .Range("M7") = START.Range("G9")
    .Range("C15") = START.Range("G10")
    .Range("J20") = START.Range("G8")
    .Range("J22") = START.Range("G11")
    .Range("C28") = START.Range("G12")
End With

' *************************
' Logファイルに書き出す
' *************************
With ThisWorkbook.Worksheets("Log")
    .Range("A65536").End(xlUp).Offset(1, 0).Value = START.Range("E4")
    .Range("A65536").End(xlUp).Offset(0, 1).Value = START.Range("G7")
    .Range("A65536").End(xlUp).Offset(0, 2).Value = START.Range("G8")
    .Range("A65536").End(xlUp).Offset(0, 3).Value = START.Range("G9")
    .Range("A65536").End(xlUp).Offset(0, 4).Value = START.Range("G10")
    .Range("A65536").End(xlUp).Offset(0, 5).Value = START.Range("G11")
    .Range("A65536").End(xlUp).Offset(0, 6).Value = START.Range("G12")
    .Range("A65536").End(xlUp).Offset(0, 7).Value = START.Range("G13")
End With

' *************************
' Print out
' *************************
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

------------------------------------------------------

Private Sub CommandButton2_Click()

' *************************
' 入力値のクリアー
' *************************
With ThisWorkbook.Worksheets("START")
    .Range("G7:G9") = ""
    .Range("G11:G12") = ""
End With

' *************************
' Worksheetsの削除
' *************************
Worksheets("New_User").Delete

End Sub

------------------------------------------------------

←クリック一票