نرم افزار كاربردي تبديل متن به كداسكي در اكسل - Text to ASCII code

**Skynet** · 2017/03/06, 00:46

سلام با تشکر از شما بابت این فایل
من خیلی به برنامه نویسی آشنایی ندارم ولی تو کارم نیاز دارم با ماکرو کار کنم و با مبحث زبان فارسی در ماکرو درگیرم!
خواهش می کنم بفرمایید چطور می تونم در این ماکروی نمونه از کد اسکی به جای کلمات فارسی استفاده کنم خیلی ممنونم از شما

excel_chrw_function_for_farsi !

http://s4.picofile.com/file/8288574500/excel_chrw_function_for_farsi_.xlsm.html

کد:

Sub Macro2()'
' Macro2 Macro
'


'
    Range("Table1[ÊÇÑíÎ ß]").Select
    ActiveWorkbook.Worksheets("Convert").ListObjects("Table1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Convert").ListObjects("Table1").Sort.SortFields.Add _
        Key:=Range("Table1[[#All],[ÊÇÑíÎ ß]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Convert").ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

**iranweld** · 2017/03/06, 13:14

با سلام

با یک کلک ساده قبل از اجرای کدهای اصلی نام سلول مورد نظر را به انگلیسی تغییر بدید و پس از انجام عملیات دوباره نام سلول مورد نظر را فارسی کنید

کد PHP:


Sub Macro2()

Range("d5") = "tarikh"

    Range("Table1[tarikh]").Select
    ActiveWorkbook.Worksheets("Convert").ListObjects("Table1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Convert").ListObjects("Table1").Sort.SortFields.Add _
        Key:=Range("Table1[[#All],[tarikh]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Convert").ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("d5") =  "تاریخ چک"

End Sub

فایل های پیوست شده

Copy of excel_chrw_function_for_farsi !.zip (18.7 کیلو بایت, مشاهدات 67)

**Skynet** · 2017/03/07, 00:20

با سلام و احترام ویژه
عالییییی، کمک خیلی بزرگی بودددد چند هفته ای هست که درگیرش بودم ، خیلی خیلی ممنونمممم مخصوصا که در فایل پیوست در نهایت به جای کلمه فارسی " تاریخ چک "، از کد اسکی معادل، استفاده کردید ممنونمممم

**romans** · 2017/06/17, 23:46

سلام
من یه سری دیتا دارم که ورودی یک نرم افزار هستند و باید به صورت یک فایل با فرمت ascii بهش داده بشه نمی دونم چطور اونهارو باید تبدیل کرد فایلی که گذاشته بودین هم دانلود کردم اما ازش سر در نیاوردم
ممنون میشم راهنمایی کنین
New Microsoft Excel Worksheet (2)