آموزشی کد find و replace

[ali.b]

سلام با این کد میتونید یک منوی جستجو و جایگزین (Find and replace ) ایجاد کنید

Sub ChgInfo() 
 
Dim WS As Worksheet 
Dim Search As String 
Dim Replacement As String 
Dim Prompt As String 
Dim Title As String 
Dim MatchCase As Boolean 
 
Prompt = "What is the original value you want to replace?" 
Title = "Search Value Input" 
Search = InputBox(Prompt, Title) 
 
Prompt = "What is the replacement value?" 
Title = "Search Value Input" 
Replacement = InputBox(Prompt, Title) 
 
For Each WS In Worksheets 
WS.Cells.Replace What:=Search, Replacement:=Replacement, _ 
LookAt:=xlPart, MatchCase:=False 
Next 
 
End Sub

[حسینعلی]

استادعزیز فایل مربوطه را برای اپلود بزارید

[حسینعلی]

نمیدونم ای کد را کجابنویسم؟ایا فرم باید براش تشکیل بدم ؟لطفا فایل نمونه بزارید

[mokaram]

جناب حسینعلی خان شما کافیه کد های نوشته شده را تو یه ماژول قرار بدید بعد تو شیت این کدها را به یه باتون نسبت بدید

[vahid950]

سلام با این کد میتونید یک منوی جستجو و جایگزین (Find and replace ) ایجاد کنید

Sub ChgInfo() 
 
Dim WS As Worksheet 
Dim Search As String 
Dim Replacement As String 
Dim Prompt As String 
Dim Title As String 
Dim MatchCase As Boolean 
 
Prompt = "What is the original value you want to replace?" 
Title = "Search Value Input" 
Search = InputBox(Prompt, Title) 
 
Prompt = "What is the replacement value?" 
Title = "Search Value Input" 
Replacement = InputBox(Prompt, Title) 
 
For Each WS In Worksheets 
WS.Cells.Replace What:=Search, Replacement:=Replacement, _ 
LookAt:=xlPart, MatchCase:=False 
Next 
 
End Sub

سلام
پیشنهادتون برا اینکه با کارکترهای فارسی هم این تابع کار کنه چیه؟ چون متاسفانه مثلا اگه از این نوع کدها بخواهیم کلمه "کی" رو سرچ و با کلمه دیگری جایگزین کنه کار نمیکنه.

[Amir Ghasemiyan]

سلام
پیشنهادتون برا اینکه با کارکترهای فارسی هم این تابع کار کنه چیه؟ چون متاسفانه مثلا اگه از این نوع کدها بخواهیم کلمه "کی" رو سرچ و با کلمه دیگری جایگزین کنه کار نمیکنه.

سلام دوست عزيز
قاعدتا بايد اين كد براي كلمات فارسي هم كار كنه. اين كلماتي كه حروف ك و ي داره به علت اينكه اين دو حرف هر كدوم دو كاركتر براشون وجود داره احتمال اينكه پيدا نكنه هست