كيف يمكنك تغيير قيمة الخلية بمجرد النقر عليها؟
هل يمكن تغيير قيمة خلية في إكسل بمجرد النقر عليها؟ على سبيل المثال، عند النقر على الخلية A1 للمرة الأولى، يظهر فيها نص «Excel»، وعند النقر عليها مرة أخرى يُستبدل النص بـ «Word»، ثم يتحول إلى «Outlook» مع النقر الثالث. بعد ذلك، تعود القيمة إلى «Excel» وتتكرر الدورة بين هذه القيم الثلاثة هكذا دواليك، كما هو موضح في لقطة الشاشة التالية:
تغيير قيمة الخلية بالنقر عليها باستخدام كود VBA
تغيير قيمة الخلية بالنقر عليها باستخدام كود VBA
لإكمال هذه المهمة في إكسل، قد يساعدك كود VBA التالي، يرجى اتباع الخطوات التالية:
1. انقر بزر الماوس الأيمن على لسان ورقة العمل التي تريد تغيير قيمة خليتها بالنقر، واخترعرض الكود (View Code)من قائمة السياق. بعد ذلك، في نافذةمايكروسوفت فيجوال بيسك للتطبيقات (Microsoft Visual Basic for Applications)المفتوحة، انسخ والصق الكود التالي في الوحدة النمطية (Module) الفارغة:
كود VBA: تغيير قيمة الخلية بالنقر عليها:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
Application.EnableEvents = False
With Target
If .Address = Range("A1").Address Then
Select Case .Value
Case "Excel"
.Value = "Word"
Case "Word"
.Value = "Outlook"
Case "Outlook"
.Value = "Excel"
Case Else
.Value = "Word"
End Select
End If
End With
Range("A2").Select
Application.EnableEvents = True
End Sub
ملاحظة: في الكود أعلاه،A1 هي الخلية التي تريد تغيير قيمتها بالنقر، و"Excel« و»Word« و»Outlook" هي القيم التي ترغب في عرضها بشكل متكرّر، ويمكنك تعديلها حسب حاجتك.
2. بعد لصق الكود، احفظه ثم أغلِق هذه النافذة. الآن، عند النقر على الخلية A1 للمرة الأولى، سيظهر النص «Excel» فورًا؛ وعند النقر عليها مرة أخرى، سيظهر النص «Word»؛ أما إذا نقرتَ عليها للمرة الثالثة، فسيُعرض النص «Outlook». انظر لقطة الشاشة:
مقالات ذات صلة إضافية:
كيف يمكن تصفية البيانات في إكسل بالنقر مباشرةً على محتوى الخلية؟
كيف يمكن فرز بيانات العمود بالنقر على عنوانه في إكسل؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل