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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • Amin_D

    • 2010/12/22
    • 399
    #1

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

    با سلام
    خروجی هایی که از یک نرم افزار میگیریم تمام سلول های آن حالت تکست دارند.
    میخواستم ببینم چطوری میشه اونا (کل ستون ها یا بعضی از ستون های اون) رو به عدد تبدیل کرد؟
    (با عرض پوزش :بغیر روشی که به صورت دستی این کار را انجام میشه انجام داد)
    با تشکر
    [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]
    برچسب ها: متن, تبدیل, عدد
    • amir_ts

      • 2015/03/17
      • 1247
      #2
      با سلام
      این کد ها رو تست کنید.
      کد:
      [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]

        کامنت

        قبلی template بعدی
        چند لحظه..