• ベストアンサー

VB2008で小数点以下3桁を表示しない方法は?

VB歴1週間となりました。 初めてのVBですがVB2008EEの完成度高さに驚いております。 とても扱いやすかったです。 RS232C通信で外部機器から実数をもらい、計算加工などを行いハイパーテキストに表示するというものです。 大まか完成したのですが、実数の表示がちょっと見にくくなっています。 例) 3333.3333334564 と表示される 3333.3345 とか小数点以下4桁みたいに設定できるでしょうか? 計算させて丸めれば済む話なのですが、3333.3300 みたいにしたいのです。 意味不明な質問かもしれませんがご理解の程宜しくお願いします。

  • MIKAHA
  • お礼率90% (107/118)

質問者が選んだベストアンサー

  • ベストアンサー
  • tohru999
  • ベストアンサー率49% (76/154)
回答No.2

No.1さんの sdata = data.ToString("#########0.####") を sdata = data.ToString("#########0.0000") にすればどうですか?

MIKAHA
質問者

お礼

いつも本当に感謝です。 出来ました。!!!!!!!!!!!!! ありがとうございました。 また、何かありましたときは宜しくお願いいたします。 P.s 今週の休みに「参考書」を買いに行く予定です(^O^)/

その他の回答 (1)

  • tom11
  • ベストアンサー率53% (134/251)
回答No.1

今ひとつ、意味解りませんが、 以下のようなことですか。 Dim data As Double = 3333.334564 Dim sdata As String sdata = data.ToString("#########0.####") Console.WriteLine(sdata) 結果 3333.3346

MIKAHA
質問者

お礼

早々のご回答に感謝いたします。 すみません。説明も質問もイマイチですね(汗) テキストBOXに表示した時 例 1□□□2345.5□□□(実数は2345.5000) 2□□□2345.567□(実数は2345.5670) 3□□□2345.5678(実数は2345.5678) 100□□□2345.5□□□(100が数値の表示をずらしている) これを 001□□□002345.5000□□□ 002□□□002345.5600□□□ 003□□□002345.5670□□□ 100□□□002345.5678□□□ このようなすっきりした感じで表示したいと思っています。 文字列に直すのが良いと思い色々やっていますがうまくいきません。 ご回答頂いた方法で今から試してみます。 ありがとうございました。

MIKAHA
質問者

補足

早々テストしてみました。 私の説明不足ですみません。 結果 3333.3346 となったんですが 3333.33 にした場合 3333.3300 と表示できますか? 00001,1234.50,1234,56700 00002,0234.55,1234,56700 00100,1234.50,1234,56721 02340,0004.11,1234,56700 00011,1234.00,1234,56700 こんな表示が理想なんです。宜しくお願いいたします。

関連するQ&A

  • エクセルで小数点以下3桁を四捨五入して、小数点以下1桁を表示する方法

    エクセル2003を使用しています。 計算式から出た結果に対して、小数点以下3桁を四捨五入して、小数点以下2桁ではなく、1桁を表示したいです。 例えば、計算式の結果、 1.145 の場合、普通に四捨五入すると 小数点以下1桁なら、1.1 小数点以下2桁なら、1.15 となってしまいます。 これを小数点以下3桁を四捨五入して、小数点以下1桁表示の1.2と表示させたいのですが、可能でしょうか?

  • エクセル 小数点以下二桁と小数点以下0桁そのままで

    エクセル2013を使っています。 セルの書式設定の文字列にする方法以外で、教えてください。 小数点以下2桁と小数点以下なしで表示するセルを計算したいのですが、 文字列にすると、計算できないので困っています。 入力した数字そのまま表示し、計算するにはどうすれば良いですか?

  • アクセスで小数点以下1桁までをインポートしたい

    アクセスのインポートで小数点1桁までをインポートしたいです。 インポートするデータはCSVファイルです。 インポート定義をつける為に、エクセルのデータをCSVにし、CSVをアクセスにインポートしています。 エクセルの時点では、小数点下1桁まで表示されているのですが、CSVに加工した時に小数点以下1桁が0のものは整数表示になってしまいます。 (例)  エクセル → CSV   38.5  → 38.5   35.0  → 35 アクセスでインポートした後に、全部のレコードを小数点下1桁にするのはどうしたらよいのでしょうか?

  • 小数桁表示ができません

    最近javaプログラムを始めたものです。いま円周率πの計算をしているのですが、どうしたら小数桁を15桁以上の値を表示することができますか?よろしくお願いします。

  • VB初心者。小数点以下の表示でつまづいています(2

    『VB初心者。小数点以下の表示でつまづいています(涙』 (・・・過去質問 解決済み) では大変お世話になりました。 さて、上記質問は解決したかに思い、お礼もしてして終了したのですが、 検証しておりましたら問題が見つかりました。 以下、質問内容を修正して、再質問します。よろしくお願いしますm(__)m VB .NET環境 Microsoft Visual Studio / ActiveReportで帳票を作成しています。 DBからの値が、小数点以下ありの場合(例:1.07)の時はそのまま表示し、小数点以下が.00の場合(例:1.00)の時、整数部分のみを表示させたいのです。 質問の『値』ですが、今回の値は小数点第2位までです。 #.00 の時 → # と表示。 #.01~99 の時 → そのまま表示。 としたいのです。 ちなみに、小数点から左(整数部分)の桁は9桁まで入る可能性があります。 前回解決した際は、小数点より右1桁、左1桁で質問してしまったので、  H_数量.Text = Format(Val(H_数量.Text), "0.0")  If Right(H_数量.Text, 2) = ".0" Then  H_数量.Text = Format(Val(H_数量.Text), "0")  End If と回答いただき、このパターンではうまく動きました。 小数点以下2桁のパターンも、コードを変更し、  H_数量.Text = Format(Val(H_数量.Text), "0.00")  If Right(H_数量.Text, 2) = ".00" Then  H_数量.Text = Format(Val(H_数量.Text), "0")  End If でOKでした。 しかし、小数点より左9桁、右2桁を試してみると、ダメなのです。 1行目、  H_数量.Text = Format(Val(H_数量.Text), "0.00") を、  H_数量.Text = Format(Val(H_数量.Text), "#,##0.00") と変更しても、 小数点左が9桁には対応できません。 "###,###,##0" とか、"000,000,000" とか色々試しましたが、 500.00 の時、 000,000,500 と表示されました。 どのようにコードを書いたら良いでしょうか? アドバイスお願いしますm(__)m

  • 1セルに6桁以上入力できない。小数点以下の表示が00になってしまう。

    エクセルの1つのセルに1,000,000と入力するも1,000となってしまいます。 数式と値をクリアにしても、表示形式を標準や数値や文字列に設定しても下3桁が入りません。 それと小数点第2位まで計算したいのに、小数点第2位は.00なってしまいます。 それと小数点以下を切り捨てで表示させたいのに、四捨五入になってしまいます。

  • 小数点以下の数字の桁数表示について

    VB6.0で小数点以下の数値が0の場合でも指定した桁数で0も表示するにはどのようにしたらよいですか? 例えば、四捨五入のROUND(0.195000,4)のとき返ってくる数値が「0.195」となり最後の0が表示されません。(以下は4桁表示したいのに) (小数点以下第5位が5なら切り上げで最後に1が表示されますが) エクセルだとセルの書式設定で表示桁数を設定するだけだったのですが。 FIXED関数、TEXT関数はVB6.0では使えないのですよね? VB6.0に詳しい方よろしくお願いします。お手数です。

  • Excelで小数点以下1桁の年数を表示したい

    Excelで年数の計算をしています。 A1に1997/10/27,B1に2006/3/28,C1に「=DATEDIF(A1,B1,"Y")&"年"&DATEDIF(A1,B1,"YM")&"ヶ月"」を入力して「8年5ヶ月」と表示されます。 今回,D1に年数を小数点以下1桁で表示したいのですが,うまくいきません。計算すると8.4か8.5年だと思うのですが。 計算式を教えてください。 よろしくお願いします。

  • 小数点2ケタ以下切り捨てする関数式は??

    以下のような計算をエクセル上で行いたいと思います。 1-((A1+B1)/C1)  という計算式の答えを10倍して、かつ小数点2ケタ以下切り捨て をD1に自動で表示されるようにしたいと考えています。 D1に表示すべき関数式を教えてくれますでしょうか??

  • Excelで小数点を表示しつつ、桁区切りもつけたい。

    Excelで資料を作り、2500/本と先に入力し桁区切りをつけたいと思い以前質問させて頂いてなんとか関数を使用し、完成したのですが今度は2500.00/本と先に入力してあって同じように関数を使って桁区切りをしようとすると.00も数字として認識しているようで変な場所に桁区切りがついてしまいます。単位が/本のほかにも/個、/台と色々な単位があります。小数点も表示しつつ、桁区切りも3桁の場所に表示できる方法はないでしょうか。よろしくお願いします! 以前、投稿しましたが間違って削除してしまったのでもう一度投稿させて頂きました。

専門家に質問してみよう