يمكننا العثور على أرقام الصفوف في Excel باستخدام عدة طرق ولكن VBA يوفر المزيد من الميزات والتخصيصات. من خلالها يمكننا إيجاد أرقام الصفوف بطرق ذكية. ستعرض هذه المقالة اليوم 4 وحدات ماكرو مفيدة للعثور على رقم الصف في Excel باستخدام VBA.

تنزيل Practice Workbook

يمكنك تنزيل مصنف Excel المجاني من هنا و تدرب بشكل مستقل.

4 وحدات ماكرو للعثور على رقم الصف باستخدام VBA في Excel

تعرف على مجموعة البيانات التي سنستخدمها لاستكشاف الطرق التي تمثل بعض مبيعات مندوبي المبيعات في مناطق مختلفة.

الماكرو 1: VBA للبحث عن رقم الصف عن طريق تغيير التحديد

أولاً ، سنستخدم ماكرو في Excel VBA للعثور على رقم الصف عن طريق تحديد أي خلية. هذا يعني أنه إذا قمت فقط بتحديد أي خلية مستخدمة ، فإن الماكرو سيعرض رقم الصف على الفور. لذلك ، سيتعين عليك الاحتفاظ بالرموز في ورقة ، وليس في الوحدة النمطية.

الخطوات:

• الحق- انقر فوق عنوان الورقة وحدد عرض الرمز من قائمة السياق .

• ثم اكتب الرموز التالية-

2691

• لاحقًا ، لا داعي لتشغيل الرموز ، ما عليك سوى الرجوع إلى جدول البيانات.

تقسيم الكود:

• أولاً ، قمت بإنشاء إجراء Private Sub - Worksheet_SelectionChange .
• ثم أعلن عن متغير Rnumber كـ عدد صحيح .
• الصف سيحدد رقم صف الخلية النشطة.
• بعد ذلك ، إذا كانت العبارة ستتحقق الخلية النشطة سواء كانت فارغة أم لا ، ثم MsgBox ستظهر الإخراج.

• الآن فقط انقر فوق أي خلية مستخدمة وستظهر لك الصف number.

اقرأ المزيد: Excel VBA: البحث عن سلسلة في العمود ورقم صف الإرجاع

الماكرو 2: البحث عن رقم الصف للخلية النشطة باستخدام VBA

سيعيد هذا الماكرو رقم الصف للخلية النشطة في خلية محددة من ورقتنا. لذلك ، سيتعين علينا ذكر اسم ورقة العمل وخلية الإخراج في أكوادنا. هنا ، سنستخدم الخلية D14 كخلية الإخراج الخاصة بنا.

الخطوات:

• اضغط على ALT + F11 لفتح نافذة VBA .

• بعد ذلك ، انقر فوق كما يلي لإدراج وحدة نمطية جديدة: إدراج & GT. الوحدة النمطية .

• بعد ذلك ، اكتب الرموز التالية في الوحدة-

6710

• ثم ارجع إلى الورقة.

Code Breakdown:

• هنا ، Find_Row_Number_of_an_Active_Cell () هي Sub
• تم إعلان ورقة عمل على أنها ورقة عمل
• ثم ستحدد العبارة Set الخلية النشطة
• النطاق سيعيد رقم الصف في خلية الإخراج.

• حدد الآن خلية وانقر على النحو التالي: Developer & gt؛وحدات الماكرو .

• بعد الظهور في مربع الحوار ماكرو ، حدد اسم الماكرو واضغط على قم بتشغيل .

بعد فترة وجيزة ، سترى أن رقم صف الخلية المحددة يتم إرجاعه في خلية الإخراج الخاصة بنا.

يمكنك أن ترى أن الخلية B8 قد تم تحديدها ، لذا فإن الرقم 8 هو الإخراج.

اقرأ المزيد: كيفية الحصول على رقم صف الخلية الحالية في Excel (4 طرق سريعة)

قراءات مماثلة

• كيفية زيادة رقم الصف في صيغة Excel (6 طرق يدوية)
• احصل على رقم الصف من النطاق باستخدام Excel VBA (9 أمثلة)
• كيفية إرجاع رقم الصف من a تطابق الخلايا في Excel (7 طرق)
• كيفية الحصول على رقم الصف من قيمة الخلية في Excel (5 طرق)

ماكرو 3: VBA للبحث عن رقم الصف عن طريق مطابقة قيمة

إذا كنت تريد العثور على رقم الصف من خلال البحث عن قيمة ، فهذا الماكرو يناسبك. سيكون عليك ذكر قيمة البحث ورقم العمود في الرموز كما هو موضح في الصورة أدناه.

الخطوات:

• اتبع الأول خطوتين من الطريقة السابقة لإدخال وحدة جديدة.
• ثم أدخل الرموز التالية فيها-

2074

• بعد ذلك ، ارجع إلى الورقة.

كود تقسيم:

• هنا ، Find_Row_Matching_a_Value () هو Sub
• و wBook ​​ و wSheet تم إعلانهما على أنهماتم الإعلان عن ورقة العمل و fCell على أنها نطاق .
• تم ضبط wBook ​​ و wSheet لـ ActiveWorkbook و ActiveSheet . سيأخذ
• Const إدخالاً لقيمة البحث.
• لاحقًا ، النطاق سيبحث في القيمة من خلال العمود المذكور.
• بعد ذلك ، ستعرض العبارة إذا و آخر النتيجة باستخدام MsgBox .

• لاحقًا ، اتبع الخطوة الخامسة من الطريقة السابقة لفتح مربع الحوار ماكرو .
• حدد اسم الماكرو واضغط فقط على تشغيل .

قريبًا سيظهر لك مربع إعلام رقم الصف.

اقرأ المزيد: Excel VBA: إرجاع رقم الصف للقيمة (5 طرق مناسبة)

ماكرو 4: زر البحث عن رقم الصف

في طريقتنا الأخيرة ، سنعرض لك أذكى طريقة لتحديد رقم الصف باستخدام وحدات الماكرو VBA . سننشئ زرًا وسنحدد معه وحدة ماكرو. عندما نضغط على الزر ، سيفتح مربع إدخال حيث يمكننا إدخال قيمة البحث التي نريد رقم الصف لها. يمكن للماكرو السابق البحث في عمود مذكور ولكن يمكن لهذا الماكرو البحث عن أي عمود ، في أي مكان في الورقة.

الخطوات:

• مرة أخرى اتبع الخطوتين الأوليين من الطريقة الثانية لإدخال وحدة جديدة.
• بعد ذلك ، أدخل الرموز التالية فيها-

9842

• ثم ارجع إلى لكالورقة.

تقسيم الكود:

• أولاً ، قمت بإنشاء Sub الإجراء Find_Row_Number ().
• ثم أعلن متغيرين ، mValue على أنه سلسلة و صف على أنه نطاق .
• ثم استخدم InputBox لإدخال قيمة.
• لاحقًا ، قم بتعيين و إذا كان عبارة سيجد رقم الصف إذا لم يكن فارغًا.
• أخيرًا ، سيظهر MsgBox الإخراج.

• لاحقًا ، انقر فوق المطور و GT. أدخل ثم حدد زر الأمر من قسم عناصر التحكم في النموذج .

• ثم ستحصل على علامة الجمع بالمؤشر ، واسحب في أي مكان بالنقر فوق الورقة وفقًا للحجم الذي تريده ثم حرر النقرة.

• بعد تحرير الماوس ، سيتم فتح مربع الحوار تعيين ماكرو تلقائيًا.
• حدد اسم الماكرو كما هو مذكور في الرموز.
• ثم اضغط فقط على موافق .

• التالي ، انقر بزر الماوس الأيمن على الزر وحدد تحرير النص لتحرير اسم الزر.

• اكتب اسم الزر ، ثم انقر في أي مكان خارج الزر وسيتم تغيير الاسم.

• انقر الآن على الزر ، وسيفتح مربع إدخال.
• أخيرًا ، أدخل قيمة البحث واضغط على حسنًا .

ألقي نظرة الآن ، إنها تعرض رقم الصف المتطابقvalue.

اقرأ المزيد: ابحث عن سلسلة في العمود ورقم صف الإرجاع في Excel (7 طرق)

خاتمة

هذا كل شيء للمقال. آمل أن تكون الإجراءات الموضحة أعلاه جيدة بما يكفي للعثور على رقم الصف في Excel باستخدام VBA. لا تتردد في طرح أي سؤال في قسم التعليقات ويرجى إعطائي ملاحظات. قم بزيارة ExcelWIKI لاستكشاف المزيد.