Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8636 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【31905】日付の表示を和暦のままにしたい。 かんた 05/12/2(金) 6:44 質問[未読]
【31906】Re:日付の表示を和暦のままにしたい。 かみちゃん 05/12/2(金) 6:47 回答[未読]
【31907】Re:日付の表示を和暦のままにしたい。 かみちゃん 05/12/2(金) 6:52 回答[未読]
【32158】Re:日付の表示を和暦のままにしたい。 かんた 05/12/7(水) 16:18 お礼[未読]
【31905】日付の表示を和暦のままにしたい。
質問  かんた  - 05/12/2(金) 6:44 -
引用なし
パスワード
   Dim　Birthday　as　date
A1に和暦で生年月日、B1に年齢が入力されていて、
C1にA1の和暦の生年月日と年齢を表示させようと
いうマクロを作ってみたのですが、

Sub Macro1()

Dim Birthday As Date
Dim Nennrei As Long


　　Birthday = Range("A1").Value
　　Nennrei = Range("B1").Value
　　
　　
　　Range("C1").Value = Birthday & "," & Nennrei & "才"
　　
　　
End Sub

A1に和暦でS48.1.1、B2に30を入力して上記のマクロを
実行するとC1は
　　1975/1/1,30才
となります。
　　S48.1.1,30才
と表示させるにはどうしたらよいのでしょうか？
【31906】Re:日付の表示を和暦のままにしたい。
回答  かみちゃん  - 05/12/2(金) 6:47 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>A1に和暦でS48.1.1、B2に30を入力して上記のマクロを
>実行するとC1は
>　　1975/1/1,30才
>となります。
>　　S48.1.1,30才
>と表示させるにはどうしたらよいのでしょうか？

最後に、セルの書式設定をすればいかがでしょうか？
そのコードは、「マクロの記録」で記録して得られると思います。
【31907】Re:日付の表示を和暦のままにしたい。
回答  かみちゃん  - 05/12/2(金) 6:52 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>そのコードは、「マクロの記録」で記録して得られると思います。

ちょっと、趣旨が違いました（ & で文字列の結合をする必要がある）ので、
コードを提示しておきます。
こんな感じでできると思います。
　　Range("C1").Value = Format(Birthday, "ge.m.d") & "," & Nennrei & "才"
【32158】Re:日付の表示を和暦のままにしたい。
お礼  かんた  - 05/12/7(水) 16:18 -
引用なし
パスワード
   かみちゃんさん、ありがとうございました。

和暦で表示されるようになりました。
Formatを利用すれば良かったのですね。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8636 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free