【EXCEL_VBA】打刻機能付きタイムシートを作ろう＜打刻用VBAを作る＞

打刻用ＶＢＡを作る
シートの準備をしましょう
１：シート「タイムスタンプ」を作成しましょう。
２：シート「出勤データ」を作成しましょう。
３：シート「退勤データ」を作成しましょう。
４：シート「出勤データ」に下記を入力してください。
「Ａ１」に「このシートは基本的には管理者以外は見えないように隠してください」と入力してください。
「Ｂ１」に「日付」と入力してください。
「Ｂ２」に「出勤」と入力してください。
５：シート「出勤データ」に下記を入力してください。
「Ａ１」に「このシートは基本的には管理者以外は見えないように隠してください」と入力してください。
「Ｂ１」に「日付」と入力してください。
「Ｂ２」に「出勤」と入力してください。
以上でシートの作成は終了となります。

ＶＢＡの作成
出勤データ用のＶＢＡを作成する。
シートタイムスタンプの「出勤」をクリックする。
１：「出勤データ」のシートに移動する。
２：最終行を取得する。
３：最終行の1つ上の行のB列に値があり、かつA列に前回記録した日付と異なる場合、最終行に日付と時刻を記録する。
４：「タイムスタンプ」のシートをアクティブにする。
５：ファイルを上書きセーブします。
６：「Ｅｘｃｅｌ」を終了する。

Sub 出勤()
Sheets(“出勤データ”).Select
Dim lastRow As Integer
lastRow = Cells(1, 1).End(xlDown).Row + 1
If Cells(lastRow – 1, “B”).Value <> “” And Cells(lastRow – 1, “A”).Value <> Date Then
Cells(lastRow, “A”).Value = Date
Cells(lastRow, “B”).Value = “‘” & Hour(Time) & “:” & Format(Minute(Time), “00”)
　　End If
Sheets(“タイムスタンプ”).Select

ThisWorkbook.Save
Application.Quit
End Sub

退勤データ用のＶＢＡを作成する。
シートタイムスタンプの「退勤」をクリックする。
１：「退勤データ」のシートに移動する。
２：最終行を取得する。
３：最終行の1つ上の行のB列に値があり、かつA列に前回記録した日付と異なる場合、最終行に日付と時刻を記録する。
４：「タイムスタンプ」のシートをアクティブにする。
５：ファイルを上書きセーブします。
６：「Ｅｘｃｅｌ」を終了する。

Sub 退勤()
Sheets(“退勤データ”).Select
Dim lastRow As Integer
lastRow = Cells(1, 1).End(xlDown).Row + 1
If Cells(lastRow – 1, “B”).Value <> “” And Cells(lastRow – 1, “A”).Value <> Date Then
Cells(lastRow, “A”).Value = Date
Cells(lastRow, “B”).Value = “‘” & Hour(Time) & “:” & Format(Minute(Time), “00”)
　　End If
Sheets(“タイムスタンプ”).Select