JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

الاكسيل كيفية التحقق من وجود ورقة عمل باستخدام VBAكود في الاكسل Check IF Sheet Exists using VBA in Excel


بسم الله الرحمن الرحيم

اهلا بكم متابعى موقع عالم الاوفيس

اقدم لكم مقال اليوم عن كيفية التحقق من وجود ورقة  عمل باستخدام 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

 

 


الاسمبريد إلكترونيرسالة