|
シートのチェンジイベントでセルに入力があった場合
目的のセルに自動的に文字を入力されるようにと思い、
コードを書きましたが、文字が入りません。
セルの文字を消した場合には、目的のセルの入力は消えます。
どのように直したら文字が入るのか分かりません。
よろしくお願いいたします。
目的の Target.Column は 4 To 34
Target.Row は 4, 8, 12, 16, 20, 24 です。
Range("D4")に入力があった場合、Range("D7")に"出"と文字が入るように
したいのですが、
以下はそのコードです。
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 4 To 34
If Target.Row = 4 Then
Select Case ActiveCell.Value
Case Is = ""
Cells(Target.Row + 3, Target.Column).Value = ""
Case Else
Cells(Target.Row + 3, Target.Column).Value = "出"
End Select
End If
End Select
End Sub
よろしくお願いいたします。
|
|