エクセルで、数値を月として認識させるには

Question

セルに"５"と入力したとき
"Ｍａｙ"と表示するように設定したいのですが
やり方が分かりません。
"５/１"と入力すれば"Ｍａｙ"とする事はできるのですが
５だけだと"１/５"と認識してしまい"Ｊａｎｕａｒｙ"
の表示になります。

どなたかやり方の分かる方、教えて下さい。
宜しくお願いします。

grumpy_the_dwarf · Accepted Answer

> 別セルに"Ｍａｙ"でも構わないのです。

だったら話は簡単で、A1に数値を入力したら月名を表示したいセル
を=date(2008,A1,1)として表示形式をmmmmです。

> 毎月使う表の一番上の見出しにその英語表示を出したいので
> あちこちにその設定をするわけではないです。

つまり月を示す数値として使わないで、単なる見出しだけなんで
しょうか。それじゃぁ、数値を入力する意味がないです。該当する
月のカレンダーを生成するとか、そういうことを意図してるんだと
思ってましたが。

Wendy02 · Answer

#5 と　#8 の回答した者です。

後の方の書き込みで気が付きました。
回答は、読み間違えて書いてしまいました。すみませせん。

>もし、このような条件なら、マクロしかありません。
>>Ａ１に５と入力してＡ１に"Ｍａｙ"もしくは別セルに"Ｍａｙ"でも構わないのです。

別のセルで良いのでしたら、マクロは要りませんし、#5のマクロは、別のセルに入れるようには出来ていません。あくまでも、自セルです。なお、数式側はそのままです。

#5のマクロを別にセルで使う場合は、

'---------------------------------
'変更：

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim i As Long
　　Dim mDate As Date
　　'数値をいれるセル
　　If Target.Address(0, 0) = "A1" Then
　　　　If IsNumeric(Target.Value) Then
　　　　　　i = Target.Value
　　　　　　If i > 0 And i < 13 Then
　　　　　　　　mDate = DateSerial(Year(Now), i, 1)
　　　　　　　　Application.EnableEvents = False
　　　　　　　　'月名を入れるセル
　　　　　　　　Range("C1").Value = Format$(mDate, "mmmm")
　　　　　　　　Application.EnableEvents = True
　　　　　　End If
　　　　End If
　　End If
End Sub

Wendy02 · Answer

#5のマクロを数式で移植すれば、意味としては、若干違いますが、以下のようになります。

=IF(ISTEXT(A1),"",IF(AND(A1>0,A1<13),TEXT(DATE(2008,A1,1),"mmmm"),""))

komanso · Answer

別のセルに”Ｍａｙ”でいいのであれば、VLOOKUP関数はどうでしょうか？

Ａ１～Ａ１２にそれぞれ、「１～１２」
Ｂ１～Ｂ１２にそれぞれ、「Ｊａｎｕａｒｙ～Ｄｅｃｅｍｂｅｒ」
と入力します。

Ｃ１に「５」と入力したとして、
Ｄ１に下記の式を入力します。
=VLOOKUP(C1,A1:B12,2,0)
すると、Ｄ1には「Ｍａｙ」とでます。
Ｃ１＝１であれば、「Ｊａｎｕａｒｙ」
Ｃ１＝１２であれば、「Ｄｅｃｅｍｂｅｒ」
になります。

A1:B12の範囲に適当な名前（例えば”月対応表”）をつければ、
コピペした時にも楽になります。
=VLOOKUP(C1,月対応表,2,0)

mu2011 · Answer

NO4です。
左側枠にエクスプローラ画面の様なフォルダ階層が表示されていれば、そのSheet1をダブルクリックし、右側枠内に参考ソースを貼り付けて下さい。
相違していましたら、表示→プロジェクト エクスプローラで表示して下さい。

Wendy02 · Answer

こんにちは。

もし、このような条件なら、マクロしかありません。
>Ａ１に５と入力してＡ１に"Ｍａｙ"もしくは別セルに"Ｍａｙ"でも構わないのです。

貼り付け方。

マクロを実行しようとするワークシートのシートタブ(下部のSheet1,Sheet2 ...)を右クリックすると、「コードの表示(V)」というメニューがありますから、それをクリックしてください。そして、開いた画面に、以下のコードを貼り付けて、Alt + Q で閉じれば設定は完了です。

'---------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim i As Long
　　Dim mDate As Date
　　If Target.Address(0, 0) = "A1" Then
　　　　If IsNumeric(Target.Value) Then
　　　　　　i = Target.Value
　　　　　　If i > 0 And i < 13 Then
　　　　　　　　mDate = DateSerial(Year(Now), i, 1)
　　　　　　　　Target.Value = Format$(mDate, "mmmm")
　　　　　　End If
　　　　End If
　　End If
End Sub

mu2011 · Answer

NO3です。
>ａｌｔ＋Ｆ１１キーではなりませんでした
ツール→マクロ→Visual Basic Editorで如何でしょうか。

mu2011 · Answer

NO1です。
>１から１２の数字を入力した場合に英語で表示
⇒やはり、期待値と相違したみたいですね。後はマクロ（ＶＢＡ）又は、日付入力(m/1)してセルの書式設定で変更ぐらいでしょうか。
因みにＶＢＡの一例ですがお試し下さい。
（１）ａｌｔ＋Ｆ１１キー押下
（２）左側枠の対象sheet1をダブルクリック
（３）右側枠内で以下のソースを貼り付け
（４）ａｌｔ＋Ｆ４キー押下
因みにA1:A5セル範囲のみ有効としています。
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim myMonth As String
 On Error GoTo error
 If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
    Select Case Target.Value
        Case 1
            myMonth = "January"
        Case 2
            myMonth = "February"
        Case 3
            myMonth = "March"
        Case 4
            myMonth = "April"
        Case 5
            myMonth = "May"
        Case 6
            myMonth = "June"
        Case 7
            myMonth = "July"
        Case 8
            myMonth = "August"
        Case 9
            myMonth = "September"
        Case 10
            myMonth = "October"
        Case 11
            myMonth = "November"
        Case 12
            myMonth = "December"
    End Select
  Application.EnableEvents = False
    Target.Value = myMonth
error:
  Application.EnableEvents = True
End Sub

grumpy_the_dwarf · Answer

別のセルに英語の月名を表示させるんじゃダメな理由は何でしょう
か。表示と入力すべき値がとっ離れていると、いつか必ず「May」と
タイプしてそこらじゅうエラーだらけで悩むことになりますよ。

表示の上でどうしても数字は見せたくないのでしたら、「May」と入
力させておいて見えないところで数値にするのはどうでしょう。
=month(datevalue(A1&"-1"))あたりで可能です。入力時のスペルミ
スが怖ければ、入力規則でリストに設定して選択させる手がありま
すよね。私はそういう裏処理を別シート上でまとめて、非表示にし
ておくことが多いです。

mu2011 · Answer

安直ですが、表示のみならばセルの書式設定→表示形式→ユーザ定義で[=5]"May"で如何でしょうか。（あくまでもセル内容は数値の５です）

エクセルで、数値を月として認識させるには

> 別セルに"Ｍａｙ"でも構わないのです。

#5 と #8 の回答した者です。

#5のマクロを数式で移植すれば、意味としては、若干違いますが、以下のようになります。

別のセルに”Ｍａｙ”でいいのであれば、VLOOKUP関数はどうでしょうか？

NO4です。

こんにちは。

NO3です。

この回答への補足

NO1です。

この回答への補足

別のセルに英語の月名を表示させるんじゃダメな理由は何でしょう

この回答への補足

安直ですが、表示のみならばセルの書式設定→表示形式→ユーザ定義で[=5]"May"で如何でしょうか。

この回答への補足

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

#5 と　#8 の回答した者です。