- ベストアンサー
エクセルマクロで切り捨て表示について
エクセルマクロで切り捨て表示について マクロの文で以下の方法で千の位以下を切り捨てた場合 Sheets(Bsheet).Cells(ｘ, ｙ) = Application.RoundDown(Rp, -3) たとえば543,123とう数字の場合543,000となりますが、セルの書式設定ではなくマクロ上で543と表示するように書くことはできますでしょうか。 教えてください。
- homma
- お礼率84% (744/884)
- その他（プログラミング・開発）
- 回答数3
- ありがとう数5
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
＞ Sheets(Bsheet).Cells(ｘ, ｙ) = Application.RoundDown(Rp, -3) この記述で ＞ たとえば543,123とう数字の場合543,000となりますが となっているのであれば、 Sheets(Bsheet).Cells(ｘ, ｙ) = Application.RoundDown(Rp/1000, 0) にすればいいんじゃないでしょうか。
その他の回答 (2)
- mu2011
- ベストアンサー率38% (1910/4994)
一例です。 Sheets("sheet1").Cells(x, y).NumberFormat = "#,##0,;-#,##0,;"
お礼
各位 回答ありがとうございました。 教えていただきました回答、すべてうまくいきました。 同じ表示でもいろいろな設定があることを改めて勉強出来ました。 ありがとうございました。
- yuck7
- ベストアンサー率0% (0/3)
単位千表示にしたいのでしょうか？ 表示だけの問題なら Sheets(Bsheet).Cells(ｘ, ｙ) = Application.RoundDown(Rp, -3)/1000 もしくは Sheets(Bsheet).Cells(ｘ, ｙ) = Format(Application.RoundDown(Rp, -3)), "#,") ではだめですか？
お礼
各位 回答ありがとうございました。 教えていただきました回答、すべてうまくいきました。 同じ表示でもいろいろな設定があることを改めて勉強出来ました。 ありがとうございました。
お礼
各位 回答ありがとうございました。 教えていただきました回答、すべてうまくいきました。 同じ表示でもいろいろな設定があることを改めて勉強出来ました。 ありがとうございました。