- ベストアンサー
「7月4日」や「07月04日」ではなく「 7月 4日」と表示させたい。(エクセル表示)
ja7awuの回答
- ja7awu
- ベストアンサー率62% (292/464)
日付形式を保ち、自動的に表示幅を揃えるには、VBAで処理することになると思います。 もし、それで宜しかったら、次の方法でテストしてみてください。 質問では、月日だけの表示になっていますが、和暦年月日と両方作っておきますので 好きな方を使ってください。(さらに必要あれば、コード上で書式を変えてください。) 1.Alt + F11 で VBE(Visual Basic Editor)を開きます。 2.VBE のメニューから[挿入] -->[標準モジュール] を指定します。 3.モジュールウィンドウに下記コードをコピーして貼り付けます。 4.Alt + Q (または、右上隅の×)でウィンドウを閉じ、シートに戻ります。 5.メニューから[ツール]-->[マクロ]-->[セキュリティ]で「セキュリティレベル」を 「中」にして[OK]します。 6.実行するときは、Alt + F8 (メニューから[ツール]-->[マクロ]-->[マクロ])で 例えば「和暦日付均等幅書式」を指定し、[実行]ボタンを押します。 書式変換する範囲を聞いてきますので、選択状態にして[OK]します。 これで如何でしょう。 一括変換の他に、入力の都度、変換する方法もあります。 Sub 月日均等幅書式() Dim Rng As Range Dim Syoshiki As String Dim Hani On Error Resume Next Set Hani = Application.InputBox(Prompt:=vbLf & "日付け入力範囲を" & _ "選択して、[OK]を押してください。", Type:=8) If Err.Number > 0 Then Exit Sub For Each Rng In Hani Syoshiki = "" If IsDate(Rng.Value) Then If Month(Rng.Value) < 10 Then Syoshiki = Syoshiki & " m月" Else Syoshiki = Syoshiki & "m月" End If If Day(Rng.Value) < 10 Then Syoshiki = Syoshiki & " d日" Else Syoshiki = Syoshiki & "d日" End If Rng.NumberFormatLocal = Syoshiki Rng.Font.Name = "MS ゴシック" End If Next Rng End Sub Sub 和暦日付均等幅書式() Dim Rng As Range Dim Syoshiki As String Dim Hani On Error Resume Next Set Hani = Application.InputBox(Prompt:=vbLf & "日付け入力範囲を" & _ "選択して、[OK]を押してください。", Type:=8) If Err.Number > 0 Then Exit Sub For Each Rng In Hani Syoshiki = "" If IsDate(Rng.Value) Then If Year(Rng.Value) < 10 Then Syoshiki = "ggg e""年""" Else Syoshiki = "ggge""年""" End If If Month(Rng.Value) < 10 Then Syoshiki = Syoshiki & " m月" Else Syoshiki = Syoshiki & "m月" End If If Day(Rng.Value) < 10 Then Syoshiki = Syoshiki & " d日" Else Syoshiki = Syoshiki & "d日" End If Rng.NumberFormatLocal = Syoshiki Rng.Font.Name = "MS ゴシック" End If Next Rng End Sub
関連するQ&A
- エクセル2000:「半角数字で年/月/日と入力する」と表示され、入力できない
会社で使用しているエクセルの書式があるのですが、日付が入っているセルに「=TODAY()」が入っていました。 自動的に今日の日付が入るわけですが、日付を入れたくなかったので、「=TODAY()」を消し、「平成 年 月 日」と入力すると、ダイアログが表示され、「半角数字で年/月/日と入力する。」と表示されます。 ここから困っているのですが、表示形式を日付から標準や文字列等に変えても、同じダイアログが出ます。入力する文字は、数字・アルファベット・ひらがな・漢字のどれを入力しても、全角・半角のどちらを入力してもダメでした。 半角で「2007/1/1」と入力してもダメです(泣) IFやSUM関数を入れても表示されないのですが、TODAYだけ、入力が出来ました。 私が作った書式ではないため、何が問題なのかさっぱり分かりません。 ちなみに、その書式にはマクロが入っています。(印刷の設定をマクロでしているようなのですが、書いてあることはよく分かりません。)これを無効にしても、ダメでした。 長くなり申し訳ありません。 「=TODAY()」しか入力を受け付けないのはどうしてなのでしょうか? どうすれば、通常の入力ができるのでしょうか? ご存知の方、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelの日付表示を教えてください。
日付のセルの数字を揃えたいのですが、 十の位の数字の「0」は表示はしたくないのです。 例:03月07日 よろしくお願いいたします。
- ベストアンサー
- Excel(エクセル)
- エクセル2000:“3-3”入力が3月3日に置き換わらせないためには?
エクセル2000を使用しております。 3-3と入力し、enter keyを押すと3月3日になります。この設定を解除して3-3と表示させるのにはどうしたらよいでしょう。 3月3日となった後にセルの書式設定で日付→標準にするとサンプルに表示されている38445という数字に代わり、再度3-3と入力するとまた、3月3日になり、設定を見ると日付に変わっています。 -をーに変えると問題ないのですがやはり、-は-と入力したいです。
- ベストアンサー
- オフィス系ソフト
- Excel での日付表示
はじめまして Excel 2010を使用しています。 セルに平成24年11月28日と数字を全角で入力すると、数字が半角になってしまいます。 数字を全角にするにはどのようにすれば良いのでしょうか? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelで月を跨いだ場合月末を表示させる
Excelの関数についてですが マクロで使用するために セルに入力した日付の7日後の日付を他のセルに表示させるようにしています。 例: A1に2014/11/17と入力すると A2に2014/11/24と表示 A1に2014/11/24と入力すると A2に2014/12/1と表示 下の例のように現状では単純に7日をプラスするため12/1まで自動計算されてしまうのですが これを入力された日から7日計算してもし月を跨いだ場合その月の月末を表示させるにはA2にどのような計算式を入力すればいいか教えてください。
- ベストアンサー
- Excel(エクセル)
- エクセルの一つのセル内にある文字と数字を分けて表示したいのですが、
エクセルの一つのセル内にある文字と数字を分けて表示したいのですが、 似たような質問でトライするもののうまくいきません。 教えてください。 日本 太郎123 日本 一郎・花子1065 1)苗字と名前の間には半角スペースがある。 2)名前の後ろに続けて半角数字(3桁か4桁) 3)連名の場合の「・」は半角表示
- ベストアンサー
- Windows XP
- エクセルで平成17年4月と表示させるには?
こんにちは。エクセルについて教えてください。 エクセルのセルに「2005/4」と入力して「平成17年4月」と表示されるようにしたいのですが、セルの書式設定で日付では「平成17年4月1日」と表示されてしまいます。 なんとかして「平成17年4月」と表示できないものでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルです。データの表示について教えて下さい
エクセル初心者です。 1~100までの番号が付けられたデータがあります。 特定のセルに任意の数字を入力すると、その入力した数字までのデータが 表示される(例えば、セルに20と入力すると、1~20までのデータが表示される) といった設定は出来るのでしょうか? どなたか教えて下さい。
- ベストアンサー
- オフィス系ソフト
- Excel 半角で入力しているのに、セルの中では全角表示に‥‥
Excel2000です。 A1のセルに、6月6日と入力しました。 数字は、半角で入力しました。 数式バーをみると、ちゃんと6は半角で表示してあるのに、A1のセルを見ると、6月6日と、全角表示になってしまっています。 これはどんな現象なのでしょうか? あと、範囲の狭いセルの中に00-0000と、電話番号を入力したら、「-」から先が改行されていました。 改行させない方法はあるのでしょうか? 教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセル2000での分数表示
エクセル2000で質問します。セルに1/4と入力すると 1月4日となります。セルの書式設定で分数で表示するをクリックしても1/4と入力されず、38356になってしまいます。普通1/4と入力してEnterを押すと日付として表示されるからセルの書式設定、編集で分数で表示するをクリックするとそうなるはずですよね。でも数式バーのタイトルを見ると2005/1/4となっています。つまり2005があるために大きな数字となっていると思うのですが、どうすれば分数で入力できるのでしょうか。基本的なことですいません。
- ベストアンサー
- オフィス系ソフト