« ログオン画面から<終了オプション>を消す | Main | M3 for DS light Black »

Jan 13, 2007

入力フォーム

テンプレートとなる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

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

←クリック一票

|

« ログオン画面から<終了オプション>を消す | Main | M3 for DS light Black »

VBA」カテゴリの記事

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/68055/13480614

Listed below are links to weblogs that reference 入力フォーム:

« ログオン画面から<終了オプション>を消す | Main | M3 for DS light Black »