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

Question

اگر از اکسل برای گرفتن اطلاعات از یک منبع خارجی استفاده می کنید، ممکن است در نهایت اطلاعات بسیار عجیبی در سلول های خود داشته باشید. به عنوان مثال، اجازه دهید بگوییم که شما سلول هایی دارید که حاوی اعدادی مانند 1234.5- هستند. این ها به عنوان سلول های متنی در اکسل فرمت می شوند و بنابراین نمی توان از آنها در محاسبات استفاده کرد.

ماکرو زیر سلول های یک محدوده انتخاب شده را بررسی می کند. اگر سلول ها حاوی متن هستند و آن متن به علامت منفی ختم می شود، ماکرو علامت منفی را به ابتدای متن منتقل می کند و دوباره آن را در سلول قرار می دهد. نتیجه این است که سلول از یک مقدار متنی به مقدار عددی مناسب تبدیل می شود.

Sub ConvToNum()
    Dim MyText As Variant
    Dim MyRange As Range
    Dim CellCount As Integer

    Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)
    For CellCount = 1 To MyRange.Cells.Count
        MyText = MyRange.Cells(CellCount).Value
        If VarType(MyText) = vbString Then
            MyText = Trim(MyText)
            If Right(MyText, 1) = "-" Then
                MyText = "-" & Left(MyText, Len(MyText) - 1)
                MyRange.Cells(CellCount).Value = MyText
            End If
        End If
    Next CellCount
End Sub