| |
こんにちは。
>
>>シート１のセルＡ１に１と入力でシート２のセルＡ１に１月１日と表示
>>また、シート１のセルＡ１に２と入力でシート２のセルＡ１に２月１日と表示
>>つまり１と入れたら１月１日、２と入れたら２月１日、３と入れたら３月１日、
>>・・・・・１２と入れたら１２月１日と表示するには。
>>また数式バーで見た時は年月日が表示するようにお願いします。
>>ただし、１２月になって１と入れた時は、来年の年月日で表示するように。
当該シートのシートモジュールに
'==========================================================
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
として試してみてください
尚、例のコードは、当該シートのセルＡ１に1〜12を入力した時に
イベントプロシジャーで処理されるコードです。
セルを変更される場合はコードのaddrを代えてください。
それと仕様は現在の月が１２月の時のみ、
任意の月数字を入れたら来年の年にする ということですか？
現在の月が９の時、1と入力されたときは？？
2007/1/1？ 2006/1/1？
例のコードは、現在の月が１２月のみ例外処理にしてありますが・・・。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
