جستجو در تالارهای گفتگو

برای فارسی کردن اعداد در جداول یا همان صفحه گسترده اکسل، راحت‌ترین راه تغییر فونت اعداد از انگلیسی به فونت فارسی است. اما اگر با انجام این کار تغییری صورت نگرفت از یکی از دو روش زیر استفاده کنید:۱- با استفاده از کد تغییر فرمت سلول یا سلول‌هایی که می‌خواهید اعداد درون آن‌ها فارسی شود را انتخاب کنید و سپس راست کلیک کرده و گزینه 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 سپس دکمه یا کلید F5 را فشار دهید. پس از این کار پنجره Tarfandha-En2Fa ظاهر می‌شود. محدوده مورد نظرتان را انتخاب کنید و روی Ok کلیک کنید تا نتیجه زیر حاصل شود. تبدیل اعداد فارسی به انگلیسی: اعداد در اکسل در حالت پیش فرض بصورت انگلیسی هستند اما گاها پیش می‌آید که اعداد درون جداول اکسل به هر دلیلی مثلا کپی گرفتن از جای دیگری، به زبان فارسی هستند. مشابه حالت قبل راحت‌ترین راه تغییر فونت اعداد به یک فونت انگلیسی است. اما اگر با انجام این کار تغییری صورت نگرفت از یکی از دو روش زیر استفاده کنید: ۱- با استفاده از کد تغییر فرمت سلول یا سلول‌هایی که می‌خواهید اعداد درون آن‌ها انگلیسی شود را انتخاب کنید و سپس راست کلیک کرده و گزینه 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 سپس دکمه یا کلید F5 را فشار دهید تا پنجره Tarfandha-Fa2En ظاهر شود. مشابه حالت قبل محدوده مورد نظرتان را انتخاب کنید و روی Ok کلیک کنید تا تغییرات انجام شود. توجه: اعداد درون کد ماکرو در واقع کد یونیکد اعداد فارسی و انگلیسی هستند. منبع