|
お願いします。
下記コードにて日付を入力しているのですが
Private Sub Worksheet_Change(ByVal Target As Range)
Dim 各々のセル As Range
If Intersect(Target, Range("C28:C500")) Is Nothing Then
Exit Sub
End If
Application.EnableEvents = False
For Each 各々のセル In Intersect(Target, Range("C28:C500"))
If IsNumeric(各々のセル.Value2) And 各々のセル.Value2 <> "" Then
If 各々のセル.Value2 <= 31 Then
If Day(Date) >= 25 Then
各々のセル.Value = Format(DateSerial(Year(Date), Month(Date) + 1, Day(各々のセル.Value2) + 1), "gee.mm.dd")
Else
各々のセル.Value = Format(DateSerial(Year(Date), Month(Date), Day(各々のセル.Value2) + 1), "gee.mm.dd")
End If
End If
End If
Next
Application.EnableEvents = True
End Sub
上記コードで入力した場合の数式バーの表示はH19.03.20です
仮に下記の様に手入力した場合は
H19/03/20数式バーに表示されるのは
2007/3/20となります。
H19/03/20とセルに直接入力したときに
数式バーに同じようにH19.03.20と表示するよう
上のコードに組み込むこと出来ませんか。
よろしくお願いします。
説明が下手かも?
|
|