امروز یکشنبه 09 اردیبهشت 1403 http://hayatbakhsh.cloob24.com
صفحه اصلی | درباره ما | تماس با ما

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

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

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

Sub ConvertTextToNumber()
Dim ws As Worksheet
For Each ws In Sheets
Dim r As Range
For Each r In ws.UsedRange.SpecialCells(xlCellTypeConstants)
On Error Resume Next
If IsNumeric(r)Then r.Value = Val(r.Value)
Next
Next
End Sub
تبلیغات متنی
فروشگاه ساز رایگان فایل - سیستم همکاری در فروش فایل
بدون هیچ گونه سرمایه ای از اینترنت کسب درآمد کنید.
بهترین فرصت برای مدیران وبلاگ و وب سایتها برای کسب درآمد از اینترنت
WwW.PnuBlog.Com
Nobitex Referral Campaign Banner
ارسال دیدگاه