اصلاح حرف ي فارسي

[Ali Parsaei]

با سلام و ارادت خدمت تمام اساتيد گرامي،
در مباحث مطرح شده قبلي در سايت کدي براي جايگزيني حرف "ى" با "ي" مطرح شده بود به شکل زير:

Activesheet.Cells.Replace What:=Chr(236), Replacement:=Chr(237), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 

با توجه به اينکه کد مذکور براي شيت فعال نوشته شده، آيا امکان دارد راهنمايي بفرماييد که اگر بخواهم اين عمل براي کل فايل اعمال گردد کد را با چه عبارتي بايد آغاز کنم؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

با سلام و ارادت خدمت تمام اساتيد گرامي،
در مباحث مطرح شده قبلي در سايت کدي براي جايگزيني حرف "ى" با "ي" مطرح شده بود به شکل زير:

Activesheet.Cells.Replace What:=Chr(236), Replacement:=Chr(237), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 

با توجه به اينکه کد مذکور براي شيت فعال نوشته شده، آيا امکان دارد راهنمايي بفرماييد که اگر بخواهم اين عمل براي کل فايل اعمال گردد کد را با چه عبارتي بايد آغاز کنم؟

سلام دوست عزيز
فكر كنم فقط كافيه activesheet رو از ابتداي كدتون حذف كنيد. يعني اينطوري:

Cells.Replace What:=Chr(236), Replacement:=Chr(237), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

[Ali Parsaei]

حذف کردم، ولي نشد! باز هم فقط روي شيت فعال عمل مي کند.
کد را يک بار داخل يک ماژول auto_open نوشتم و يک با هم داخل THIS WORKBOOK ولي باز هم نشد.

[Amir Ghasemiyan]

حذف کردم، ولي نشد! باز هم فقط روي شيت فعال عمل مي کند.
کد را يک بار داخل يک ماژول auto_open نوشتم و يک با هم داخل THIS WORKBOOK ولي باز هم نشد.

من خودم امتحان كردم، شد. بدون مشكل انجام داد.
احتمال داره كاركتري كه شما گذاشتين با كاركتر «ي» توي شيتتون فرق داشته باشه. من بررسي كردم. «ي» عربي با كد اسكي 63 شناخته ميشه نه 236. اين رو امتحان بفرماييد ببينيد بازم مشكل برقراره؟

[Amir Ghasemiyan]

اگر باز هم جواب نگرفتين يك حلقه تعريف كنيد كه همه شيت ها رو يكي يكي بگرده. يعني يه چيزي مثل اين:

Dim a As Worksheet
For Each a In Worksheets
    Cells.Replace What:=Chr(63), replacement:=Chr(237), LookAt:=xlPart, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next a

[Ali Parsaei]

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

[Amir Ghasemiyan]

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

متوجه نشدم مشكل از كجا بود ولي يبار ماكرو ضبط كردم ، بعد ديگه درست شد. همه شيت ها رو اصلاح كرد.
اينم فايل خدمت شما

[~M*E*H*D*I~]

چرا این همه دردسر

به راحتی روی تب شیت راست کلیک کنید select all رو بزنید بعد از ctrl+h استفاده کنید تمام شیت ها اصلاح میشه

[Amir Ghasemiyan]

چرا این همه دردسر

به راحتی روی تب شیت راست کلیک کنید select all رو بزنید بعد از ctrl+h استفاده کنید تمام شیت ها اصلاح میشه

راه هاي رسيدن به خدا بسيار است

[Ali Parsaei]

در رابطه با همين موضوع يک اختلال عجيب در اکسل کشف کردم که در مورد حروف فارسي خيلي نگرانم کرد، اگر اينطور باشد بايد به خيلي چيزها شک کرد! لطفا" فايل پيوست را بررسي و نظر دهيد.