Excel VBA質問箱 IV

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

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


3259 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

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

引用なし
パスワード
   UserFormのテキストボックスに数値を入れ、これをスピンボタンで
0.1刻みで変化させています(下限5.0〜上限10.0)
5.8や5.9の時は問題ないのですが、5.0や、6.0の時に 5,6などと
小数点表記ができなくなっています。

書式設定はテキストボックスに対しては出来ないのでしょうか?

【63244】Re:テキストボックスの書式設定
発言  かみちゃん  - 09/10/19(月) 19:08 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>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

【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

【63246】Re:テキストボックスの書式設定
発言  かみちゃん  - 09/10/19(月) 20:11 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> 5#の#は何でしょうか?
> 5.0 と書いたらEditorの方で 5# と変換しちゃってるみたいなんですが。

倍精度浮動小数点(Double)型の型宣言文字です。
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page4.htm

【63247】Re:テキストボックスの書式設定
お礼  dtaro  - 09/10/19(月) 20:23 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>> 5#の#は何でしょうか?
>> 5.0 と書いたらEditorの方で 5# と変換しちゃってるみたいなんですが。
>
>倍精度浮動小数点(Double)型の型宣言文字です。
>http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page4.htm

有難うございました!

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