كيف يمكنك الانتقال بسرعة إلى الخلية المجاورة بناءً على الخيار المحدد من القائمة المنسدلة في إكسل؟
هل فكّرت يومًا في القفز تلقائيًا إلى الخلية المجاورة بناءً على اختيارك من قائمة منسدلة في إكسل؟
على سبيل المثال، لدي هنا قائمة منسدلة في الخلية C1 تحتوي أسماء أيام الأسبوع، بينما يحتوي العمود A على تواريخ، والعمود B على أوقات.
الآن، بمجرد أن تختار يومًا من القائمة—مثل «الخميس»—يقفز المؤشر مباشرةً إلى الخلية B5، التي تقع بجانب خلية «الخميس» في العمود A.
لا يوفّر إكسل ميزة مدمجة لهذا السلوك، لكن يمكنك تحقيقه بسهولة باستخدام كود VBA القوي!
القفز إلى الخلية المجاورة بناءً على القيمة في القائمة المنسدلة باستخدام VBA
القفز إلى الخلية المجاورة بناءً على القيمة في القائمة المنسدلة باستخدام VBA
1. اختر اليوم الذي تريد استخدامه من القائمة المنسدلة، ثم اضغط على مفاتيحAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر علىإدراج > وحدة، ثم الصق الكود أدناه فيالوحدة.
VBA: القفز إلى الخلية المجاورة بناءً على القيمة
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
If Target.Address <> [C1].Address Then
Exit Sub
Else
JumpToCell
End If
End Sub
Sub JumpToCell()
Dim xRg, yRg As Range
Dim strAddress As String
strAddress = ""
Set yRg = Range("A2:A8")
For Each xRg In yRg
'MsgBox Cell.Value
If xRg.Value = ActiveCell.Value Then
strAddress = xRg.Address
End If
Next
If strAddress = "" Then
MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
vbInformation, "Kutools for Excel"
Exit Sub
Else
Range(strAddress).Offset(0, 1).Select
End If
End Sub
3. اضغط على مفتاحF5، ثم يقفز المؤشر إلى الخلية المجاورة بناءً على القيمة المحددة في القائمة المنسدلة.
في كود VBA، يُشير النطاق A2:A8 إلى القيم المطابقة لتلك الموجودة في القائمة المنسدلة، ويمكنك تعديل هذا المرجع وفقًا لاحتياجاتك.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل