[حل شده] تبدیل تکست به عدد

[amin.t]

با سلام خدمت دوستان و اساتید عزیز

بنده یکسری دیتاها که شامل عدد می باشند رو در یک فایل اکسل کپی کردم ولی متاسفانه نمی تونم روی اونها عملیات ریاضی انجام بدم .
با فرمول value هم نشد به عدد تبدیلشون کنم میشه دوستان لطف کنند و بنده رو راهنمایی بفرمایند

نمونه فایل :Book1.xlsx

[majid_mx4]

با سلام

دوست عزیز با فرض اینکه اعداد شما در ستون a باشد. میتوانید از فرمول زیر استفاده نمایید.

توجه : شاید درفرمول های آفیس شما بجای "," از ";" استفاده شود لطفا آنرا تغییر دهید.

=value(mid(a1,1,len(a1)-1))

با تشکر میر

[iranweld]

با سلام

با توجه به وجود یک کاراکتر اضافه در انتهای هر سلول بایستی توسط ماکرو ذیل آن کارکتر را حذف کنید

دو دستور IF پشت سر هم برای حذف احتمالی دو کارکتر 160 در یک سلول میباشد.

Private Sub CommandButton1_Click()

For Each cell In Sheets(1).UsedRange

If Right(cell.Value, 1) = Chr(160) Then

cell.Value = Left(cell.Value, Len(cell) - 1)


If Right(cell.Value, 1) = Chr(160) Then

cell.Value = Left(cell.Value, Len(cell) - 1)

End If

End If

Next

End Sub 

[amin.t]

با سلام

دوست عزیز با فرض اینکه اعداد شما در ستون a باشد. میتوانید از فرمول زیر استفاده نمایید.

توجه : شاید درفرمول های آفیس شما بجای "," از ";" استفاده شود لطفا آنرا تغییر دهید.

=value(mid(a1,1,len(a1)-1))

با تشکر میر

با سلام

با توجه به وجود یک کاراکتر اضافه در انتهای هر سلول بایستی توسط ماکرو ذیل آن کارکتر را حذف کنید

دو دستور IF پشت سر هم برای حذف احتمالی دو کارکتر 160 در یک سلول میباشد.

Private Sub CommandButton1_Click()

For Each cell In Sheets(1).UsedRange

If Right(cell.Value, 1) = Chr(160) Then

cell.Value = Left(cell.Value, Len(cell) - 1)


If Right(cell.Value, 1) = Chr(160) Then

cell.Value = Left(cell.Value, Len(cell) - 1)

End If

End If

Next

End Sub 

سلام
فقط می تونم بگم عالیییییییییییی بود