セル内の値を任意の数値で自動除算するマクロ。すべての値がペニー単位で指定されているデータ ファイルがあり、計算とデータをグリブナ (または別の通貨) に変換する必要がある場合に必要になることがあります。
もちろん、数式を使用して値を変換することもできますが、数値が多い場合、この方法での変換は非常に長くて退屈になります。
Excel でマクロを使用して、選択したすべてのセルを数値 (たとえば「100」) で割る方法を考えてみましょう。
これを行うには、ワークブックを開き、Visual Basic Editor (Alt+F11) に移動し、VBA モジュール (Insert - Module) を追加し、このマクロ テキストをそこにコピーします。 :
Sub Division() For Each cell In Selection cell.Formula = cell.Value Next cell For Each cell In Selection cell.Value = cell.Value / 100 Next cell End Sub
その後、Excel に戻ることができます。必要なセルを選択し、メニュー Tools - Macro - Macros (Alt+F8) からマクロを実行します。
また、マクロ コードで「100」を通貨レートに置き換えると、別の通貨で値が取得されます。
同様に、任意の数値を乗算するなど、任意の演算を実行できます。