Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12472 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10424】日付を漢数字で koshimizu 04/1/26(月) 12:56 質問
【10427】Re:日付を漢数字で ichinose 04/1/26(月) 13:42 回答
【10431】Re:日付を漢数字で koshimizu 04/1/26(月) 15:34 お礼
【10424】日付を漢数字で
質問  koshimizu E-MAIL  - 04/1/26(月) 12:56 -
引用なし
パスワード
   皆様こんにちは。

日付を漢数字に変更は可能でしょうか？。
Ａ列に下記のようなデータが６００行あり、Ｂ列のようになりませんか。

　　　　Ａ列　　　　　　　　　　　　　Ｂ列
昭和６１年１２月１１日　　　昭和六十一年十二月十一日
昭和６０年３月５日　　　　　昭和六十年三月五日
昭和５９年１０月３１日　　　昭和五十九年十月三十一日

変更後、縦書で使用するのですが良い方法がありましたなら、回答をお願いします。
【10427】Re:日付を漢数字で
回答  ichinose  - 04/1/26(月) 13:42 -
引用なし
パスワード
   ▼koshimizu さん：
こんにちは。

>日付を漢数字に変更は可能でしょうか？。
>Ａ列に下記のようなデータが６００行あり、Ｂ列のようになりませんか。
>
>　　　　Ａ列　　　　　　　　　　　　　Ｂ列
>昭和６１年１２月１１日　　　昭和六十一年十二月十一日
>昭和６０年３月５日　　　　　昭和六十年三月五日
>昭和５９年１０月３１日　　　昭和五十九年十月三十一日
>
>変更後、縦書で使用するのですが良い方法がありましたなら、回答をお願いします。

Jakaさんがご教授下さったNumberstringを使用すれば、

「=TEXT(A1,"gggg")&NUMBERSTRING(TEXT(A1,"ee"),1)&"年"&NUMBERSTRING(MONTH(A1),1)&"月"&NUMBERSTRING(DAY(A1),1)&"日"」

こんな感じでしょうか？
【10431】Re:日付を漢数字で
お礼  koshimizu E-MAIL  - 04/1/26(月) 15:34 -
引用なし
パスワード
   ichinose さん
こんにちは。

早速の解答ありがとうございました。
全て打ち変えなければならないと思っていましたが、僅か1分で終わってしまいました。
今後ともよろしくお願い致します。
Jakaさんにもよろしくです。

以上
koshimizuより
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12472 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free