- 締切済み
小数点表示で。
dim a as double dim b , c as integer a=b/c とした時、b/cが割りきれない場合は aを四捨五入して少数第1位まで表示したいのですが その時はどのようにすればよいですか? label1.captin=aとして表示したいのですが label1のdataなんとか・・・プロパティをかえてもだめでした。
- みんなの回答 (2)
- 専門家の回答
関連するQ&A
- エクセル2010 小数点を切り捨てたい!
少し前に同じ質問をしたのですが、ミスがあったのでもう一度投稿します。すみません、、 A1に2.54という数字があるとしたらB1に2.5を入れたいです。小数点第2は四捨五入します。 四捨五入した数字を使ってまた別の計算をしたいのですが、このときに2.54ではなく2.5の数字を使います。なので、四捨五入した数字を表示するだけではなく2.5という数字に変えたいです。 C1に2.5があったら、B1+C1=5.0となるようにしたいです。 できれば数式を入力して解決したいですが、超簡単なマクロでしたらわかりますのでマクロでも問題ありません。もし初心者には理解が難しいマクロでしたら簡単な解説をつけていただけると超助かります。 またマクロで回答いただいた場合はいろいろと質問させていただくかもしれませんがよろしくお願いします。
- ベストアンサー
- その他MS Office製品
- VBA 小数点の割り算
お世話になります。 以下のように計算をしたいのですが。 Dim A_DATE As Single Dim B_DATA AS Single Dim C_DATA AS Single A_DATA = 69.63 B_DATA = 1651.8 C_DATA = A_DATA / B_DATA とすると C_DATAには希望は0.04214・・・・ がセットされてほしいのですが、 4.2154・・・となってしまうのです。 変数の指定の仕方がおかしいのか、 割り算の仕方がおかしいのかよく分かりません。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- EXCELで小数点以下を四捨五入しない方法
EXCELで例えば、A1セルに7320000 B1セルに156 C1セルに26と入力してA1/B2*C1とすると電卓では、121.9999と続きますが、EXCEL計算では122.0000と勝手に四捨五入されてしまいます。四捨五入されず、実際の121.99999で表示させるにはどうすれば宜しいでしょうか?
- 締切済み
- オフィス系ソフト
- 小数点以下表示
averageで計算した値を表示したところ、 勝手に四捨五入されてしまいました 小数点第二位まで表示したいので どなたかよろしくお願いいたします<m(__)m> Option Explicit Public Sub 平均() Const SH_NAME As String = "VBA" Dim art As String Dim i Dim ws As Worksheet Dim endrow As Long Dim msg As String Dim writerow As Integer Dim target As Range Dim ActCell As Variant Dim Result As Integer Set ws = ThisWorkbook.Worksheets(SH_NAME) writerow = 2 art = InputBox("日付を入力してください") With ws endrow = .Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To endrow If art = .Range("A" & i) Then If target Is Nothing Then Set target = Range("D" & i) Else Set target = Union(target, Range("D" & i)) End If Else If InStr(msg, .Range("A" & i)) = 0 Then msg = msg & .Range("A" & i) & vbCrLf End If End If Next i If msg <> "" Then MsgBox msg End If target.Select ActCell = Selection.Address Result = Application.WorksheetFunction.Average(.Range(ActCell)) Range("F39").Value = Result Range("F39").NumberFormatLocal = "0.00" End With End Sub
- ベストアンサー
- Visual Basic
- Excelで小数点以下を切り捨てて表示するには?
こんにちは。 ちょっと急ぎで知りたいのですが、Excel2000で計算式を入力したところ、 自動的に小数点以下が四捨五入されて表示されます。 小数点以下は、切り捨てて表示もしないようにしたいのですが、 どのようにすればよいのでしょうか? 基本的なことですみません・・・ 具体的には・・・ A1に 48.85 B2に 250 C3に =SUM(A1*B1) と入力してあります。 C3は現在、12,213と表示されていますが、 12,212にしたいのです。 できればC列すべてそのように設定したいのですが・・・ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 小数点4桁での四捨五入がうまくいきません
エクセルで次のような計算をさせます。 A2 に1.8、B2に0.075、C2に0.075、 D2に= A2*B2*C2 、E2に=roundup(D2,4) D2の計算結果は 0.010125 です。小数点第5桁目の値を参照して第4桁目で四捨五入したいのですが、roundupでは0.0102、rounddownでは0.0101です。 表示させたいのは0.0101です。この場合、rounddownを使えば問題ないのですが、逆にrounddownだと小数点以下4桁目の四捨五入がうまくいかない場合もあります。 例えば A3に2.7 B3に0.08、C3に0.08 があり、E3にすべての値を掛けた結果を表示させると0.01728となります。 =roundup(E3,4)では0.0173となり、rounddownでは0.0172となります。この場合はroundup関数の結果である0.0173が求める数値です。 A列、B列,C列に任意の数字が入り、E列に4桁目で四捨五入した正確な値を求めたいのですが、なにか良い方法はないでしょうか。 VBAを使っても構いません。ちなみにこれは木材の材積計算に使用する目的です。 よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- VBの小数点周り
以前から思っていたのですが、VBの小数点ってあやしくないですか? 変な現象を見つけたので、知っている方がいたら教えていただきたいのです。 小数点以下、四捨五入をしようと思い、 c = fix(val(a)+val(b)) という、式に対して、a = 20,b = 76.80 と、入れたところ、c = 1536 となるはずなのですが、返ってきた値は c = 1535 でした。 fixかけてるのに、値が減ってしまうなんてことがあるのでしょうか?? 意味不明な現象に戸惑っております。
- ベストアンサー
- Visual Basic
- Excel97小数点以下の表示
いつもお世話になってます。 小数点以下の表示についてご存知の方がいらしたら教えてください。 x=round(a/b,0)とします。 0.5>x>0 の四捨五入して0になる場合は0を表示させたいのですが x=0 のときは値を表示させたくないときはどのような書式設定をすればよいのでしょうか。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VB6.0での小数点の扱いについて
現在、VB6.0を使用しており、小数点の扱いに困っています。 Sub Keisan() Dim A As String Dim B As String Dim C As String A = 1.29033 B = 1.91458 C = CStr(A + CDec((B - A) / 6) * 3) MsgBox C End Sub 上記のプログラムを実行すると、 「1.602455000000001」と表示されますが、 電卓を用いて計算すると、 「1.602454998・・・」となり、微妙に誤差が出てしまいます。 小数点を整数にして計算→元の桁数に戻す、という 処理を行うと、誤差なく求めることが出来ましたが、 「もっとスマートなコードにして」と言われてしまいまして どうしたものかと思っております。 この誤差を解決する方法は無いでしょうか?
- ベストアンサー
- Visual Basic
- PostgreSQLで小数点以下を処理する関数はありますか?
update a_tbl set b_fld=a_fld * 1.05; とした場合にb_fldがintegerの場合どうなるのでしょうか? SQL分で、切り上げ、切捨て、四捨五入は可能でしょうか? また、Cygwin版のPostgreSQLでVisualBasicのクライアントプログラムから利用できるのでしょうか?
- ベストアンサー
- その他(データベース)
お礼
いつもありがとうございます。 少数表示なりました。 ただMe.Label1.Caption = funcRound(a, 2) では エラーになりました。 Me.Label1.Caption = Round(a, 2) にするとうまくいきました。