質問掲示板
岡三RSS
集いの広場

すみません。event→changeの間違えです

2020年07月24日

すみません。参照してもらうプログラム文をコピーするとエラーが出てしまいます。

2020年07月24日

ベストアンサーに選ばれた回答
プロフィール画像

him********さん 2015/1/2710:38:58
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) <> "A1" Then Exit Sub
Range("B1") = Range("B1") + 1
End Sub

①コード全体をコピー。
②該当シートの見出しを右クリック。
③ショートカットメニューから「コードの表示」選択。
④真っ白で空白なコードウインドウの場所に貼り付け。
⑤右上の「×」でVBE画面を閉じる。
⑥シート上で操作してみてください！

2020年07月24日

すみません。以上が参照していただく文です。

2020年07月24日

加算.xlsx (15.7KB)

こんにちは！！

Changeイベントでではなくて、Caluculateイベントと言う事ですねー
Caluculateイベントだと、だいぶ複雑になってしまいますが、
以下の通りです！！

ソースへの組み込みはRSSユーザさんからご提示頂いた
①コード全体をコピー。
②該当シートの見出しを右クリック。
・・・・・
と同じ流れで大丈夫でーす。

一応、作ったサンプルファイルをアップロードします。
Download後、拡張子をxlsmに変更すると動きます。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Private PreData(9) As String '←ここは、A1～A10の個数 -1 を入れてください。

Private Sub Worksheet_Calculate()
Dim TargetRange As Range
Dim Index As Integer
Dim CntCell As Range


Index ＝ 0

'データ退避
For Each TargetRange In Range("A1:A10")
'現在値と前回の値との比較
If PreData(Index) <> TargetRange.Value Then
Set CntCell ＝ Cells(TargetRange.Cells.Row, TargetRange.Cells.Column + 1)

'加算
CntCell ＝ CntCell + 1

'現在のデータ退避
PreData(Index) ＝ TargetRange.Value
End If

Index ＝ Index + 1
Next TargetRange

End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
※掲示板でエラーになるため『＝』を全角にしてあります

また、ご提示頂きましたChangeイベントのソースですが
自分の方では問題なく動きましたので、大丈夫だと思います。
どの様なエラーが発生しますでしょうかー？

また、ご不明な点がありましたら返信いただけますと幸いです！！

2020年07月24日

すみません、ChangeイベントだとQUOTE関数の株価の式が入ったセル値の更新回数カウントとか表示しないと思われるからです（今日は閉場日なので信号がなく検証できませんが）

2020年07月24日