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

[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
موفق باشید