Excel 変化するセル カウント

質問

Excelで、セルの値が変化するときに、ある一定以上の値になった回数をカウントすることはできますか？

例えば、セルA1の値が2→5→8→3→9と変化したとき、6以上の値になった回数を知りたいので、セルA2に2と表示させたいです。

回答No.2

kkkkkm · ベストアンサー

回答No.1の追加です。

手動で入力の場合は念のために以下のようにしておいたほうがいいかもしれません。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("A1").Address Then
Exit Sub
End If

'イベント無効
Application.EnableEvents = False

If Range("A1") >= 6 Then
Range("A2") = Range("A2") + 1
End If

'イベント有効
Application.EnableEvents = True

End Sub

お礼

マクロを作っていただきありがとうございました。

Powered by GRATICA

回答No.1

kkkkkm

手動で入力しているのでしたら
該当シートのマクロに

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("A1").Address Then
Exit Sub
End If
If Range("A1") >= 6 Then
Range("A2") = Range("A2") + 1
End If
End Sub

マクロで変化させているのでしたら

変化させた後で
If Range("A1") >= 6 Then
Range("A2") = Range("A2") + 1
End If

で試してみてください。