エクセルセル計算

Excelのセルに数式を設定して、そのセルに図形を書き込むと、数式が自動的に適用され、代わりに計算された図形が表示されるように設定できます。

すなわち; セルA1に数値（10など）を書き込みたい場合。しかし、セル（A1）で10の125％を計算したいのです。結果は12.5です。セルA1に表示

ワークシートコード領域に次のワークシートイベントマクロを配置します。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rINT As Range
    Set rINT = Intersect(Target, Range("A1"))
    If rINT Is Nothing Then Exit Sub
    Application.EnableEvents = False
        Range("A1").Value = 1.25 * Range("A1").Value
    Application.EnableEvents = True
End Sub

ワークシートコードであるため、インストールが非常に簡単で、自動的に使用できます。

1. Excelウィンドウの下部にあるタブ名を右クリックします
2. [コードの表示]を選択-VBEウィンドウが表示されます
3. ものを貼り付けて、VBEウィンドウを閉じます

懸念がある場合は、まず試用ワークシートで試してください。

ブックを保存すると、マクロも一緒に保存されます。2003年以降のバージョンのExcelを使用している場合、.xlsxではなく.xlsmとしてファイルを保存する必要があります。

マクロを削除するには：

1. 上記のようにVBEウィンドウを表示します
2. コードをクリアする
3. VBEウィンドウを閉じます

一般的なマクロの詳細については、以下を参照してください。

http://www.mvps.org/dmcritchie/excel/getstarted.htm

そして

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

イベントマクロ（ワークシートコード）の詳細については、以下を参照してください。

http://www.mvps.org/dmcritchie/excel/event.htm

これを機能させるには、マクロを有効にする必要があります！

編集＃1：

A1からA10までのセルのブロックに対してこれを行うには、前のマクロを次のように置き換えます。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rINT As Range, r As Range
    Set rINT = Intersect(Target, Range("A1:A10"))
    If rINT Is Nothing Then Exit Sub
    For Each r In rINT
        Application.EnableEvents = False
            r.Value = 1.25 * r.Value
        Application.EnableEvents = True
    Next r
End Sub