[حل شده] عمل نکردن ماکروی تبدیل ی عربی

[taocom52]

سلام بر اساتید و دوستان
بنده هم مثل اکثر دوستان با ی عربی در اکسل مشکل دارم با مراجعه به مطالب دوستان و اساتید محترم ماکرویی برای تبدیل ک عربی به فارسی پیدا کردم که یه خوبی عمل کرد ولی وقتی این ماکرو را برای ی عربی استفاده میکنم طبق کدهای زیر متاسفانه بجای تبدیل به ی فارسی به ؟ تبیل میکند ، مخواستم بدونم این مشکل حل شده یا کماکان همه با آن درگیرند. کد تبدیل به شرح زیر است

ActiveSheet.Cells.Replace What:=Chr(237), Replacement:=Chr(63), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=Falseالبته بحای 237 کد 236 هم امتحان شد که فارسی نیست
متشکرم

[Amir Ghasemiyan]

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

chrw(1740)

و برای ی عربی از این کد

chrw(1610)

[taocom52]

متشکرم جناب قاسمیان مثل همیشه عالی بود