انتقل إلى المحتوى الرئيسي

كيف تراقب تغيرات الخلايا في Excel؟

كيف يمكنك مراقبة خلايا ورقة العمل إذا تم تغيير البيانات في Excel؟ قد يساعدك هذا في تحديد الخلايا المتغيرة بأسرع ما يمكن. في هذا المقال سوف أتحدث عن بعض الطرق الشيقة للتعامل مع هذه المهمة في Excel.

راقب تغييرات الخلية في Excel باستخدام وظيفة تعقب التغييرات

مراقبة التغييرات في الخلية في Excel باستخدام التعليمات البرمجية لـ VBA


السهم الأزرق الحق فقاعة راقب تغييرات الخلية في Excel باستخدام وظيفة تعقب التغييرات

يحتوي Excel على ملف تعقب التغيرات ميزة ، يمكن أن تساعدك على تمييز الخلايا المتغيرة ، يرجى القيام بما يلي:

1. انقر التقيم > تعقب التغيرات > تسليط الضوء على التغييرات، انظر لقطة الشاشة:

تغييرات شاشة doc 1

2. في تسليط الضوء على التغييرات في مربع الحوار ، قم بالعمليات التالية:

(1.) تحقق تعقب التغييرات أثناء التحرير. هذا أيضا يشارك المصنف الخاص بك.

(2.) تحت تسليط الضوء على التغييرات ، حدد عناصر متى ، ومن ، وأين حسب حاجتك.

(3.) أخيرًا ، تحقق قم بتمييز التغييرات على الشاشة الخيار.

تغييرات شاشة doc 2

3. بعد الانتهاء من الإعدادات ، انقر فوق OK ، الآن ، عند تغيير أي قيم خلية في الخلايا المحددة ، يوجد حد برمز مثلث حول الخلايا المتغيرة ، انظر الصورة:

تغييرات شاشة doc 3

ملاحظات: باستخدام هذه الطريقة ، سيصبح المصنف مصنفًا مشتركًا.


السهم الأزرق الحق فقاعة مراقبة التغييرات في الخلية في Excel باستخدام التعليمات البرمجية لـ VBA

يمكن أن يساعدك رمز VBA التالي أيضًا في مراقبة قيم الخلايا عند تغييرها ، يرجى القيام بذلك على النحو التالي:

1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد مراقبة تغييرات الخلية فيها ، واختر عرض الرمز من قائمة السياق ، في فتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز فبا التالي في الوحدة النمطية:

كود فبا: راقب تغييرات الخلايا في ورقة عمل 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

تغييرات شاشة doc 4

ملحوظة: في التعليمات البرمجية أعلاه، A1: E7 هو نطاق البيانات الذي تريد مراقبته إذا تغيرت الخلية ، يمكنك تغييره حسب حاجتك.

2. ثم احفظ وأغلق نافذة الكود هذه ، والآن ، عندما تقوم بتغيير قيمة الخلية في النطاق المحدد ، سيظهر مربع رسالة لتذكيرك ، انظر لقطة الشاشة:

تغييرات شاشة doc 5

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى 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