|
▼かみちゃん さん:
有難うございます。書式は何も指定せず単純に
TextBox1.Value = (TextBox1.Value) - 0.1
だけでした。
これで小数点表示が5,6の時にも出るようになりました。
後、すいません。これはちょっとした疑問で横にそれてしまうのかも
しれないのですが、
下限及び上限を設定するために
Private Sub SpinButton1_SpinDown()
If UserForm1.TextBox1.Value > 5# Then
Me.TextBox1.Value = Format(Val(Me.TextBox1.Value) - 0.1, "0.0")
End If
End Sub
としているのですが、この > 5#の#は何でしょうか? > 5.0 と書いたら
Editorの方で > 5#と変換しちゃってるみたいなんですが。
>こんにちは。かみちゃん です。
>
>>UserFormのテキストボックスに数値を入れ、これをスピンボタンで
>>0.1刻みで変化させています(下限5.0〜上限10.0)
>>5.8や5.9の時は問題ないのですが、5.0や、6.0の時に 5,6などと
>>小数点表記ができなくなっています。
>>
>>書式設定はテキストボックスに対しては出来ないのでしょうか?
>
>どのようなコードにしているのでしょうか?
>私は、以下のようにしていますが・・・
>
>Private Sub SpinButton1_SpinDown()
> Me.TextBox1.Value = Format(Val(Me.TextBox1.Value) - 0.1, "0.0")
>End Sub
>
>Private Sub SpinButton1_SpinUp()
> Me.TextBox1.Value = Format(Val(Me.TextBox1.Value) + 0.1, "0.0")
>End Sub
|
|