こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセル VBAラベル 表示?

宜しくお願いいたします。
エクセル2000にて
Private Sub UserForm_Initialize()
Dim TYU As Integer
Dim TYUB As Integer
For TYU = 3 To 100
If Worksheets("発注履歴").Cells(TYU, 1) = "" Then
TYUB = Right(Worksheets("発注履歴").Cells(TYU - 1, 1).Value, 3)
Label1.Caption = Format(Date, "yy") & TYUB + 1
Exit For
End If
Next TYU
End sub
上記のようにコードを書き込みました。
ワークシート発注履歴("A3")には注文番号090001が
入力されております。
次回発注時、入力フォームを開いたときに
ラベル1に090002を表示しようとしたのですが
092と表示されてしまい 2 のまえの00を表示できません。
どの様に修正すれば宜しいでしょうか?

投稿日時 - 2009-05-26 11:34:33

QNo.4991379

困ってます

質問者が選んだベストアンサー

 

Label1.Caption = Format(Date, "yy") & Format(TYUB + 1, "0000")

それから、090002 が番号だとすると年以外の部分は4桁ですよね。
なので、その前のコードも

TYUB = Right(Worksheets("発注履歴").Cells(TYU - 1, 1).Value, 4)

投稿日時 - 2009-05-26 11:46:22

お礼

出来ました!!
ありがとうございますm(__)m

投稿日時 - 2009-05-26 12:46:50

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問