VBAの問題です。出勤ボタンを押したら現在時刻が出勤時間の列に出力されるようにするため、アクティブになっているセルを取得して、その行の出勤時間の列に時間が出力されるようにしました。セルを選択しなくても時間を出力する良い方法はあるでしょうか。このような処理をしたい場合、一般的にはどのような記述をするのか気になり質問しました。Sub 出勤() Dim targetRow As Long Dim 出勤列 As Long ' 出勤時間を入力する列 出勤列 = 5 ' 現在アクティブセルの行番号を取得 targetRow = ActiveCell.Row ' 1～7行は無効 If targetRow \u0026lt; 8 Then MsgBox \u0026quot;入力したい日付行を選択してからボタンを押してください。\u0026quot; Exit Sub End If ' アクティブセル行の出勤列に現在時刻を入力 Cells(targetRow, 出勤列).Value = Format(Now, \u0026quot;hh:mm\u0026quot;) End Sub