こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルVBAで少数点を切り捨てる方法

エクセルVBAであるbookのセルに(=A1*0.05)というような税額を取得するための関数が入っており、
それを
Workbooks(strBname).Sheets("Sheet1").Range("A" & i).Value = Workbooks(thisWB).Sheets(mainScr).Range("A" & ii).Value

のように別ブックに出力するコードを書いているのですが、
Nunberlocalを使用しても表示上は小数点を表示していないのですが
セルを選択すると小数点が消えていません。
完全に少数点を切り捨てる方法はあるでしょうか?

投稿日時 - 2010-03-11 19:34:22

QNo.5744063

困ってます

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

元のBOOKに保存された数値の小数点以下は必要なんですか?
必要無ければ=A1*0.05を=ROUNDDOWN(A1*0.05,0)にするだけですが。

投稿日時 - 2010-03-11 19:49:41

お礼

これはいい関数ですね。
初めて知りました。
ありがとうございます。

投稿日時 - 2010-03-17 11:57:15

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

>Workbooks(strBname).Sheets("Sheet1").Range("A" & i).Value = Workbooks(thisWB).Sheets(mainScr).Range("A" & ii).Value

Workbooks(strBname).Sheets("Sheet1").Range("A" & i).Value = int(Workbooks(thisWB).Sheets(mainScr).Range("A" & ii).Value)

参考まで

投稿日時 - 2010-03-11 22:26:07

あなたにオススメの質問