(26) Excelワークシートの Change と Calculate イベントの違いを理解する！ 

Excel メニューバーの [ヘルプ] - [更新プログラムのチェック] にて、適用されていないアップデートがあれば行ってください。 

Excel 2016 for Mac 環境での説明となりますので、 Mac版 Excel 2011 では（ VBA が利用できますが ）同じ結果にならない場合があるかもしれません。

現状、 VBE 内で日本語を記述すると（貼り付けのみ可能な場合あり）乱れたり、保存時にクラッシュすることが多いため、 VBAコード は「未変換の英数字のみ」で記述してください。（テキストエディタからの貼り付けは可能）

（ ユーザー定義関数 のVBAコードを含んだ）前回使用した XLSM ファイルを、「マクロを有効」にして開きます。



(1) VBAコードを入力する前に、「C2」セルに数式　=A2*B2　を入力
(2) 「C2」セルを [command] + [C] 等でコピー後、「C3:C11」セルを選択して [command] + [V] 等で貼り付け
(3) １行めの見出しの入力と、「A2:A11」「B2:B11」「E2」セルの背景色を見易いように変更



 [ alt ] + [ F11 ] にて VBE を開き、（上記画面赤枠の） SheetN を選択後、末尾に以下の VBAコードを入力するかコピーして貼り付け。
（ SheetN は、追加した２つめのワークシートで、 2 以外もありえる ）
赤枠の Else 以降の コードを（修正）入力するか、以下からコピーして貼り付ける。

'----------------------------------------
'    Event: Worksheet_Change()
'----------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Rem If Application.Intersect(Target, Range("B2:B11")) Is Nothing Then
Rem Else
    If Not Application.Intersect(Target, Range("B2:B11")) Is Nothing Then
        If IsNumeric(Target.Value) Then

            Application.EnableEvents = False

                Target.Offset(0, -1).Value = Target.Value
Rem             ' 通貨型丸め処理（丸めた結果が偶数になるように、丸められる）
Rem             Target.Value = Round(Target.Value, 0)    ' ５捨６入　の場合あり
                Target.Value = Int(Target.Value + 0.5)   ' ４捨５入

            Application.EnableEvents = True

        End If
    Else
        MsgBox ActiveSheet.Name & " Event : " & Target.Address(False, False)
    End If

End Sub
'----------------------------------------
'    Event: Worksheet_Calculate()
'----------------------------------------
Private Sub Worksheet_Calculate()
    MsgBox "ワークシート内の「数式」が再計算されました！"
End Sub

 1. ワークシート内の「数式」が再計算された場合に Calculate イベントは発生するが、対象のセルは判らない 

最後まで読んでいただき、ありがとうございます。
ぜひ、右側の「人気ブログランキング」投票に　ご協力ください。
また、お越しくださいませ。
// アタル