بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
اقدم لكم مقال اليوم عن كيفية التحقق من وجود
ورقة عمل باستخدام VBAكود في Excel
فى الواقع إذا كنت تريد إنشاء ورقة أو تريد حذفها
أو نقلها أو نسخها ، فهناك شيء واحد تحتاج إلى معرفته إذا كانت هذه الورقة موجودة أم
لا فى ملف العمل .
لكتابة كود للتحقق من وجود الورقة أو لا تحتاج إلى حلقة
تكراريه تدور عبر كل ورقة في المصنف وتتطابق
مع الاسم الذي قدمته. ولكن إليك الأمر ، يمكنك استخدام حلقتين مختلفتين لهذا (For
Next و For
each) واليوم سنستخدم كلا الحلقتين.
في هذا المقال ، سننظر في طرق مختلفة للقيام بذلك ، لذا تأكد من
وجود علامة تبويب المطور Developer
على الشريط الخاص بك وافتح محرر الاكواد VBA لكتابة هذا الكود.
كيف
تحقق مما إذا كانت هناك ورقة عمل موجودة في
المصنف الحالي
باستخدام هذه الحلقة ، يمكنك الرجوع إلى جميع
الأوراق الموجودة في المصنف والتكرار خلال كل ورقة تلو الأخرى لمطابقة اسم الورقة مع
اسم الورقة التي تريد البحث عنها.
اتبع هذه الخطوات:
أولاً ، قم بتعريف متغير لاستخدامه للورقة أثناء
إجراء الحلقة ولتخزين اسم الورقة الذي تريد البحث فيه.
بعد ذلك ، اكتب سطرًا من التعليمات البرمجية
لمربع إدخال Input Box لإدخال اسم الورقة التي ترغب في
البحث عنها.
بعد ذلك ، ابدأ الحلقة الخاصة بك بالكلمة For
each. واستخدم المتغير للإشارة إلى كل ورقة عمل في
المصنف.
من هنا ، تحتاج إلى كتابة عبارة شرطيه IF
THEN ELSE لمطابقة اسم الورقة بالاسم
الذي أدخلته في مربع الإدخال ، ثم إظهار مربع رسالة إذا تم العثور على تطابق والخروج
من الإجراء.
في النهاية ، مربع رسالة MSG BOX لإعلامك إذا لم يتم العثور على تطابق
الكود الكامل
Sub vba_check_sheet()
Dim sht As Worksheet
Dim shtName As String
shtName =
InputBox(Prompt:="Enter the sheet name", _
Title:="Search
Sheet")
For Each sht In
ThisWorkbook.Worksheets
If sht.Name = shtName Then
MsgBox "Yes! " &
shtName & " is there in the workbook."
Exit Sub
End If
Next sht
MsgBox "No! " &
shtName & "is not there in the workbook."
End Sub