كيفية تسجيل القيم المتغيرة في خلية في إكسيل؟
كيفية تسجيل كل قيمة متغيرة لخلية متغيرة بشكل متكرر في إكسيل؟ على سبيل المثال ، القيمة الأصلية في الخلية C2 هي 100 ، عند تغيير الرقم 100 إلى 200 ، سيتم عرض القيمة الأصلية 100 في الخلية D2 تلقائيًا للتسجيل. المضي قدما لتغيير 200 إلى 300 ، سيتم إدراج الرقم 200 في الخلية D3 ، والتغيير 300 إلى 400 سيعرض 300 إلى D4 وهكذا. يمكن أن تساعدك الطريقة في هذه المقالة على تحقيق ذلك.
قم بتسجيل القيم المتغيرة في خلية برمز VBA
قم بتسجيل القيم المتغيرة في خلية برمز VBA
يمكن أن يساعدك رمز VBA أدناه في تسجيل كل قيمة متغيرة في خلية في Excel. الرجاء القيام بما يلي.
1. في ورقة العمل تحتوي على الخلية التي تريد تسجيل القيم المتغيرة لها ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ثم انقر فوق عرض الرمز من قائمة السياق. انظر لقطة الشاشة:
2. ثم ميكروسوفت فيسوال باسيك للتطبيقات يتم فتح النافذة ، يرجى نسخ رمز VBA أدناه في نافذة التعليمات البرمجية.
كود فبا: سجل القيم المتغيرة في خلية
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End Sub
ملاحظة: في الكود ، C2 هي الخلية التي تريد تسجيل جميع قيمها المتغيرة. D2 هي الخلية التي ستقوم بتعبئة أول قيمة متغيرة لـ C2.
3. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، في كل مرة تقوم فيها بتغيير القيم في الخلية C2 ، سيتم تسجيل القيم المتغيرة السابقة في D2 والخلايا الموجودة أسفل D2.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!