入力フォーム
テンプレートとなる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
------------------------------------------------------
「VBA」カテゴリの記事
- エクセル VBA 範囲指定(2009.10.16)
- エクセル VBA プリンタを指定して印刷(2009.04.24)
- エクセル VBA ピポットテーブルを作成(2009.04.17)
- エクセル VBA ファイル・フォルダの存在確認(2009.04.16)
- Excel VBA Tips (1)(2009.04.15)
The comments to this entry are closed.
Comments