|
別の質問なのですが、シートの構成が上記と異なる場合(以下の表)のコードについてアドバイスをいただけたら幸いです。
L列に"結果"→M,O,Q,S列での結果が入る列(数式)
M列("確認項目")に入力があったときに、N列に"日付表示"
O列("確認項目")に入力があったときに、P列に"日付表示"
Q列("確認項目")に入力があったときに、R列に"日付表示"
S列("確認項目")に入力があったときに、S列に"日付表示"
U列に"結果"→V,X,Z.AB列での結果が入る列(数式)
V列("確認項目")に入力があったときに、W列に"日付表示"
X列("確認項目")に入力があったときに、Y列に"日付表示"
Z列("確認項目")に入力があったときに、AA列に"日付表示"
AB列("確認項目")に入力があったときに、AC列に"日付表示"
AD〜AE列に"備考1"、"備考2"がそれぞれ入っています
AF列に"結果"→AG,AI,AK列での結果が入る列(数式)
AG列("確認項目")に入力があったときに、AH列に"日付表示"
AI列("確認項目")に入力があったときに、AJ列に"日付表示"
AK列("確認項目")に入力があったときに、AL列に"日付表示"
AM列に"結果"→AN,AP,AR列での結果が入る列(数式)
AN列("確認項目")に入力があったときに、AO列に"日付表示"
AP列("確認項目")に入力があったときに、AQ列に"日付表示"
AR列("確認項目")に入力があったときに、AS列に"日付表示"
AT〜AU列に"備考1"、"備考2"がそれぞれ入っています
これも以下のようなコードを作成してみました。
"確認"、"日付"の文字列を検索して、自動的に日付が入るようにしたいです。
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
Private Sub Worksheet_Change(ByVal Target As Excel.Range) '自動日付入力
With Target
If .Cells.Count > 1 Then Exit Sub '変更されるセルは1個に限定
Select Case .Column
'各OS,言語ごとの入力列を指定(R1C1参照形式)
Case 13, 15, 17, 19, 22, 24, 26, 28, 33, 35, 37, 40, 42, 44
Case Else
Exit Sub
End Select
If .Value <> "" Then '"確認列"が空欄でないとき
.Offset(, 1).Value = Format(Date, "yyyy/mm/dd") '"右隣のセル:日付列"に当日日付を表示
Else
.Offset(, 1).Value = "" '"確認列"が空欄になる(="入力列"を空欄にする)場合に日付を消去
End If
End With
End Sub
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
是非、アドバイスをお願いします。
|
|