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

[bakhshism]

سلام به دوستان من در نمونه ارسالي كه ( شمارش كلمات شامل ي و ك بود) توسط يكي از اساتيد اين سايت اصلاح شده است منتها اين كد فقط در شيت جاري پاسخ مي دهد اگر بخواهيم اين كد را در تمام شيتها اعمال كنيم تغييرات كد به چه صورت خواهد بود
بازهم از بذل توجه تمام دوستان كمال تشكر را دارم

[iranweld]

با سلام

کد موجود را بصورت ذیل جایگزین کنید

Sub test()

    
    Dim ws As Worksheet
    x = Sheets.Count
    
    For I = 1 To x
    
    Sheets(I).Select
    
    For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
        cell.Value = WorksheetFunction.Trim(cell)
    Next cell
    
    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
        
    Next
    
    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

End Sub 

[bakhshism]

با عرض سلام
متشكرم