Excel VBA質問箱 IV

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

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


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

70853 / 76734

←次へ　｜　前へ→


	【10383】Re:テキストボックスの表示桁数の指定

Seraph - 04/1/22(木) 14:51 -


	引用なし

	パスワード

▼miya さん：

あまりエレガントではないかもしれませんが、、、

少数以下が有るか無いかを判定して、Format関数を別々に呼出すと言うのは
どうでしょう？

このコードを
>　　　　　 myC.Value = Format(Cells(myC.Tag, 1), "#0.##")

こんなカンジにしてみる、、、
　　If Cells(myC.Tag, 1) = Fix(Cells(myC.Tag, 1)) Then
　　　　myC.Value = Format(Cells(myC.Tag, 1), "#0.##")
　　Else
　　　　myC.Value = Format(Cells(myC.Tag, 1), "#0")
　　　　'または　myC.Value = CStr(Cells(myC.Tag, 1))
　　End If

>セルの値が整数「10」の場合、テキストボックスに表示される値が
>「　10.　」と小数点が表示してしまいます。
>整数はそのままで、小数点がある場合は
>下2桁までの表示にしたいのですが
>どうすればよいでしょうか？

セル参照のコードが冗長になって気になる場合は、変数に取ってもいいと思います。
＃好みや、Single型の使用が許されるかで色々でしょうが、、、
＃こんなカンジにも書けます。

Dim myC　　　　　　 As Control
Dim bPoint　　　　　As Boolean
Dim sglCellValue　　As Single
　　For Each myC In Controls
　　　　'Tagに設定値があれば
　　　　If myC.Tag <> "" Then
　　　　　　'セルの値をとる
　　　　　　sglCellValue = CSng(Val(Cells(myC.Tag, 1)))
　　　　　　'小数点以下があるか判定
　　　　　　bPoint = sglCellValue <> Fix(sglCellValue)
　　　　　　'整形して表示
　　　　　　myC.Value = Format(Cells(myC.Tag, 1), IIf(bPoint, "#0.##", "#0"))
　　　　End If
　　Next

2 hits

▼

【10377】テキストボックスの表示桁数の指定 miya 04/1/21(水) 19:57