كيفية الحصول على اسم الورقة باستخدام vba (مع مثال)

يمكنك استخدام الطرق التالية في VBA للحصول على اسم ورقة معينة في مصنف Excel:

الطريقة الأولى: الحصول على اسم الورقة النشطة

 Function GetSheetName()

GetSheetName = ActiveSheet.Name

End Function

ستعيد هذه الوظيفة اسم الورقة النشطة.

الطريقة الثانية: الحصول على اسم الورقة حسب الرقم

 Function GetSheetName(N As Integer)

GetSheetName = Sheets(N).Name

End Function

ستعيد هذه الوظيفة اسم ^الورقة التي تحددها.

توضح الأمثلة التالية كيفية استخدام كل وظيفة عمليًا مع مصنف Excel التالي الذي يحتوي على أربع أوراق:

مثال 1: استخدم VBA للحصول على اسم الورقة النشطة

يمكننا إنشاء الوظيفة التالية في VBA للحصول على اسم الورقة النشطة حاليًا في مصنف Excel:

 Function GetSheetName()

GetSheetName = ActiveSheet.Name

End Function

لنفترض أن الورقة المسماة الإحصائيات نشطة حاليًا.

يمكننا كتابة الصيغة التالية في الخلية E1 من هذه الورقة لإرجاع اسم الورقة النشطة:

 =GetSheetName()

توضح لقطة الشاشة التالية كيفية استخدام هذه الصيغة عمليًا:

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

مثال 2: استخدم VBA للحصول على اسم الورقة حسب الرقم

يمكننا إنشاء الوظيفة التالية في VBA للحصول على اسم الورقة ^{رقم n} من مصنف Excel:

 Function GetSheetName(N As Integer)

GetSheetName = Sheets(N).Name

End Function

بمجرد إنشاء هذه الوظيفة، يمكننا بعد ذلك كتابة الصيغة التالية في الخلية E1 من الورقة النشطة حاليًا لإرجاع اسم الورقة الثانية في المصنف:

 =GetSheetName(2)

توضح لقطة الشاشة التالية كيفية استخدام هذه الصيغة عمليًا:

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

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية حساب عدد الأوراق في المصنف
فبا: كيفية استخراج البيانات من مصنف آخر
VBA: كيفية إدراج أسطر متعددة