بازگرداندن آدرس یک Text جستو شده در کلیه Sheet های یک کاربرگ در اکسل

گاهی برای کاربران اتفاق افتاده است که یک کلمه را بخواهند در شیت های فایل اکسل خود جستجو کرده و با توجه به آدرس آن اقدام به فرمول نویسی نمایند

با توجه به این مهم تابع ذیل جهت استفاده در اختیار شما عزیزان قرار گرفته است :

Function FindWordAddress(sheetName As String, wordToFind As String) As String
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(sheetName)
Dim foundRange As Range
Dim result As String

' جستجوي کلمه در کاربرگ
Set foundRange = ws.Cells.Find(What:=wordToFind, _
After:=ws.Cells(1, 1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

' بررسي اينکه آيا کلمه پيدا شده است
If Not foundRange Is Nothing Then
' بازگرداندن آدرس سلول
result = foundRange.Address
Else
result = "کلمه يافت نشد."
End If

FindWordAddress = result
End Function

همان طور که در متن تابع مشاهده می نمائید، در صورت پیدا نکردن کلمه یا متن، سیستم عبارت "کلمه يافت نشد" را اعلام و ارائه می نماید.