کاربرد Find Method در ماکرونویسی اکسل

آموزش ابزار Find در اکسل

ابزار Find در اکسل یکی از پرکاربردترین ابزارهای است که در صفحه گسترده اکسل به منظور جستجوی یک مقدار مورد استفاده قرار می گیرد. در ادامه به توضیح کاربرد یکایک گزینه های این ابزار در نرم افزار اکسل خواهیم نمود:

گزینه Find what: عبارتی که قصد جستجوی آن را داریم در این محل درج میگردد.
گزینه Within: جستجو در صفحه (Sheet) فعال یا در Workbook صورت گیرد.
گزینه Search: نحوه جستجو در ردیف به ردیف یا ستون به ستون صورت گیرد.
گزینه Look in: تعیین نوع جستجو به منظور تسریع در جستجو:
- جستجو در محتوای سلول های دارای فرمول صورت گیرد. (Formulas)
- جستجو در سلول های دارای مقادیر صورت گیرد. (Values)
- جستجو در محتوای کامنت صورت گیرد. (Commets)
گزینه Match case : عینا مورد جستجو ، جستجو شود.
گزینه Match entire cell contents : تمام محتوای سلول شامل مقدار جستجو باشد نه بخشی از آن.
گزینه Format: درنظر گرفتن فرمت هنگام جستجوی یک مقدار.
- گزینه Format: دسترسی به پنجره Format به منظور لحاظ کردن فرمت های مختلف هنگام جستجو.
- گزینه Choose format From Cell: انتخاب فرمت یک سلول مشخص به منظور جستجو.
- گزینه Clear Find Format: حذف فرمت های درنظر گرفته شده هنگام جستجو.
گزینه Find Next: جستجوی و یافتن قدم به قدم (یکی پس از دیگری).
گزینهFind All : جستجوی و یافتن تمام سلول های دارای شرایط جستجو.

حال به ماکروی هایی که در ادامه پیرامون Find Method تهیه گردیده است، دقت کنید.

کاربرد Find Method در ماکرونویسی اکسل

بررسی محدوده A1:A5 و جستجوی کلمه John در مقادیر سلول ها توسط xlValues

Sub excellearn()
Range("A1:A5").Find "John", LookIn:=xlValues
End Sub

1

2

3

Sub excellearn()

Range("A1:A5").Find "John", LookIn:=xlValues

End Sub

بررسی محدوده A1:A5 و جستجوی کلمه John در کامنت سلول ها توسط xlComments

Sub excellearn()
Range("A1:A5").Find "John", LookIn:=xlComments
End Sub

1

2

3

Sub excellearn()

Range("A1:A5").Find "John", LookIn:=xlComments

End Sub

بررسی محدوده A1:A5 و جستجوی کلمه John در فرمول سلول ها توسط xlFormulas

Sub excellearn()
Range("A1:A5").Find "John", LookIn:=xlFormulas
End Sub

1

2

3

Sub excellearn()

Range("A1:A5").Find "John", LookIn:=xlFormulas

End Sub

جستجوی مقادیر به تنهایی کاربردی در اکسل ندارند زیرا نیاز داریم پس از یافتن نتیجه، عملیاتی روی آن صورت گیرد لذا به ماکروی زیر دقت کنید:

Sub excellearn()
Dim rgFound As Range
Set rgFound = Range("A1:A5").Find("John", LookIn:=xlValues)
rgFound.Select
End Sub

1

2

3

4

5

Sub excellearn()

Dim rgFound As Range

Set rgFound = Range("A1:A5").Find("John", LookIn:=xlValues)

rgFound.Select

End Sub

با اجرای ماکروی فوق، سلولی که دارای محتوای John است توسط Select Method انتخاب خواهد شد.

و یا نمایش آدرس سلول حاوی مقدار مورد جستجو توسط Address Method

Sub excellearn()
Dim rgFound As Range
Set rgFound = Range("A1:A5").Find("John", LookIn:=xlValues)
MsgBox rgFound.Address
End Sub

1

2

3

4

5

Sub excellearn()

Dim rgFound As Range

Set rgFound = Range("A1:A5").Find("John", LookIn:=xlValues)

MsgBox rgFound.Address

End Sub

حال اگر مقدار مورد جستجو در سلول های صفحه گسترده وجود نداشته باشد، با خطای زیر روبرو خواهید شد:

به منظور جلوگیری از خطاهای احتمالی می توانید آن را همانند ماکروی زیر توسط دستور شرطی if مدیریت کنید:

Sub excellearn()
Dim rgFound As Range
Set rgFound = Range("A1:A5").Find("John", LookIn:=xlValues)
If rgFound Is Nothing Then
MsgBox "Value not found"
Else
MsgBox rgFound.Address
End If
End Sub

1

2

3

4

5

6

7

8

9

Sub excellearn()

Dim rgFound As Range

Set rgFound = Range("A1:A5").Find("John", LookIn:=xlValues)

If rgFound Is Nothing Then

MsgBox "Value not found"

Else

MsgBox rgFound.Address

End If

End Sub

در پایان امیدواریم پست آموزشی معرفی و کاربرد Find Method در ماکرونویسی مورد رضایت و استفاده شما عزیزان و علاقه مندان به زبان برنامه نویسی وی بی ای در اکسل قرار گرفته باشد. در صورت وجود هرگونه سوال می توانید آن را در قسمت نظرات برای ما ارسال نمایید تا در اسرع وقت توسط تیم پشتیبانی سایت نسبت به پاسخگویی آن اقدام گردد.

موفق و پیروز باشید.