|
▼エクセラ さん
こんばんは。
今一何をされているかわかりませんが、
Select Case で分岐されては? 意味が違うかな?
>Private Sub Worksheet_Change(ByVal Target As Range)
> If Intersect(Target, Range("F4:F28,I4:I28,L4:L28,O4:O28,R4:R28")) Is Nothing Then Exit Sub
> With Target
> If .Count > 1 Then Exit Sub
> If IsEmpty(.Value) Then Exit Sub
> If IsEmpty(.Offset(, -1).Value) Then Exit Sub
Select Case .Value
Case -1: .Value = "A"
Case -2: .Value = "B"
Case -3: .Value = "C"
End Select
> Application.EnableEvents = False
> If CBool(Len(.PrefixCharacter)) Then
> .Offset(, 1).Value = Val(.Value)
> Else
> .Offset(, 1).Value = .Value
> End If
> End With
> Application.EnableEvents = True
>End Sub
>
|
|