玉泽演理想型:文本化数字转换为数值型数字的几种方法

来源：百度文库编辑：偶看新闻时间：2024/04/28 19:32:05

Excel VBA高级编程:文本化数字转换为数值型数字的几种方法

"34"转化为34,有转化函数么?

回复：

*1
就可以了

还有多种方法：

*1
/1
+0
-0
--"34"
等等都可以
还可以采用复制->选择性粘贴等等

*************************补充一下***************************************************************

在VBA中转化数值的函数有以下几个:

CDblDouble负数从 -1.79769313486231E308 至 -4.94065645841247E-324；正数从 4.94065645841247E-324 至 1.79769313486232E308。CDecDecimal零变比数值，即无小数位数值，为
+/-79,228,162,514,264,337,593,543,950,335。对于 28 位小数的数值，范围则为
+/-7.9228162514264337593543950335；最小的可能非零值是 0.0000000000000000000000000001。CIntInteger-32,768 至 32,767，小数部分四舍五入。CLngLong-2,147,483,648 至 2,147,483,647，小数部分四舍五入

Sub bbb()
y1 = 0
y2 = Val("80%") / 100
y1 = y1 + y2

End Sub
Sub bbb()
    y1 = 0
    y2 = "80%"
    y1 = y1 + VBA.Format(y2, "0.00")
End Sub y1 = 0
y2 = "80%"
y1 = y1 + Evaluate(y2)
y2 = "0.8"
y1 = y1 + Evaluate(y2)
TEXT函数也可 Sub A列数字转文本()
    Dim rng As Range
    Dim i As Long
    With ThisWorkbook.Worksheets(1)
        Set rng = .Range("A2:A24")
        rng.NumberFormatLocal = "@" '这句和下方的第4句是关键，即写入前先设为“文本”格式，写后再重设为“常规”
        For i = 2 To 24
            .Cells(i, 1).Value = Format(.Cells(i, 1).Value, "0")
        Next i
        rng.NumberFormatLocal = "G/通用格式" '这就是上文说的第4句
    End With
    Set rng = Nothing
End Sub在新的一列中用函数TEXT转换数字为文本，如=TEXT(A1,0)

在EXCEL中将数字转换为英文大写的方法 excel 数字文本如何转换为时间格式 vc 在文本中将字符串转换为数字请问EXCEL的单元格文本格式如何转换为数字格式如何清楚地识别图片中的数字？（转换为文本的格式）数字转换为字符串文字转换为数字常规或文本格式的数字转换成数值啊? EXCEL中如何将文本型数字转换成数字? vb的问题：转换字符为数字请问Excel里的数字如何转换成真正的文本（就是数字前有“‘”）？ EXCEL中如何把已转换成文本的数字，再转换为数字如何在excel 将文本转换为数值？模拟图形转换为数字图形的步骤数字的书写方法 Excel中如何把带小数点的数字转换成不含小数点的文本 ASP中时间如何转换为数字？ excel中输入数字后是文本格式,怎样变成数值格式? excel里面有没有能把文本转化为数字的函数？？/ 可以将“日期型”转换为“数值型”的吗？如何在EXCEL中把数字设置为文本格式？如何在EXcel中将单元格的格式由数值改为文本后，使单元格中原来的数字内容不发生变化？最大的数字是几？谁知道《电子技术基础数字部分、《电子技术基础模拟部分》和《计算机数值方法》答案的下载地址？