|
▼ponpon さん:
何度もすみません。
実際には
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 = "休み"
Case "'-2": .Value = "計年"
Case "'-3": .Value = "出張"
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
としております。
ここで、「'-1」が入力されたときに「休み」としたいのですが「-1」となってしまいます。
どこを直せばうまくいくのかわからなくなってしまいました・・・。
|
|