Excel VBA 数字を四捨五入するＶＢＡ

こんにちは脇村です。僕のブログでは、本業での実務上のＥＸＣＥＬ、ＡＣＣＥＳＳマクロ＆ＶＢＡの使えそうなコードの紹介、コールドリーディングの実践例、日常のつぶやき－脇村、今の時代を生き抜くために－脇村、電話占い師の現場、最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はＥＸＣＥＬＶＢＡについて発信したいと思います。こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながると思います。少しずつ発信していってその手助けができれば幸いだと思っています。今回は小数点以下を四捨五入するＶＢＡについてです。

Sub 四捨五入()
Dim 行 As Integer
‘*********O列小数点を四捨五入する**********
For 行 = 7 To ActiveSheet.Range(“H65535”).End(xlUp).Row ①
If InStr(ActiveSheet.Range(“O” & 行).Value “.”) > 0 Then ②
ActiveSheet.Range(“O” & 行).Value = WorksheetFunction.Round(ActiveSheet.Range(“O” & 行).Value, 0) ③
End If
Next
End Sub

①は7行目からＨ列の最終行まで処理をします
②はＯ列に.（ドット）が入っていたら処理をします。
③はＯ列をWorksheetFunction.Round関数で四捨五入します。
以上、今回は数字を四捨五入するＶＢＡでした。次回もまたよろしくお願いします。

首・肩・腰の痛みを寝てるうちに治したい！

━━━━━━━━━━━━━━━━━━━━━━━━━
■ 寝るだけで首・肩・腰に整体効果の【特許取得枕】
━━━━━━━━━━━━━━━━━━━━━━━━━
・整体師47人が整体対決で負けた！
・ゴッドハンド整体師が作り上げた奇跡の枕。
・整体院での施術にも使用されています。
・ストレートネック対策・自律神経の調整にも

▼詳細はこちら
https://px.a8.net/svt/ejp?a8mat=3NADJB+152XIQ+4GZK+5YZ77
━━━━━━━━━━━━━━━━━━━━━━━━━