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