تبدیل اطلاعات به فرمت عددی

[Alireza]

سلام روز بخیر
فایل پیوست نمونه خروجی از برنامه حسابداری می باشد دو اشکال اساسی دارد 1- فرمت کلی فایل Number نیست 2- در اعداد منفی ، منفی سمت راست اعداد هست .
چون فایل ها خیلی گسترده هستند بعلت سرعت انجام لازمه اصلاحات با ماکرو انجام بشه
با تشکر

[حسام بحرانی]

سلام علیرضاجان
تا دوستان، کدنویسی این خواسته رو تدوین کنند، با روش فرمول نویسی هم فرمولی قرار میدم شاید به درد بخوره:

=iferror(value(a3);-(substitute(a3;"-";"")))
موفق باشید.

[iranweld]

با سلام

کد تبدیل فرمت تکست به نامبر


Sub Macro3()

For Each CELL In ActiveSheet.UsedRange

CELL.FormulaR1C1 = CELL.Value

Next

End Sub

[iranweld]

این کد را هم تست کنید


Sub test()

For Each cell In ActiveSheet.UsedRange

cell.Select

For i = 1 To Len(cell)


If Len(cell) > 0 And IsNumeric(Mid(cell, i, 1)) Then

xx = xx & Mid(cell, i, 1)

End If

Next

If Right(cell, 1) = "-" Then

xx = -1 * xx

End If

ActiveCell = xx

xx = ""

Next cell

End Sub

[Alireza]

سلام روز بخیر با تشکر از اساتید گرامی
نت قطع بود از این روش حلش کردم

Sub num()
Dim num As Range
For Each num In Sheet1.Range("A3:V500")
If num.Value <> "" Thennum = Int(num.Value)
End If
Next
End Sub


البته این کدم نوشتم ولی خوب وقتی تبدیل به فرمت number شد دیگه مشکل منفی ها هم حل شد

Sub convert()
Dim cvr As Range
For Each cvr In Sheet1.Range("d1:i500")
If Right(cvr.Value, 1) = "-" Thencvr.Value = "-" & Application.WorksheetFunction.Replace(cvr.Value, Len(cvr.Value), Len(cvr.Value), "")
End If
Next
End Sub

ممنون از همگی