تبدیل متن به عدد

Amin_D

تاریخ عضویت: 2010/12/22

نوشته‌ها: 399
#1

تبدیل متن به عدد

2016/02/29, 17:56

با سلام
خروجی هایی که از یک نرم افزار میگیریم تمام سلول های آن حالت تکست دارند.
میخواستم ببینم چطوری میشه اونا (کل ستون ها یا بعضی از ستون های اون) رو به عدد تبدیل کرد؟
(با عرض پوزش :بغیر روشی که به صورت دستی این کار را انجام میشه انجام داد)
با تشکر

[COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]

برچسب ها: متن, تبدیل, عدد

amir_ts

تاریخ عضویت: 2015/03/17
نوشته‌ها: 1247

2016/02/29, 18:09

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

کد:

[LEFT]
Sub ConvertTextToNumber()
Dim ws As Worksheet
Dim r As Range
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
[/LEFT]

[SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]

🖤 پیام تسلیت

تبدیل متن به عدد

کامنت