گاهی برای کاربران اتفاق افتاده است که یک کلمه را بخواهند در شیت های فایل اکسل خود جستجو کرده و با توجه به آدرس آن اقدام به فرمول نویسی نمایند
با توجه به این مهم تابع ذیل جهت استفاده در اختیار شما عزیزان قرار گرفته است :
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
همان طور که در متن تابع مشاهده می نمائید، در صورت پیدا نکردن کلمه یا متن، سیستم عبارت "کلمه يافت نشد" را اعلام و ارائه می نماید.
ورود به سایت