TOP

マクロを使用してすべてのセルで分裂を実行します

説明

セル内の値を任意の数値で自動除算するマクロ。すべての値がペニー単位で指定されているデータ ファイルがあり、計算とデータをグリブナ (または別の通貨) に変換する必要がある場合に必要になることがあります。

もちろん、数式を使用して値を変換することもできますが、数値が多い場合、この方法での変換は非常に長くて退屈になります。

たとえば、選択したすべてのセルを数値で割る方法を考えてみましょう。 "100" Excel でマクロを使用します。


マクロの VBA コード

これを行うには、本を開いて、 Visual Basic エディタ (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" 為替レートに基づいて、別の通貨で値を取得します。

同様に、任意の数値を乗算するなど、任意の演算を実行できます。