Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2194 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【69449】元号について ＶＢＡ初心者 11/7/13(水) 20:13 質問[未読]
【69450】Re:元号について neptune 11/7/13(水) 21:04 回答[未読]
【69451】Re:元号について ＶＢＡ初心者 11/7/13(水) 21:10 発言[未読]
【69452】Re:元号について UO3 11/7/13(水) 22:02 発言[未読]
【69453】Re:元号について ＶＢＡ初心者 11/7/13(水) 22:08 お礼[未読]
【69454】Re:元号について neptune 11/7/13(水) 23:21 発言[未読]
【69449】元号について
質問  ＶＢＡ初心者  - 11/7/13(水) 20:13 -
引用なし
パスワード
   いつもお世話になっております。

元号の変換について教えてください。

『txt元号』というテキストボックスがあります。
ユーザーフォームを開いたときに、"平成"と出るように設定しています。

txt元号.Text = Format(Date, "ggg")

それをセルに投入する際に、"Ｈ"と表示されるようにしたいのですが、

Range("G1").Value = Format(txt元号.Text, "g")

"平成"と表示されてしまいます。

どうしたら"Ｈ"と表示されるようになりますか？
【69450】Re:元号について
回答  neptune  - 11/7/13(水) 21:04 -
引用なし
パスワード
   ▼ＶＢＡ初心者 さん：
>Range("G1").Value = Format(txt元号.Text, "g")

"ge"
ってやってみて。
【69451】Re:元号について
発言  ＶＢＡ初心者  - 11/7/13(水) 21:10 -
引用なし
パスワード
   ▼neptune さん：
>
>"ge"
>ってやってみて。

やはり"平成"のみでした・・・。
【69452】Re:元号について
発言  UO3  - 11/7/13(水) 22:02 -
引用なし
パスワード
   ▼ＶＢＡ初心者 さん：

こんばんは

元が Dateという日付でも、Format(Date, "ggg")　で　"平成" に変換されたとたんに
テキストボックスの中身は"平成"という、エクセルやVBAからみると、単なる文字列、
"東京" とか　"山田"　となんらかわらないものになります。

一方、セルに落とし込むときの　Format(データ,"日付関連書式") はデータが日付であった時のみ
有効。データが日付ではなかったら無変換。

従って、"平成"(あるいはユーザー入力で"昭和"とか"大正"？）に、なにかしら和暦の年月日を
あたえてやる必要があります。しかも、実際にある日付。

Format(txt元号.Text & "10年10月10日","g") で試してみてください。
【69453】Re:元号について
お礼  ＶＢＡ初心者  - 11/7/13(水) 22:08 -
引用なし
パスワード
   ▼UO3 さん：
>▼ＶＢＡ初心者 さん：
>
>こんばんは
>
>元が Dateという日付でも、Format(Date, "ggg")　で　"平成" に変換されたとたんに
>テキストボックスの中身は"平成"という、エクセルやVBAからみると、単なる文字列、
>"東京" とか　"山田"　となんらかわらないものになります。
>
>一方、セルに落とし込むときの　Format(データ,"日付関連書式") はデータが日付であった時のみ
>有効。データが日付ではなかったら無変換。
>
>従って、"平成"(あるいはユーザー入力で"昭和"とか"大正"？）に、なにかしら和暦の年月日を
>あたえてやる必要があります。しかも、実際にある日付。
>
>Format(txt元号.Text & "10年10月10日","g") で試してみてください。

なるほど、そういうことですかぁ。
勉強になりました。
ちゃんと"Ｈ"で表示されました。

ありがとうございました。

neptune さんもお返事ありがとうございました。
【69454】Re:元号について
発言  neptune  - 11/7/13(水) 23:21 -
引用なし
パスワード
   ▼ＶＢＡ初心者 さん：
>『txt元号』というテキストボックスがあります。
>ユーザーフォームを開いたときに、"平成"と出るように設定しています。
なんですね。
すみません。説明をよく読んでませんでした。

UO3 さんアドバイスの通り、データ型を日付にすれば良い話でしたね。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2194 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free