Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18925 / 76732

←次へ　｜　前へ→


	【63245】Re:テキストボックスの書式設定

dtaro - 09/10/19(月) 19:17 -


	引用なし

	パスワード

▼かみちゃんさん：

有難うございます。書式は何も指定せず単純に
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

2 hits

▼

【63243】テキストボックスの書式設定 dtaro 09/10/19(月) 18:59