エクセル関数を使って小数点以下を切り捨てする作業をVBAを使って複数行一括処理したいと思ったことありませんか?
Application.RoundDownと繰り返し処理を合わせて使えば、VBAコードたった3行で簡単にできる方法をご紹介します。
Application.RoundDown
エクセル関数で小数点以下切り捨てをするのはRoundDown関数を使えば簡単にできますが、せっかくエクセルVBAを使っているのだから無駄な数式を書いておくのって気が引けますよね。
1か所だけ切り捨て
そこで、ユーザーフォームに配置したコマンドボタンを押すことで、指定した複数のセルの値が小数点以下になっていたら整数にするVBAコードです。
VBAコード
Private Sub CommandButton1_Click()
Range(“A1”).Value = Application.RoundDown(Range(“B1”).Value, 0)
End Sub
解説
- コマンドボタン1がクリックされたら
- セルA1の値はセルB1の値を小数点以下切り捨て値を記載する
- マクロ記録終了
一番最後の,0を小数点第1位までにするならば,1とすれば完成で、小数点第2位ならば,2です。
複数セルを一括繰り返し処理して切り捨て
正直1か所だけならばVBAを使う必要もなくセルに直接エクセル関数を書けばいいのですが、何か所もあるのでVBAで簡単に処理したいと考えるので、繰り返し処理のFor~Nextを一緒に使う事で解決します。
VBAコード
Private Sub CommandButton1_Click()
For i = 1 To 10
Cells(i, 1).Value = Application.RoundDown(Cells(i, 2).Value, 0)
Next i
End Sub
解説
- コマンドボタン1がクリックされたら
- 変数「i」を宣言し、1~10とする
- セルi行目の1列目の値はセルi行目の2列目の値を小数点以下を切り捨てて記載する
- 繰り返し処理をする
- マクロ記録終了
波乗りアヒル
こうするだけで1行目から10行目までがVBA小数点以下切り捨てを繰り返す事ができるようになりました。
関連記事
-
ラベル
2つのセルの値を足し算など加減乗除してラベル名に表示させるVBA
ユーザーフォームに配置したラベルの文字をプロパティのキャプションで指定するのではなく、セルの値を取得して表示させたいことありませんか? そしてさらに、2つのセ… -
データの操作
エクセルVBAで氏名・名前を姓と名で自動的に分割する簡単な方法
エクセルで表などを作成していると、並べ替えや振り分けなどのデータ処理が面倒だと思ったことはありませんか? データ処理に手間をかけていると仕事の作業効率が悪くな… -
データの操作
Key4は使えないけど4つ以上項目の並べ替えをVBAコードでやる方法
エクセルVBAを使ってデータの並べ替えを行うのにSortメソッドを使うのですが、4つ目の条件までの並べ替えををVBAコードを使ってやってみたら、エラーになった経験あり… -
データの操作
エクセルVBAで不要な行や列を非表示ができない時の対処方法と順番確認
データ抽出などで不要な行や列を自動的に非表示にできるExvel-VBAのHiddenプロパティですが、コードは正しく書かれているのにコマンドボタンを押すとエラーになったこと… -
VBA関数
エクセルVBAのメッセージ文章をセルの値にリンクさせる簡単な方法
エクセルでメッセージボックスを利用して「〇〇しますか?」と問うた時に、「はい」「いいえ」を選択できますが、固定した文章ではなくセルの値によって質問内容が変更… -
データの操作
エクセル関数とVBAを組み合わせて商品期限切れ通知を表示する方法
小さな会社や個人では、アプリや専用ソフトを使って商品管理とかはコストが見合わず、エクセルで商品管理していませんか? このエクセルによる商品管理でリストの中にあ… -
VBA関数
もし~だったらの条件分岐エクセル関数IFをVBAで代用する方法
条件分岐というと難しいですが、もし~だったら、そうでなかったらってよくありませんか? そしてエクセル関数でも使うIF関数をエクセルVBAでも高頻度で使うので、基本… -
セルの操作
エクセルVBAで複数セルを一括で結合・解除を繰り返し処理する方法
エクセルの表を印刷するには見栄えの為にセルの結合を行ったら、並べ替えをするとエラーになって困ったことありませんか? Mergeメソッドを書き加えれば、自動的にセル… -
ラベル
VLOOKUPをVBAラベルを活用してデータ検索・修正をする方法
【ラベル(Label)にVBAコードを記述する】 ボウリング成績表でも使っているユーザーフォームに配置した文字を表示するための「ラベル(Label)」にも、実はVBAコードを…
紅葉スポット
-
養老渓谷紅葉ライトアップへ上総中野駅からバスで滞在時間3時間
懐かしい国鉄車両に乗車できるいすみ鉄道に乗って、昭和の風情が残る養老渓谷の温泉街で地元振興もかねて「養老渓谷もみじまつり」が行われ、ライトアップも行いながら… -
片品村「菅沼」の紅葉へ奥日光湯元温泉から無料バスで紅葉穴場へ
全国屈指の透明度を誇る菅沼に周囲の山々の色づいた木々が鏡のように反射する紅葉絶景が見られる、穴場紅葉スポットです。 菅沼には電車とバスを利用していくことができ… -
雲場池へバスで軽井沢駅から紅葉絶景観光スポットへ滞在時間50分
【紅葉見頃】10月中旬~11月中旬 避暑地軽井沢は実は紅葉も綺麗に見られる観光スポットでも知られ、紅葉名所の雲場池は軽井沢駅から1.3㎞程なので徒歩でも行けますし… -
日光自然博物館へバスで日光駅から紅葉景色へ滞在時間50分
【紅葉見頃】10月中旬~11月下旬 中禅寺湖から竜頭の滝や戦場ヶ原方面と反対方向に行くと、中禅寺湖を一望できる半月山展望台と中禅寺湖展望台があり、その途中の中禅… -
栃木駅から大平山展望台へバスで陸の松島と言われる紅葉スポットへ
【紅葉見頃】11月中旬~11月下旬 太平山は蔵の街で有名な栃木市中心部にある県立自然公園で、山頂付近にある太平山展望台からの眺望は、関東平野が一望でき眼下の峰々… -
旧碓氷峠見晴台へバスで旧軽井沢駅から紅葉展望へ滞在時間20分
軽井沢と言えば長野県ですが、旧碓氷峠見晴台は長野県と群馬県の県境に位置するのですが、群馬県の観光スポットというよりは、長野県ですね。 ここ旧碓氷峠見晴台からは…