преобразования текста в номер

Question

Утреннее Все,

Сегодня я придумал новое присвоение Преобразование текста в число автоматически при помощи кодов VBA. Для примера '1233 необходимо преобразовать в 1233 и (1234) необходимо преобразовать в -1234 без каких-либо вмешательств человека. Некоторые советы очень полезны.

С уважением, Jabeer Али

Answer 1

Misunderstood ваш вопрос, мои извинения.

Это работает для меня, даже за пределами первенствовать:

Function numConv(num As String) As Double 

    If Mid(num, 1, 1) = "(" And Mid(num, (Len(num)), 1) = ")" Then 
     num = Replace(num, "(", "") 
     num = Replace(num, ")", "") 
     numConv = val(num) * -1 
    Else 
     numConv = val(num) 
    End If 

End Function 

Answer 2

Используйте функцию VALUE().

Кроме того, из here:

Sub ConvertToNumbers() 
    Cells.SpecialCells(xlCellTypeLastCell) _ 
    .Offset(1, 1).Copy 
    Selection.PasteSpecial Paste:=xlPasteValues, _ 
    Operation:=xlPasteSpecialOperationAdd 
    With Selection 
    .VerticalAlignment = xlTop 
    .WrapText = False 
    End With 
    Selection.EntireColumn.AutoFit 
End Sub