【EXCEL VBA】タイムカード機能 社員コードと日付と時間を打刻したい

PCサポート

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を作る>

スポンサーリンク

コメント

タイトルとURLをコピーしました