Excel VBA質問箱 IV

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

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


54851 / 76732 ←次へ | 前へ→

【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の表示も平成にするにはどうしたら言いのでしょうか?
(説明が下手ですみません)
2 hits

【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 発言

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