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

質問

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

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

回答No.1

ziziwa1130 · ベストアンサー

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

お礼

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

回答No.2

hige_082

＞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)

参考まで