vba - 将 Excel 中的值从字符串更改为数字

Question

我在 VBA 中编写了一个脚本，将文本文件中的数字插入到工作表中。插入值后，Excel 建议我将值从字符串转换为数字。在单元格内，会出现一个绿色三角形。选择单元格后，您可以选择不同的选项来格式化单元格内的值。

我还尝试使用 CDbl(string) 将 VBA 中的值转换为 double 值但什么也没发生。

更改 NumberFormat也不起作用。我在 VBA 和 Excel 中尝试了不同的值。

我还尝试在选择方法时录制宏，但宏内没有保存任何内容。

有人知道怎么做吗？

Answer 1

尝试这个。我以单元格 A1 为例。此外，如果有十进制值，那么而不是 Long使用 Double并更改 NumberFormat因此。

Sub Sample()
    Dim clVal As Long

    With Sheet1.[a1]
        clVal = Val(.Value)
        .NumberFormat = "0"
        .ClearContents
        .Formula = clVal
    End With
End Sub