ふつうは =IF(A1="出勤",TIME(9,0),"") とすると思います。
VBAで処理するなら、↓のような方法があります。
Excel(エクセル) VBA入門:ワークシートのイベント
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html#change
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Value = "出勤" Then
Target.Offset(0, 1).Value = TimeSerial(9, 0, 0)
End If
Application.EnableEvents = True
End Sub