کپی کردن اعداد دارای ممیز از ورد به اکسل

[arefi404]

با سلام واحترام خدمت اساتید محترم
وقتی از ورد اعدادی که دارای ممیز هستند در اکسل کپی می کنیم اعداد جابجا می شوند مثلاً200/010 بصورت 010/200نشان داده می شود
لطفاً در این مورد راهنمایی فرمایید. ضمناً با تابع Reverse این کار انجام نمی گیرد.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[ordouei]

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

[arefi404]

با سلام، فایل ورد توسط افراد دیگر نوشته شده و امکان ثبت مجدد وجود ندارد. نمونه فایل

[ordouei]

با سلام
کد زیر را استفاده نمایید
Sub saeed1()
'excel.saeed@gmail.com
'ÇÓÊÝÇÏå ÛíÑ ÊÌÇÑí ÑÇíÇä
'09123494037 Ordouei
'ÍÞ ˜í ãÍÝæÙ
Dim rng As Range, cell As Range
Dim iCell As Range


Dim strSearch As String
strSearch = ""
Set rng = Range("A1:z3000")


For Each iCell In rng
If InStr(iCell.Value, strSearch) Then
'Found Match

'''''''''''***********'''''''''''
iCell.Select

' MsgBox iCell.value

Dim Reverse As String
Dim Delimiter As String






Dim Data() As String
Dim Result As String
Dim Index As Integer


Delimiter = ""
Dim Expression As String
Expression = Application.ActiveCell.Value






Result = ""
Data = Split(Expression, Delimiter)
Index = UBound(Data)


Result = Data(Index)


Do
Index = Index - 1
Result = Result & Delimiter & Data(Index)
Loop While Index > 0


Reverse = Result


ActiveCell.Value = Reverse

' Call saeed



''''''''''************''''''''''''



End If
Next iCell
End Sub
موفق باشید