|
もう1点、質問させてください。
05/8/9(火) 20:13にご教授いただいたコードですが、
元々の質問に立ち返ってみると、使えそうな気がしたので再考することにしました。
******************************************************************
"結果"という文字列:7行目
"日付"という文字列:7行目
M列に"結果"→O〜P列での結果が入る列(数式)
N列に"日付"
O〜P列に("確認項目")
Q列に"結果"→S〜T列での結果が入る列(数式)
R列に"日付"
S〜T列に("確認項目")
******************************************************************
といった表ですので、以下のように書き換えてみました。
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count = 1 Then
If Target.Row > 8 Then '1〜8行目はパス
With ActiveSheet.Cells(7, Target.Column) '7行目が見出し
If .Value = "結果" Then 'Changeした列の7行目の値が"結果"
If .Offset(0, 1).Value = "日付" Then 'その隣の値が日付表示(念のため)
Application.EnableEvents = False 'イベントがおきないように
'上記分岐をパスしたTargetセルの右隣のセルの内容
With Target.Offset(0, 1)
Select Case Target.Value
Case "": .ClearContents
Case Else: .Value = Date
End Select
End With
Application.EnableEvents = True 'イベント可
End If
End If
End With
End If
End If
End Sub
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
でも、日付が入ってくれません。
どこが間違ってるのでしょうか?
|
|