A列のセルにはB列の同じ行のセルが空白であれば何も表示しない、
そうでなければ行番号-1を表示する
B列のセルには（恐らくここがVBA）アクティブセルが変化したら（ENTERが押下されたら）変化前のセルに分+秒.2桁の単位で記録していくようにしたいです。
この場合はどのようなコードをワークシートに記述すれば良いのでしょうか？
※これだと現在時刻しか記録されないと思いますが、この情報からラップタイムを算出することは可能なので、ここまでで大丈夫です。
No.1
235
14
B1から初めて、Enterを押していくとB10まで現在時刻を記録します。
あとはなんとかなりますでしょうか?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set r = Application.Intersect(Target, Range("B2:B10"))
If Not r Is Nothing Then
r.Cells(1, 1).Value = Now
End If
End Sub
222
0
1
1
1
コメント（0件)