کد 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]

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

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