メインコンテンツへスキップ

Excelでセルの変更を監視する方法は?

Excelでデータが変更された場合、ワークシートのセルをどのように監視できますか? これは、変更されたセルをできるだけ早く特定するのに役立つ場合があります。 この記事では、Excelでこのタスクを処理するためのいくつかの興味深い方法について説明します。

変更の追跡機能を使用してExcelでセルの変更を監視する

VBAコードを使用してExcelでセルの変更を監視する


矢印青い右バブル 変更の追跡機能を使用してExcelでセルの変更を監視する

Excelには便利な機能があります 変更を追跡する 機能、変更されたセルをマークするのに役立ちます。次のようにしてください。

1に設定します。 OK をクリックします。 レビュー > 変更を追跡する > 変更点を強調表示、スクリーンショットを参照してください:

ドキュメントモニターの変更1

2。 の中に 変更点を強調表示 ダイアログボックスで、次の操作を実行します。

(1.)チェック 編集中に変更を追跡します。 これはあなたのワークブックも共有します.

(2.) どの変更を強調表示する セクションで、必要に応じて、いつ、誰が、どこでアイテムを指定します。

(3.)最後に確認してください 画面上の変更を強調表示する オプションを選択します。

ドキュメントモニターの変更2

3。 設定が終わったら、 OK ボタンをクリックすると、指定したセルのセル値を変更すると、変更したセルの周囲に三角形のアイコンが付いた境界線が表示されます。スクリーンショットを参照してください。

ドキュメントモニターの変更3

Note:この方法では、ワークブックは共有ワークブックになります。


矢印青い右バブル VBAコードを使用してExcelでセルの変更を監視する

次のVBAコードは、セル値が変更されたときにセル値を監視するのにも役立ちます。次のようにしてください。

1。 セルの変更を監視するシートタブを右クリックして、 コードを表示 コンテキストメニューから、開いた状態で アプリケーション向け Microsoft Visual Basic ウィンドウで、次のVBAコードをコピーしてモジュールに貼り付けてください。

VBAコード:Excelワークシートでセルの変更を監視します。

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

ドキュメントモニターの変更4

注: 上記のコードでは、 A1:E7 セルが変更された場合に監視するデータ範囲です。必要に応じて変更できます。

2。 次に、このコードウィンドウを保存して閉じます。指定した範囲でセルの値を変更すると、メッセージボックスが表示され、通知が表示されます。スクリーンショットを参照してください。

ドキュメントモニターの変更5

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Merhaba. WhatsApp üzerinden bana gelen bir excell dosyası var. Bunu bilgisayar üstünden açıp. Bunda ki hareketleri ve değişiklikleri görme şansım var mı ?
This comment was minimized by the moderator on the site
I got "syntax error" with "Dim xrng As Range" when I inserted the below code in my worksheet_change event :-(
VBA code: Monitor cell changes in Excel worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub
This comment was minimized by the moderator on the site
if i have large amount of data in excel file, and i just want to know status in one different colum that if any cell gets change its value then it should indicate in from of that cell's row , tha status shoild be changed, how can i do this
This comment was minimized by the moderator on the site
hello how can we track by date and time in the change in the cell
This comment was minimized by the moderator on the site
Woooow this is nowhere else except here! Amazing!

Is there any way to insert a row right below the row of the cell where the cell was updated?

To make it more challenging, if I have list validation enabled or formula enabled can that as well be copied to the new row?
This comment was minimized by the moderator on the site
Hi, amar,
To insert a row below the changed value, the following VBA code can help you, please try it.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Dim xStrPre, xStr As String
On Error Resume Next
Set xRg = Range("A1:E7")
If Intersect(xRg, Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
xStr = Target.Value
Application.Undo
xStrPre = Target.Value
Target.Offset(1, 0).EntireRow.Insert xlShiftDown
Target.Offset(1, 0).Value = xStrPre
Target.Value = xStr
Application.EnableEvents = True
End Sub
This comment was minimized by the moderator on the site
Hello, I have it copying old number to new line - how do I have the new line go to a new tab instead?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations