TOP

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

説明

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

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

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


マクロの VBA コード

これを行うには、ワークブックを開き、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」を通貨レートに置き換えると、別の通貨で値が取得されます。

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