vba - 将具有数字值的单元格格式化为数字

Question

对你来说是一个非常微不足道的问题。我基本上是在尝试识别具有数值的范围内的每个单元格，然后将其格式化为“数字”(因此忽略那些包含字符串的单元格)。我找到了一个使用 IF 和 TRUE/FALSE 表达式来确定哪个单元格与条件匹配的 excel 公式，但是在 VBA 中运行代码时，我似乎无法存储 IF 语句？

这可能很愚蠢，因为我是 VBA 的新手，但会感谢所有帮助!

下面的代码:

Sub formatnumbers()

Dim rng As Range
Dim cell As Range

Set rng = ActiveSheet.Range("A1:N10")

For Each cell In rng
 cell.Select
         If cell.Formula = "=COUNT(FIND({0,1,2,3,4,5,6,7,8,9},cell))>0, TRUE, FALSE)" = True Then
            cell.NumberFormat = "0.00"
         End If

Next cell

End Sub

Answer 1

试试这个代码:

Sub formatnumbers()
    Dim rng As Range
    Set rng = ActiveSheet.Range("A1:G15")
    rng.NumberFormat = "0.00"
End Sub

或者:

Sub formatnumbers()
    Dim rng As Range
    Dim cell As Range
    Set rng = ActiveSheet.Range("A1:G15")
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            cell.NumberFormat = "0.000"
        End If
    Next cell
End Sub