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

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

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