• ベストアンサー

excelのround関数での質問です

excel2000、WindowsXP proで以下のマクロを書いています ******ここから****** Sub DATA2() Dim i As Long Dim a As Long Sheets("DATA").Select i = Sheets("DATA").Cells(65535, 1).End(xlUp).Row '数量×単価の結果を四捨五入して小数点以下を切り捨てる For a = 2 To i Cells(a, 8).Value = Round(Cells(a, 6) * Cells(a, 7), 0) Next End Sub ******ここまで****** この時正しく四捨五入されない場合があります 例えば Cells(a, 6)の値が20070 Cells(a, 7)の値が61.95 の場合は答えが124337ではなく、1243336になってしまいます しかし、 Cells(a, 6)の値が11985 Cells(a, 7)の値が99.9 の場合は答えが1197302と正しくでます どこがまちがっているのか、どうしてもわかりません 申し訳ありませんが、どうか教えてください

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

  • ベストアンサー
  • onlyrom
  • ベストアンサー率59% (228/384)
回答No.1

＞どこがまちがっているのか、どうしてもわかりません 間違っているというより、Round関数の理解がちょこっと不足しているだけです。 質問の結果は間違いではなく、VBAのRound関数では正しい結果です。 ＶＢＡのRound関数とエクセルなどのワークシート関数のRound関数では 計算方法の違いにより結果に違いが出る場合があるのです。 で、普通の結果（質問者が正しいと思っている結果）を求めたい場合は、 エクセルのワークシート関数のRound関数を使わなければいけません。 = WorksheetFunction.Round(Cells(a, 6) * Cells(a, 7), 0) これだと質問者の求めたい結果がでます。 　 ●ワークシート関数RoundとVBAのRoundの違いは 　下記マクロソフトのサイトに詳しく載ってますので一読をお勧めします。 http://support.microsoft.com/kb/225330/ja 以上。

mnakayoshi
質問者

お礼

"銀行型" の丸め処理というのをまったく知りませんでした お恥ずかしい限りです ご丁寧に回答いただき大変助かりました ありがとうございました

その他の回答 (1)

  • okormazd
  • ベストアンサー率50% (1224/2412)
回答No.2

Round 関数は四捨五入ではありません。 「丸め」です。 丸め方にはいろいろありますが、IEEE 754 標準規格やJIS Z 8401で規則Aの「最近接偶数への丸め」です。 「端数が0.5より小さいなら切り捨て、端数が0.5より大きいならは切り上げ、端数がちょうど0.5なら切り捨てと切り上げのうち結果が偶数となる方へ丸める」です。 VBAは正しい処理をしています。 http://ja.wikipedia.org/wiki/%E7%AB%AF%E6%95%B0%E5%87%A6%E7%90%86#IEEE.E4.B8.B8.E3.82.81

mnakayoshi
質問者

お礼

「丸め」と「四捨五入」を混同していました その「丸め」にたくさんの種類があることもぜんぜん知りませんでした 本当にお恥ずかしい限りです ご丁寧に回答いただき大変助かりました ありがとうございました

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルＶＢＡマクロの質問です。

    マクロ初心者です。行き詰まってます。 sheet1には３００件程度のデータがあります。 このデータの３列目の値を、ＶＬＯＯＫＵＰでsheet3のＡ１：Ｂ３０範囲から参照します。そこで取得した回数分、sheet1の各行のデータをsheet2にコピーしたいんです。 そこで、コード文を作ってみましたが、マクロがうまく動きません。 すみませんが、お知恵を貸していただけないでしょうか？ Dim Z as Long Dim L As Long Dim P As Long Dim Kensaku As String Dim M4 As Range Dim PRow As Long Dim i As Long Set M4 =Sheets(“sheet3”).Range(“A1:B30“) L = Sheets(“sheet1”).Range(“A1”).End(xlup).Row For Z = 1 to L-1 Kensaku = Sheets(“sheet1”).Cells(Z+1,3).Value P=Worksheetfunction.Vlookup(Kensaku,M4,2,False) 　　　For i = 1 to P 　　　　　Prow=Sheets(“sheet2”).Range("A1").End(xlDown).Row 　　　　　Sheets(“sheet1”).Rows(Z+1).Copy Sheets(“sheet2”).Rows(Prow) 　　　Nexti Next Z

  • エクセル　マクロ　抽出

    教えてください。 ○と記入されたセルを参照して、一つ上のセル・A列にある同じ行のセル・ 9行目にある同じ列のセルを抽出しようとしています。 下記の通り入力すると　行数＝値.Rowでエラーが出たしまいました。 試行錯誤頑張りましたが解決できそうにありませんのでお力を貸して頂けないでしょうか。 Sub 抽出() Dim i, 行数, 列数 As Long Dim 値 As Range i = 0 行数 = 値.Row 列数 = 値.Column For Each 値 In Sheets("sheet1").Range("C12:R171") If 値.Value = "○" Then i = i + 1 With Sheets("sheet2") .Cells(i, 3).Value = Sheets("sheet1").Cells(行数, 1).Value .Cells(i, 4).Value = Sheets("sheet1").Cells(9, 列数).Value .Cells(i, 5).Value = 値.Offset(-1, 0).Value End With End If Next End Sub

  • VBAでの質問

    お世話になります。 下記の記述で、「←」の矢印の記述で、 Cells.（５，２）がブランクでなければ、 「→」から進めたいのですが、 どの様に記述すれば宜しいでしょうか ご教示お願いします。 Sub 表記入() Dim Data As Range Dim i As Integer Dim j As Integer Dim k As Integer Set Data = Sheets("集計").Range("A2").CurrentRegion j = 16 k = 0 With Sheets("表") For i = 3 To Data.Rows.Count If Data.Cells(i, 51) <> "" Then .Cells(5, 2) = Data.Cells(i, 3)　　← .Cells(5, 7) = Data.Cells(i, 4) → .Cells(j, 2) = Data.Cells(i, 10) .Cells(j, 6) = Data.Cells(i, 11) & Data.Cells(i, 12) .Cells(j, 14) = Data.Cells(i, 51) Else End If k = k + 1 If k = 10 Then j = j + 18 k = 0 Else j = j + 1 End If End If Next i End With End Sub

  • エクセルＶＢＡマクロの質問です。

    マクロ初心者です。 データ処理のマクロを作ろうとしていて、ちょっと困ってます。 （sheet1) 11 国総　1A (空きセル ) 12 化基　２Ｉ　（空きセル） ・ 以下、２００程度のデータ Ｃ列のデータの種類は１０種類 (sheet2) 1A 2 101 102 2I 3 103 104 105 ・ ・ sheet1のＣ列と同じデータ Ｃ列より右側のデータ数は１から４個程度 (sheet3) データなし sheet1のデータを、sheet3にコピーする際に、各データのＤ列に、sheet2のＣ列の右側のデータを入れていきたいんです。具体的には (sheet3) 11 国総　1A 101 11 国総　1A 102 12 化基　２Ｉ 103 12 化基　２Ｉ　104 12 化基　２Ｉ　105 っていう感じです。先日、こちらのカテゴリでなく、間違えてＶＢＡプログラムの方に質問して、「板違いですよ」と諭されながらも、ご協力いただきsheet2の件数分増やしてコピーするコードまではたどり着いたのですが、その後、どうすればＤ列に移せるのかで悩んでます。ちなみに、いまたどりついたコード文は以下の通りです。 一度、このコード文の続きで、sheet3のＣ列を条件カウントするコードを作ってみたんですが、動いてくれませんでした。 Sub Re8928577a() Dim M4 As Range Dim P As Variant　'　WorksheetFunction.VLookup Dim Kensaku As String Dim L As Long Dim PRow As Long Dim i As Long Dim Z As Long 　　Set M4 = Sheets("Sheet2").Range("A1:B30") 　　L = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row　' 　　For Z = 1 To L - 1 　　　　Kensaku = Sheets("Sheet1").Cells(Z + 1, 3).Value 　　　　P = WorksheetFunction.VLookup(Kensaku, M4, 2, False) 　　　　PRow = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row 　　　　　　For i = PRow + 1 To PRow + P 　　　　　　　　Sheets("Sheet1").Rows(Z + 1).Copy Sheets("Sheet3").Rows(PRow + 1).Resize(P) Next i 　　Next Z End Sub

  • ExcelのVBAの配列に関する質問です。

    ExcelのVBAの配列に関する質問です。 sheet1のデータをsheet2に表示するVBAを作成しています。。 sheet1のデータは7行目からスタートし、sheet2のデータは26行目からスタートしています。。 sheet1とsheet2の列は同じ並びではないため、それぞれのシートの列番号をCellsを用いて指定しています。 Sub test1() Dim endrow As Long endrow = Worksheets("sheet1").Range("A65536").End(xlUp).Row Dim i As Long Dim j As Long For i = 7 To endrow j = i + 19 Worksheets("sheet2").Cells(j, 1) = Worksheets("sheet1").Cells(i, 2) Worksheets("sheet2").Cells(j, 8) = Worksheets("sheet1").Cells(i, 28) Worksheets("sheet2").Cells(j, 9) = Worksheets("sheet1").Cells(i, 31) Worksheets("sheet2").Cells(j, 10) = Worksheets("sheet1").Cells(i, 32) ・ ・ ・　※長いので省略 Next i End Sub 上記のtest1は正常に動くのですが、データ量が多いため、処理に時間がかかってしまいます。 高速化できないかと、以下のように変更しました。 Sub test2() Dim dataRange1 As Variant Dim dataRange2 As Variant dataRange1 = Worksheets("sheet1").Range("A1:GI10006") dataRange2 = Worksheets("sheet2").Range("A1:DZ10018") Dim endrow As Long endrow = Worksheets("sheet1").Range("A65536").End(xlUp).Row Dim i As Long Dim j As Long For i = 7 To endrow j = i + 19 dataRange2(j, 1) = dataRange1(i, 2) dataRange2(j, 8) = dataRange1(i, 28) dataRange2(j, 9) = dataRange1(i, 31) dataRange2(j, 10) = dataRange1(i, 32) ・ ・ ・　※長いので省略 Next i End Sub test2は、エラーメッセージ等は表示されませんが、sheet2にデータが表示されません。 ちなみに、以下のようにsheet1のみ配列化した場合は、正常に表示されました。 Worksheets("sheet2").Cells(j, 1) = dataRange1(i, 2) Worksheets("sheet2").Cells(j, 8) = dataRange1(i, 28) Worksheets("sheet2").Cells(j, 9) = dataRange1(i, 31) Worksheets("sheet2").Cells(j, 10) = dataRange1(i, 32) test2は、どこが間違っているのでしょうか？ ご教示ください。 よろしくお願いいたします。

  • エクセル　転記ループが上手くいきません

    シート２のA列の数値と、シート３のA列の数値が一致したら、シート２のB列の数値をシート３のB列に転記したいです。（実際はもうちょっと複雑ですが・・） 実際はデータ量があるため、処理時間を少なくしたくて、配列に挑戦してみました。 処理は最後まで行くのですが、転記がされません。 どうしてでしょうか？？ どなたか教えてください！！！ Sub sample2() Dim i As Long Dim ii As Long Dim last As Long Dim last2 As Long Dim MyArray1 Dim MyArray2 last = Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row last2 = Sheets("sheet3").Cells(Rows.Count, 1).End(xlUp).Row MyArray1 = Sheets("sheet2").Range("A1:B" & last) MyArray2 = Sheets("sheet3").Range("A1:B" & last2) For i = LBound(MyArray1, 1) To UBound(MyArray1, 1) For ii = LBound(MyArray2, 1) To UBound(MyArray2, 1) If MyArray1(i, 1) = MyArray2(ii, 1) Then MyArray2(ii, 2) = MyArray1(i, 2) End If Next Next End Sub

  • Ｍａｔｃｈ関数がうまく機能していない？？

    すみません。また教えて下さい。 過去ログを見てシート１にあったデータをシート４にあるデータと照らし合わせてすでにあれば書き換え、なければ追加というようにできるようにしたく過去ログを参考にしてやったのですが、どうしてもエラーが出てしまいます。 Private Sub aa() Dim intlastrow1 As Integer Dim strb As String Dim longlastrow1 As Long intlastrow1 = Sheets(1).Range("A7").End(xlDown).Row longlastrow1 = Sheets(4).Range("A1").End(xlDown).Row Dim c As Object Dim rtn As Variant Dim d As Integer With Sheets(4) .Select For Each c In .Range("A1", "A" & longlastrow1) rtn = Application.Match(c.Value, Sheets(1).Range("A7:A" & intlastrow1), 0) d = c.Row strb = Cells(d, "A").Value If IsError(rtn) Then With Sheets(4).Cells(longlastrow1 + 1, "A") .Value = strb With .Font .Name = "ＭＳ Ｐゴシック" .Bold = False .Size = 8 End With End With Sheets(4).Cells(longlastrow1 + 1, "B").Value = Sheets(1).Range("A2").Value Sheets(4).Cells(longlastrow1 + 1, "F").Value = ShowFormula(Sheet1.Range(Cells(d, "J"), Cells(d, "N"))) longlastrow1 = longlastrow1 + 1 End If If Not IsError(rtn) Then Exit Sub End If Next c End With End Sub 以上のように組んだのですがうまくいきません。 具体的に言うとシート１のＡ７よりしたに名前が並んでいる（山田、鈴木・・・）とお考え下さい（シート４のＡ２以下にも同様に名前が並んでいる）。字数の関係で判定後の処理が不十分になっています。

  • エクセルVBA 　どうしても動きません。

    お世話になります。 なかなか上達しない超初心者です。 ↓↓ですが、Activesheetにすると動くのに、シート名を元々存在するシート”実験"に指定すると動きません（データ内容はまったく同じで、A列に色んな名前が入っていて、重複しているとC列に重複と入力します）。 2日間試行錯誤したのですが、やっぱり動かず・・・ ちなみに、Activateにするとアクティブになるし、CurrentRegionも選択できるのに なんでうごかないんでしょうか・・・ 何卒ご指導くださいませ。よろしくお願いいたします！！！！！！ Sub Test2() With Sheets("実験").Range("A1").CurrentRegion Dim i As Long Dim LastRow As Long LastRow = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To LastRow If WorksheetFunction.CountIf(Range("A:A"), Cells(i, 1)) > 1 Then Cells(i, 3) = "重複" End If Next i End With End Sub Sheets("実験")をActivesheetに変えると別のシートがしっかり動いてくれます・・・が、なんとしてでも”実験”シートに動いていただきたいです・・・。

  • EXCEL VBAの配列でわかりません。

    こんなコードがあるのですが、最後の他のシート（作業中シート）に書き込もうとするとエラーになってしまいます。”Sheets("作業中").”を抜くと同じシートに結果は返ってくるのですが…。コードの内容は、ある範囲のある列から空白ではないセルを探し出してその行のデータを配列で汲み取り、他のシートに一括で洗い出すというものです。 Sub 作業中() Dim myRow As Long Dim Data As Variant Dim WC() As Variant Dim WCE() As Variant myRow = Range("H1").CurrentRegion.Rows.Count Data = Range("H1:M" & myRow).Value For i = 1 To myRow If Data(i, 5) <> "" Then a = a + 1 Else b = b + 1 End If Next ReDim WC(a) ReDim WCE(b) c = 0 d = 0 For i = 1 To myRow If Data(i, 5) <> "" Then WC(c) = Range("H" & i & ":K" & i).Value c = c + 1 Else WCE(d) = Range(Cells(i, 8), Cells(i, 11)).Value d = d + 1 End If Next For i = 0 To a Range(Cells(i + 1, 15), Cells(i + 1, 18)).Value = WC(i) Next For i = 0 To b Range(Cells(i + 1, 19), Cells(i + 1, 22)).Value = WCE(i) Next e = Range(Cells(1, 15), Cells(a, 18)).Value Sheets("作業中").Range(Cells(1, 1), Cells(a, 4)).Value = e End Sub ちなみに同じシートから↓のコードを実行するとうまくいきます。 なぜ～？？わからな～い？？おしえてくださーい！！ Sub test() Dim a As Variant a = Range("H1:K4") Sheets("作業中").Range("N1:Q4") = a End Sub

  • エクセルで入力シートから別シートに転記・蓄積について

    エクセルＶＢＡで入力シートのA1:D5（５行）の範囲を別シート（DBシート）の転記・蓄積させる方法を教えてください。また、入力データがA1:A5（１行）のときもあれば、A1:D5（５行）の場合ですが・・・ Sub test01() Dim ws1 As Worksheet, ws2 As Worksheet Dim x As Long, y As Long Set ws1 = Sheets("入力") Set ws2 = Sheets("DB") x = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1 y = ws1.Cells(Rows.Count, "A").End(xlUp).Row ws1.Cells(1, "A").Resize(y, 4).Copy ws2.Cells(x, "A") End Sub の場合、数式等、入力値すべてが転記となってしまいます。 値だけ転記する方法はありませんか？ 宜しくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する