【コピペでOK!VBA】 選択したセルの数値を1000倍にする、1000で割るだけのマクロ

誰得!?けど意外と使うかも？

Excelのある範囲の数値をまとめて1000倍したい、若しくは1000で割りたい。たったそれだけなのにやってみると意外と結構な手間。そんな時にこいつは効きます。

タイトルだけ見ると誰得感MAXな内容のプログラムですが、あったんですよ。実務で有効的な場面が。

この表の数値、明日までに全部千円単位に直したいんだけどいい方法ない？

という相談で持ってきたのがいろいろなセグメントで分けられたユーザー別の月別売上推移表。途中にはご丁寧に小計も挟まっていたり、罫線がきれいに引かれてあったりと色々体裁がなされています。

そのものは出せないのでサンプルとしてちゃちゃっと書いてみましたがこんな感じ。（中身のデータはフィクションです）

この表ではユーザー数26×12ヶ月=312個の数値を1000倍にするだけの簡単なお仕事ですが、ポチポチ打ち換える以外で対応するとすればこんな感じでしょうか。

まぁこれでも全数打ち込むよりは断然早いですが、上の表みたいに範囲が一括で選べないのは地味にきついですし、これがもっと数があればそれ分きつい作業になってきます。コピーしてスクロールしてー、のスクロールも地味にイラっとする作業だしね。

この手順が今回提唱する方法では以下の手順になります。

1. 打ち換えたい範囲を選択
2. (ここでは)[Ctrl] +[R] キーを押すと範囲内が全部変わる

この方法だったら「ピッ」と押したら「パッ」となるんじゃないですかね！？

しつこいですがこのプログラムの内容自体はショボい内容です。組める人から見たらこんなの作るまでもない、とあきれるレベルかと思いますが、だからこそ、「そんなロジック考えてる場合じゃない」なんて切羽詰まった場面にサクッとコピペしてさっさと仕事を終わらせてしまいましょう。

痒い所の「ちょっと先」に手が届く。それがここのコンセプトです。(*￣ー￣)

使い方

※もし「開発」タブが無い場合は以下をお試し下さい。

ExcelでVBAを使えるようにする初期設定

Excel関係の書籍、教科書類を読んでいると、高確率で巻末近くにサラッと紹介される「マクロ」の機能。そして、その応用編として紹介される「VBA」という機能があります。 なんか便利そうだから挑戦してみよう！と思ったものの、どこにも表示が無いん...

studionorway.blog

2021.05.13

1. Excelの「開発」タブから「Visual Basic」をクリック
   
2. 開いた「Microsoft Visual Basic for Application」のメニューで「挿入」→「標準モジュール」を選択
   
3. 画面左側に「標準モジュール」というフォルダができるので展開する。
4. 「Module1」をダブルクリックすれば、コードを打ち込むためのウィンドウが出てくるので、以下のコードをコピペ
   
5. 「開発」「マクロ」ボタン→オプションを選択して、ショートカットキーに使いたいキーを入力して「OK」をクリック。キーにカブりがあると回避が面倒なので空いてるキーを探した方が賢明。(Rキーは多分空いてます)
   
6. 打ち換えたい範囲を選択して、設定したショートカットキーを押す。
   
7. あとは終わるまで選んでは打ち、選んでは打ち。

以下のコードをコピーして使用してください

Sub 選択部分を1000倍にするマクロ()

Dim c

'マクロでの出来事を非表示にする（高速化のため）
Application.ScreenUpdating = False

     For Each c In Selection
         c.Value = c.Value * 1000　'計算行
     Next c

'マクロでの出来事を表示にする
Application.ScreenUpdating = true

End Sub

中身を見るとやはり「なめとんのか!?」と言いたくなるほどのあっさり感。

見ての通り、逆に1000で割りたい場合は計算行の"*1000"を"/1000"に、別の数式にしたければ適当に打ち換えればいろいろ応用も可能です。

以上、超地味だけど、地味に効くかもしれない小技でした！