تبدیل به داده عددی

[master]

سلام
من یه ماکرو دستس record کردم در حین انجام کارهام سه ستون بود که دادهای داخلش عددی بودن ولی ظاهار نوع فرمت سلولش چیز دیگه ای بود به همین دلیل روی اونا اون علامت تعجی اومده بود که وقتی باز کنیم یه قسمت داره که نوشته Convert to Number
توی حین ضبط ماکرو این قسمت توی ماکرو ضبط نمیشه (چند بار هم امتحان کردم) و یه سری دستورات دیگه هم به علت انجام نشدن این قسمت انجام نمیشه
حالا میخوام خودم دستی این قسمت رو اضافه کنم چطوی میشه توی vba یه رنج رو تبدیل به عدد کرد؟
بازم میگم داده عددی هست ولی چون فرمت سلول اشتباه هست این مشکل پیش اومده
با تشکر

[generalsamad]

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

Private Sub CommandButton2_Click()
Range("A:A").Select
    With Selection
        Selection.NumberFormat = "General"
        .Value = .Value
    End With
End Sub 

Private Sub CommandButton1_Click()
For Each WS In Sheets
On Error Resume Next
For Each r In WS.UsedRange.SpecialCells(xlCellTypeConstants)
If IsNumeric(r) Then r.Value = Val(r.Value)
Next
Next
End Sub