VBAの勉強を始めてみた

タイトルの通りVBAの勉強を始めました。効率化と暇つぶしを兼ねています。ブログの書き方なんて知りません分かりません。

選択範囲の金額を千円単位にする(四捨五入版)

タイトルのとおり選択範囲の金額を千円単位に変換し、小数点以下を四捨五入します。
ちなみに、下記のコードでは小数点以下を四捨五入ますが、小数点以下を切り上げたり切り捨てしたい場合もあると思いますのでそっちのバージョンも作ってみました。コード後のリンクから飛べます。


***************************************
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 = Round(myRange.Value / 1000, 0)    '小数点以下は四捨五入
        End If
    Next myRange
   
End Sub
***************************************

 ※SubからEnd Subまでをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。

 

切り捨て版はこちら 

kouten0430.hatenablog.com

 

 切り上げ版はこち

kouten0430.hatenablog.com