[حل شده] جایگزینی اتوماتیک یک کلمه با کلمه‌ای دیگر با استفاده از vba

[hasa2]

من میخوام مثلا اگه تو یه سلول "قق" نوشته شد اتوماتیک این کلمه به "ق ق" تغییر پیدا کنه
چیزی که برای این کار به ذهنم رسید استفاده از قابلیت AutoCorrect در آفیس هست که خب قشنگ کار میکنه . اما مشکل اینجاست AutoCorrect اکسل روی فایل ذخیره نمیشه یعنی اگه همون فایل رو روی کامپیوتر دیگه ای باز کنیم دیگه این قابلیت کار نمیکنه. از طرف دیگه وقتی از AutoCorrect آفیس استفاده میکنیم این جایگزینی کلمات همیشه و روی همه فایلها کار میکنه نه یک فایل بخصوص.
بکآپ گیری از AutoCorrect اکسل و انتقالش به یک کامپیوتر دیگه هم به ذهنم رسید که با اینکه شدنیه اما کمی نیاز به درد و خونریزی داره .

بنابراین برام سوال شد که آیا میشه یه AutoCorrect از طریق VBA تعریف کنیم که مخصوص به همون فایل باشه؟
یعنی با نوشتن کلمه ای خاص اتوماتیک اون کلمه با کلمه دیگهای جایگزین بشه.

تو سایتهای انگلیسی هم به چند تا کد VBA برای اینکار برخورد کردم اما عمل نکرد.

[ahmad.khanifar]

امکان تصحیح خودکار کلمات در اکسل autocorect

با سلام

پاسخ سوال شما با توضحیات کافی در فایل فشرده ضمیمه شد ملاحظه کنید امیدوارم راهگشا باشد.

طبق مثال شما اگر در یک سلول بنویسید قق تبدیل میشود به ق ق
اگر بنویسید احمذ تبدیل میشود به احمد
اگر بنویسید سعیذ تبدیل میشود به سعید

[hasa2]

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

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Application.AutoCorrect
 .AddReplacement "Temperature", "Temp"
 .AddReplacement "ahmad", "hadi"
 .AddReplacement "قق", "ق ق"
 .AddReplacement "احمذ", "احمد"
 .AddReplacement "رصا", "رضا"
 .AddReplacement "سلان", "سلام"
 .AddReplacement "سعيذ", "سعيد"


End Sub