エクセルVBA「スピンボタン」について

エクセルVBA「スピンボタン」について
スピンボタンとテキストボックスを組み合わせて

Private Sub SpinButton1_Change()
Me.TextBox1.Value = Me.SpinButton1.Value
End Sub

Private Sub UserForm_Initialize()
With Me.SpinButton1
.Min = 1
.Value = .Min
End With
Me.TextBox1.Value = Me.SpinButton1.Min
End Sub

というコードを書きました。
「1、2、3、・・・10、11、・・・」という数の増加を「01、02、03・・・10、11・・・」という風にしたいのですがどのようにコーディングすればよいのでしょうか？お願いします。.

No.1 ベストアンサー 回答者： TNK7800 回答日時： 2010/07/03 21:32

ものすごく無理やりだけど。

。

Private Sub SpinButton1_Change()
Me.TextBox1.Value = Me.SpinButton1.Value
If Me.TextBox1.Value < 10 Then
Me.TextBox1.Value = "0" & Me.TextBox1.Value
End If
End Sub

この回答へのお礼

ご回答ありがとうございます。
狙い通りの動作をしてくれました。
ありがとうございました。

お礼日時：2010/07/03 22:03

No.2 回答者： bin-chan 回答日時： 2010/07/03 21:36

Me.TextBox1.Value = format(Me.SpinButton1.Min,"00")

じゃダメですか？

この回答への補足

ご回答ありがとうございます。

そのコードですと「01」は表示されますがそれ以降は「2、3・・・」となってしまいます

補足日時：2010/07/03 21:59