Excel VBA質問箱 IV

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

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


18931 / 76738 ←次へ | 前へ→

【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

4 hits

【63243】テキストボックスの書式設定 dtaro 09/10/19(月) 18:59 質問
【63244】Re:テキストボックスの書式設定 かみちゃん 09/10/19(月) 19:08 発言
【63245】Re:テキストボックスの書式設定 dtaro 09/10/19(月) 19:17 質問
【63246】Re:テキストボックスの書式設定 かみちゃん 09/10/19(月) 20:11 発言
【63247】Re:テキストボックスの書式設定 dtaro 09/10/19(月) 20:23 お礼

18931 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free