Q:
タイムカードの記録を下記のようにしたい
社員番号
日付
時間
A:
下記の例を参照ください
「A1」に社員コードを入力
VBAを実行すると
「E列」の一番下に「A1」の値が入る
「F列の一番下」に「日付」が入る
「G列の一番下」に「時間」が入る
VBAサンプル
Sub 入力を追加()
‘ 最終行の取得
Dim lastRow As Integer
lastRow = Cells(Rows.Count, “E”).End(xlUp).Row + 1
‘ 日付と時間の取得
Dim inputDate As Date
Dim inputTime As Date
inputDate = Date
inputTime = Time
‘ 値の入力
Cells(lastRow, “E”).Value = Range(“A1”).Value
Cells(lastRow, “F”).Value = inputDate
Cells(lastRow, “G”).Value = inputTime
End Sub
関連リンク
【EXCEL_VBA】打刻機能付きタイムシートを作ろう<打刻用VBAを作る>
スポンサーリンク
コメント