選択範囲の金額を千円単位にする(切り捨て版)
タイトルのとおり選択範囲の金額を千円単位に変換し、小数点以下を切り捨てします。
ちなみに、下記のコードでは小数点以下を切り捨てますが、小数点以下を切り上げたり四捨五入したい場合もあると思いますのでそっちのバージョンも作ってみました。コード後のリンクから飛べます。
***************************************
Sub 選択範囲の金額を千円単位にする切り捨て版()
Dim myRange As Range
For Each myRange In Selection
If myRange.Value <> 0 And myRange.Value <> "" And _
TypeName(myRange.Value) <> "String" And TypeName(myRange.Value) <> "Date" Then
'セルの値が0,空白,文字列,日付のいづれかの場合は処理をしない
myRange.Value = Application.RoundDown(myRange.Value / 1000, 0) '小数点以下は切り捨て
End If
Next myRange
End Sub
***************************************
※SubからEnd Subまでをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。
切り上げ版はこちら
四捨五入版はこちら