Excel VBA質問箱 IV

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

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


9554 / 13646 ツリー ←次へ | 前へ→

【26665】textboxの表示を平成に・・・ 琴葉 05/7/13(水) 16:10 質問[未読]
【26667】Re:textboxの表示を平成に・・・ Jaka 05/7/13(水) 16:35 発言[未読]
【26668】Re:textboxの表示を平成に・・・ 琴葉 05/7/13(水) 16:51 質問[未読]
【26672】Re:textboxの表示を平成に・・・ Ny 05/7/13(水) 18:46 回答[未読]
【26684】Re:textboxの表示を平成に・・・ 琴葉 05/7/14(木) 8:30 お礼[未読]
【26725】Re:textboxの表示を平成に・・・ Jaka 05/7/15(金) 9:15 発言[未読]

【26665】textboxの表示を平成に・・・
質問  琴葉  - 05/7/13(水) 16:10 -

引用なし
パスワード
   Private Sub UserForm_Initialize()
  
Spin移動.Max = レコード数取得 + 1
  
  Set TBL(1) = Text自動車登録番号
  Set TBL(2) = Text登録年月日
  Set TBL(3) = Text初年度登録
  Set TBL(4) = Text有効期限
  Set TBL(5) = Combo自動車の種類
  Set TBL(6) = Combo用途
  Set TBL(7) = Combo自家用事務用
  Set TBL(8) = Combo車体の形状
  Set TBL(9) = Combo車名
  Set TBL(10) = Combo乗車定員
  Set TBL(11) = Text最大積載量
  Set TBL(12) = Text車両重量
  Set TBL(13) = Text車両総重量
  Set TBL(14) = Text車台番号
  Set TBL(15) = Text長さ
  Set TBL(16) = Text幅
  Set TBL(17) = Text高さ
  Set TBL(18) = Text出力
  Set TBL(19) = Text型式
  Set TBL(20) = Combo原動機の形式
  Set TBL(21) = Text排気
  Set TBL(22) = Combo燃料の種類
  Set TBL(23) = Text型式指定
  Set TBL(24) = Text種類別番号
  Set TBL(25) = Text所有者
  Set TBL(26) = Text所有者住所
  Set TBL(27) = Text使用者
  Set TBL(28) = Text使用者住所
  
  
  Set データ範囲 = Range("A1").CurrentRegion
  If データ範囲.Rows.Count = 1 Then
  Else
    データ表示 (2)
  End If
End Sub

セルのデーターをユーザーフォーム上で書き込み閲覧しています。
TBL1,2,3が日付なのですがデーター自体は西暦でセルの表示は平成です。
スピンボタンでユーザーフォーム上のデーターを移動してるのですがtextboxの表示が西暦になってしまいます。
textboxの表示も平成にするにはどうしたら言いのでしょうか?
(説明が下手ですみません)

【26667】Re:textboxの表示を平成に・・・
発言  Jaka  - 05/7/13(水) 16:35 -

引用なし
パスワード
   こんにちは。
ちょっと良く解らないんですけど

Text自動車登録番号
Text登録年月日
の類ってフォーム上のオブジェクトの事ですか?

>TBL1,2,3が日付なのですがデーター自体は西暦でセルの表示は平成です。
>スピンボタンでユーザーフォーム上のデーターを移動してるのですがtextboxの表示が西暦になってしまいます。
これらもちょっと意味が良く解らないんですけど...。

もう少し解りやすく説明した方がいいと思います。

>textboxの表示も平成にするにはどうしたら言いのでしょうか?
こういう事でしょうか?
MsgBox Format(Now(), "gggyy年mm月dd日")

【26668】Re:textboxの表示を平成に・・・
質問  琴葉  - 05/7/13(水) 16:51 -

引用なし
パスワード
   ▼Jaka さん:
>こんにちは。
>ちょっと良く解らないんですけど
>
>Text自動車登録番号
>Text登録年月日
>の類ってフォーム上のオブジェクトの事ですか?

はいそうです。
>
>>TBL1,2,3が日付なのですがデーター自体は西暦でセルの表示は平成です。
>>スピンボタンでユーザーフォーム上のデーターを移動してるのですがtextboxの表示が西暦になってしまいます。
>これらもちょっと意味が良く解らないんですけど...。
>
>もう少し解りやすく説明した方がいいと思います。

ユーザーフォームのtext.登録年月日にH-15-7-13と打ち込むと、セルには平成15年7月13日と反映されます。(セルのデーターは2005/7/13)
一度ユーザーフォーム上のスピンボタンでデーターを移動して元に戻ると text.登録年月日が2005/7/13と表示されてしまいます。
『すみませんうまく説明できません』

>
>>textboxの表示も平成にするにはどうしたら言いのでしょうか?
>こういう事でしょうか?
>MsgBox Format(Now(), "gggyy年mm月dd日")

結論から申しますと text.登録年月日の表示を 平成15年7月13日 と表示したいです。

これで伝わるでしょうか・・・重ね重ねよろしくお願いいたします。

【26672】Re:textboxの表示を平成に・・・
回答  Ny  - 05/7/13(水) 18:46 -

引用なし
パスワード
   ▼琴葉 さん:
▼Jaka さん:

今晩は

意味の取り違えでしたらごめんなさい。
これでテキストボックスの中に平成00年00月00日
の表現が出来ますが・・・こんな事でしょうか?
a1に日にち2005でも平成でもOKが入っているとして・・・


Private Sub TextBox1_Change()
TextBox1.Value = Range("a1")
TextBox1.Value = Format(Date, "平成" & "ee" & "年" & "mm" & "月" & "dd" & "日")
End Sub

【26684】Re:textboxの表示を平成に・・・
お礼  琴葉  - 05/7/14(木) 8:30 -

引用なし
パスワード
   おはようございます。

ありがとうございます、うまくいきました^^

又質問させていただくと思いますがよろしくお願いいたします。
▼Ny さん:
>▼琴葉 さん:
>▼Jaka さん:
>
>今晩は
>
>意味の取り違えでしたらごめんなさい。
>これでテキストボックスの中に平成00年00月00日
>の表現が出来ますが・・・こんな事でしょうか?
>a1に日にち2005でも平成でもOKが入っているとして・・・
>
>
>Private Sub TextBox1_Change()
> TextBox1.Value = Range("a1")
> TextBox1.Value = Format(Date, "平成" & "ee" & "年" & "mm" & "月" & "dd" & "日")
>End Sub

【26725】Re:textboxの表示を平成に・・・
発言  Jaka  - 05/7/15(金) 9:15 -

引用なし
パスワード
   すみません。
こうでしたね。

MsgBox Format(Now(), "ggge年m月d日")

9554 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free