تبدیل اعداد انگلیسی به فارسی و بالعکس در 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 کلیک کنید تا تغییرات انجام شود.

 

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

 

لینک ارسال

به گفتگو بپیوندید

هم اکنون می توانید مطلب خود را ارسال نمایید و بعداً ثبت نام کنید. اگر حساب کاربری دارید، برای ارسال با حساب کاربری خود اکنون وارد شوید .

مهمان
ارسال پاسخ به این موضوع ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   بازگردانی قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به صورت لینک

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.

در حال بارگذاری
  • کاربران آنلاین در این صفحه   0 کاربر

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