|
セルA1に1と入力でセルA1に1月1日と表示
また、セルA1に2と入力でセルA1に2月1日と表示
つまり1と入れたら1月1日、2と入れたら2月1日、3と入れたら3月1日、
・・・・・12と入れたら12月1日と表示するには。
ただし、12月になって1と入れた時は、来年の年月日で表示するように。
で回答をもらいありがとうございました。
Private Sub Worksheet_Change(ByVal Target As Range)
Const addr = "$a$1"
Dim rng As Range
With Application
.EnableEvents = False
Set rng = .Intersect(Range(addr), Target)
If Not rng Is Nothing Then
With Target
.NumberFormatLocal = "標準"
If Val(.Value) >= 1 And Val(.Value) <= 12 Then
.Value = DateSerial(IIf(Month(Date) = 12 And Val(.Value) <> 12, _
Year(Date) + 1, Year(Date)), Val(.Value), 1)
Else
MsgBox "nogood"
End If
End With
End If
.EnableEvents = True
Set rng = Nothing
End With
End Sub
セルA1に1と入力すると2006/1/1と表示します。
この表示方法を1月1日と表示するにはどのようにすればいいのですか。
よろしくお願いします。
|
|