[حل شده] شمارش كلماتي كه شامل ي يا ك مي باشند

[bakhshism]

سلام به دوستان
من در نمونه ارسالي مشكلي در خصوص شمارش كلمات شامل ي و ك دارم كه ممنون ميشم راهنمايي بفرمائيد
لازم به ذكر است درخواست من حل مشكل از طريق كد مي باشد نه اصلاح صفحه كليد

نكته:
در اكسس اين مشكل با جايگزين كردن يك ي با يك ي ديگر كه داراي keyAscii متقاوتي مي باشد قابل حل مي باشد به دليل تنوع ي و ك در زيان عربي و فارسي
به نظر من بهترين روش تبديل انواع ي و ك به يك نوع ي يا ك با قرار دادن كد در يكي از رويدايدها مثلاً save يا دستورات ماكرو مي باشد البته من خودم نمي دونم چطوري اين كارو انجام بدم

ممنون ميشم راهنمايي بفرمائيد

[generalsamad]

با سلام
مشکل شما با replace اکسل حل نمیشه؟

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

[bakhshism]

بي زحمت اگر لينكشو پيدا كرديد بذاريد

[generalsamad]

http://forum.exceliran.com/showthread.php/6741-%D8%B1%D8%A7%D9%87%DA%A9%D8%A7%D8%B1%D9%87%D8%A7%D9%8A%D9%8A-%D9%86%D8%B3%D8%A8%D9%8A-%D8%A8%D8%B1%D8%A7%D9%8A-%D8%B1%D9%81%D8%B9-%D9%85%D8%B4%DA%A9%D9%84-%D8%AD%D8%B1%D9%81-%D9%8A-%D9%81%D8%A7%D8%B1%D8%B3%D9%8A

http://forum.exceliran.com/showthread.php/3624-%D8%A7%D8%B5%D9%84%D8%A7%D8%AD-%D8%AD%D8%B1%D9%81-%D9%8A-%D9%81%D8%A7%D8%B1%D8%B3%D9%8A

[iranweld]

با سلام

از کد ذیل میتوانید حروف ی و ک عربی را در کلیه سلولهای شیت های موجود و همچنین حروف نام شیت را به فارسی تغییر داده و کارکترها و فواصل اضافی را نیز حذف نمایید

Sub test()

For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
        cell.Value = WorksheetFunction.Trim(cell)
    Next cell
    
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Name = Replace(ws.Name, ChrW(1610), ChrW(1740), vbTextCompare)
        ws.Name = Replace(ws.Name, ChrW(1603), ChrW(1705), vbTextCompare)
    Next ws
    Cells.Replace What:=ChrW(1610), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    

End Sub 

[bakhshism]

متشكرم