| |
セルＡ１に１と入力でセルＡ１に１月１日と表示
また、セルＡ１に２と入力でセルＡ１に２月１日と表示
つまり１と入れたら１月１日、２と入れたら２月１日、３と入れたら３月１日、
・・・・・１２と入れたら１２月１日と表示するには。
ただし、１２月になって１と入れた時は、来年の年月日で表示するように。
で回答をもらいありがとうございました。
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
セルＡ１に１と入力すると2006/1/1と表示します。
この表示方法を1月1日と表示するにはどのようにすればいいのですか。
よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
