صفحه 2 از 2 نخستنخست 12
نمایش نتایج: از شماره 11 تا 14 , از مجموع 14

موضوع: راهکارهايي نسبي براي رفع مشکل حرف ي فارسي

  1. #11


    آخرین بازدید
    2016/09/15
    تاریخ عضویت
    August 2015
    نوشته ها
    11
    امتیاز
    20
    سپاس
    7
    سپاس شده
    10 در 5 پست
    تعیین سطح نشده است

    در جستجوهام به یک کد طلائی برخوردم که مشکل رو کاملاً حل می کنه
    کد:
        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

  2. سپاس ها (3)


  3.  

  4. #12


    آخرین بازدید
    2023/12/21
    تاریخ عضویت
    June 2012
    نوشته ها
    111
    امتیاز
    20
    سپاس
    30
    سپاس شده
    20 در 13 پست
    تعیین سطح نشده است

    سلام
    من یک روش ساده برای خودم استفاده کرده ام:
    هر چه حروف مانند انواع ی ي و ... هست را در سلول A1 , A2 , ... قرار داده و در b1 حرف ی صفحه کلید رایانه ام را وارد می کنم
    سپس با یک دستور vb می خواهم هرچه محتوی سلول A1 , A2 , ... را پیدا نموده و تبدیل به محتوی سلول b1 نماید .
    این مقدایر سلول های A1 , A2 , ... را اگر مستقیم در دستور vb قرار دهید جواب صحیح را دریافت نمی کنید

  5. سپاس ها (2)


  6. #13

    آخرین بازدید
    2017/03/01
    تاریخ عضویت
    December 2016
    نوشته ها
    1
    امتیاز
    15
    سپاس
    2
    سپاس شده
    5 در 1 پست
    تعیین سطح نشده است

    ویرایش توسط mismona : 2016/12/17 در ساعت 17:20

  7. سپاس ها (5)


  8. #14


    آخرین بازدید
    2021/09/09
    تاریخ عضویت
    May 2013
    نوشته ها
    111
    امتیاز
    33
    سپاس
    102
    سپاس شده
    32 در 27 پست
    تعیین سطح نشده است

    کد PHP:
    Sub test()

        
        
    Dim ws As Worksheet
        x 
    Sheets.Count
        
        
    For 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:=xlPartSearchOrder _
            
    :=xlByRowsMatchCase:=FalseSearchFormat:=FalseReplaceFormat:=False
        Cells
    .Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPartSearchOrder _
            
    :=xlByRowsMatchCase:=FalseSearchFormat:=FalseReplaceFormat:=False
            
        Next
        
        
    For Each ws In Worksheets
        
        ws
    .Name Replace(ws.NameChrW(1610), ChrW(1740), vbTextCompare)
            
    ws.Name Replace(ws.NameChrW(1603), ChrW(1705), vbTextCompare)

    Next ws

    End Sub 

    و
    کد PHP:

    Sub ye
    ()
    '
    ye Macro
    '
    Keyboard ShortcutCtrl+ض
    '
        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
      
        MsgBox "ي و ک عربي به فارسي تبديل شد", vbInformation, "تبريک"

    End Sub 
    ویرایش توسط bnyamin : 2017/05/12 در ساعت 01:51

  9. سپاس ها (1)



صفحه 2 از 2 نخستنخست 12

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. محاسبات روي تاريخ شمسي بدون استفاده از add-in يا توابع شمسي
    توسط Ali Parsaei در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 8
    آخرين نوشته: 2014/10/26, 17:06
  2. ثبت فعلي و ثبت نهايي در فرم
    توسط sajad2000 در انجمن سوالات اكسس - Access Questions
    پاسخ ها: 2
    آخرين نوشته: 2014/05/15, 09:09
  3. راهنمايي
    توسط sajad2000 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 6
    آخرين نوشته: 2013/01/03, 15:44
  4. مطالب و لينك هايي مربوط به VBA
    توسط afshin160 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2012/12/28, 22:11
  5. راهنمايي قرار دادن كد
    توسط sajad2000 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 5
    آخرين نوشته: 2012/12/02, 19:37

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

حل مشکل جستجو در اکسل

مشکل حرف ی در اکسل

مشکل سرچ فارسی در اکسل

تبدیل علامت سئوال به فارسی در اکسل

رفع مشکل جستجو در اکسل

از بین بردن حرف ی در ستون اکسل

رفع مشکل حرف ی در اکسل

رفع مشکل علامت سوال در اکسل

رفع مشکل در فونت ماکروی که پیغام:میدهد

چرا حرف پ در اکسل تایپ نمیشه

مشکل علامت سوال بجای ی در اکسل

پرینت موزیلا با حروف نا شناخته

رفع مشکل اکسل با علامت سوال می شود

تغییر ی دونقطه

علت تایپ علامت سوال بجای حرف ی در اکسل

چرا توست در اکسل علامت سوال می شود

یونیکد تفاوت ی دو نقطه

رفع عیب عربی بودن ی در اکسل

حل مشکل سرچ در اکسل

حرف ی در اکسل

چرا در spss حرف ی نوشته نمی شود؟

برطرف کردن مشکل حرف ی در برنامه نویسی

علت تایپ علامت سوال بجای عدد در spss

مشکل علامت سوال در ماکرو

علت نشان ندادن عبارت سرچ شده در اکسل

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد