نحوه تبدیل اعداد فارسی در بین متون به اعداد انگلیسی

[MoReNu]

با سلام
در فایل اکسل پیوست که در نام کالا و در بین متون اعداد به صورت فارسی در فرمول بار نمایش داده می شن و در جستجو نیز قابل جستجو نیستن اعداد، این اعداد رو چطوری میتونم به اعداد انگلیسی تبدیل کنم؟

tamin konande - Copy.xlsx

[MoReNu]

دوستان همچنان مشکل ادامه داره و خیلی فوری نیاز به حلش دارم
ممنون می شم راهنماییم کنید
تشکر

[iranweld]

با سلام

در فایل پیوست با استفاده از ماکرو ذیل عددها به کارکتر اعداد ویندوز تبدیل میگردد

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

KB = Cells(Rows.Count, "B").End(xlUp).Row

For T = 1 To KB

For I = 1 To Len(Range("B" & T))

For J = 1 To 10

If Mid(Range("B" & T), I, 1) = ChrW(1631 + J) Then

Range("B" & T) = Left(Range("B" & T), I - 1) & ChrW(47 + J) & Right(Range("B" & T), Len(Range("B" & T)) - I)

End If

Next

Next

Next

Application.ScreenUpdating = True

End Sub 

[MoReNu]

سپاس گذارم

فقط لطفا می فرمائید در اکسل خودم که این متون عنوان ها بسیار زیاد هست چطوری این کد های ماکرو رو اعمال کنم؟

تشکر

[iranweld]

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

[MoReNu]

عزیز
کدهای مورد نظر رو من در این اکسل هم می خوام این اتفاق برای ستون های شماره کارت و شماره فاکتور براش بی افته
امکانش هست برای این اکسل هم تعریف بفرمائید یا اینکه بفرمائید که در کد فوق چطوری تعیین کنم چه ستون هایی اعدادش ویندوزی بشه؟

New Microsoft Excel Worksheet (3).xlsx

ممنون

[rjfri]

شما میتونید در ماکرویی که استاد عزیز iranweld براتون ارسال کردند عینا کپی و تحت ماکرو جدید با تغییر ستون در نظر گرفته یعنی "B" به ستون دلخواهتون عمل نمائید

[iranweld]

با سلام

فایل پیوست را ملاحظه کنید.

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False


kb = Cells(Rows.Count, "B").End(xlUp).Row

For k = 1 To 10

For i = 1 To kb


For j = 1 To 10

xx = Replace(Cells(i, k), ChrW(1775 + j), ChrW(47 + j))


Cells(i, k) = xx



Next

Next

Next k

Application.ScreenUpdating = True

End Sub