X
تبلیغات
رایتل
خروجی هایی که از یک نرم افزار میگیریم تمام سلول های آن حالت تکست دارند.

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

کد زیر را استفاده میکنیم:

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

نظرات (0)
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)
نام :
پست الکترونیک :
وب/وبلاگ :
ایمیل شما بعد از ثبت نمایش داده نخواهد شد