تبدیل اعداد انگلیسی به فارسی و بالعکس در Excel


ارسال های توصیه شده

برای فارسی کردن اعداد در جداول یا همان صفحه گسترده اکسل، راحت‌ترین راه تغییر فونت اعداد از انگلیسی به فونت فارسی است. اما اگر با انجام این کار تغییری صورت نگرفت از یکی از دو روش زیر استفاده کنید:

۱- با استفاده از کد تغییر فرمت

سلول یا سلول‌هایی که می‌خواهید اعداد درون آن‌ها فارسی شود را انتخاب کنید و سپس راست کلیک کرده و گزینه Format Cells را انتخاب کنید تا پنجره Format Cells باز شود. در قسمت Custom، یکی از کدهای زیر را وارد کنید و روی Ok کلیک کنید.

[$-3010000]0.00
[$-3000401]0.00

[$-2000401]0.00
[$-2000000]0.00

۲- با استفاده ماکرو

 

کلیدهای Alt + F11 را فشار دهید یا از تب Developer قسمت code گزینه Visual Basic را انتخاب کنید. پنجره Microsoft Visual Basic for applications window ظاهر می‌شود. در این پنجره از تب Insert گزینه Module را انتخاب نمائید. در پنجره جدید باز شده کدهای زیر را کپی کنید.

Sub En2Fa()
Dim WorkRng As Range
Dim s As String
Dim ch As String
Dim s1 As String
xTitleId = "Tarfandha-En2Fa"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each C In WorkRng
    s1 = ""
    s = C.Value
        For i = 1 To Len(s)
        ch = Mid(s, i, 1)
        If 48 <= AscW(ch) And AscW(ch) <= 57 Then
        ch = ChrW(AscW(ch) + 1728)
        End If
        s1 = s1 + ch
        Next i
    C.Value = s1
    Next C
End Sub

سپس دکمه doc-multiply-calculation-3.png یا کلید F5 را فشار دهید. پس از این کار پنجره Tarfandha-En2Fa ظاهر می‌شود.

233.png

محدوده مورد نظرتان را انتخاب کنید و روی Ok کلیک کنید تا نتیجه زیر حاصل شود.

233-1.png

  • تبدیل اعداد فارسی به انگلیسی:

اعداد در اکسل در حالت پیش فرض بصورت انگلیسی هستند اما گاها پیش می‌آید که اعداد درون جداول اکسل به هر دلیلی مثلا کپی گرفتن از جای دیگری، به زبان فارسی هستند. مشابه حالت قبل راحت‌ترین راه تغییر فونت اعداد به یک فونت انگلیسی است. اما اگر با انجام این کار تغییری صورت نگرفت از یکی از دو روش زیر استفاده کنید:

 

۱- با استفاده از کد تغییر فرمت

سلول یا سلول‌هایی که می‌خواهید اعداد درون آن‌ها انگلیسی شود را انتخاب کنید و سپس راست کلیک کرده و گزینه Format Cells را انتخاب کنید تا پنجره Format Cells باز شود. در قسمت Custom، ابتدا بررسی کنید که هیچ کدی مشابه کدهای حالت قبل قرار نداشته باشد. اگر قرار دارد آن را پاک کنید و یا حالت General را انتخاب کنید. اگر پس از پاک کردن اعداد همچنان فارسی هستند در قسمت Custom، کد زیر را وارد کنید و روی Ok کلیک کنید.

[$-1000409]0.00

۲- با استفاده ماکرو

کلیدهای Alt + F11 را فشار دهید یا از تب Developer قسمت code گزینه Visual Basic را انتخاب کنید. پنجره Microsoft Visual Basic for applications window ظاهر می‌شود. در این پنجره از تب Insert گزینه Module را انتخاب نمائید. در پنجره جدید باز شده کدهای زیر را کپی کنید.

Sub Fa2En()
Dim WorkRng As Range
Dim s As String
Dim ch As String
Dim s1 As String
xTitleId = "Tarfandha-Fa2En"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each C In WorkRng
    s1 = ""
    s = C.Value
        For i = 1 To Len(s)
        ch = Mid(s, i, 1)
        If 1776 <= AscW(ch) And AscW(ch) <= 1785 Then
        ch = ChrW(AscW(ch) - 1728)
        End If
        s1 = s1 + ch
        Next i
    C.Value = s1
    Next C
End Sub

سپس دکمه doc-multiply-calculation-3.png یا کلید F5 را فشار دهید تا پنجره Tarfandha-Fa2En ظاهر شود. مشابه حالت قبل محدوده مورد نظرتان را انتخاب کنید و روی Ok کلیک کنید تا تغییرات انجام شود.

 

توجه: اعداد درون کد ماکرو در واقع کد یونیکد اعداد فارسی و انگلیسی هستند. منبع

 

لینک به دیدگاه

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.