|
いつも勉強させていただいております。
このたび
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
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
というコードで、Eに入力され次にFに入力されるとGに結果が出るというようにしてみました。
ここで、Fに入力される数字が「-1」なら「A」、「-2」なら「B」、「-3」なら「C」という項目を付け加えたいと思うのですが、どうにもうまくいきません。
よい方法がありましたらぜひ教えて下さい。
よろしくお願い致します。
|
|