VBA NumberFormat实现

时间:2018-04-07 19:18:16

标签: vba excel-vba number-formatting excel

NumberFormat似乎是一个简单的功能,但我不能让它工作是一个相当简单的情况。在下面的代码中,VBA告诉我“Type Mismatch”。

For j = 1 To last_column + 1
    For f = 2 To total_tranches + 1
        If allocation(f - 1, j - 1) = Empty And j <> 1 Then
            Allo1.Cells(AlShares.Row - 1 + f, j + 1) = 0
        Else
            Allo1.Cells(AlShares.Row - 1 + f, j + 1) = allocation(f - 1, j - 1)
            If j = 1 Then Allo1.Cells(AlShares.Row - 1 + f, j + 1).IndentLevel = 1
            If j = 2 Then Allo1.Cells(AlShares.Row - 1 + f, j + 1).NumberFormat = "_($*#,##0_);_($*(#,##0);_($*" - "??_);_(@_)"
        End If
    Next f
Next j 

如果我用“会计”替换特定的格式,它就行不通。请帮忙!

1 个答案:

答案 0 :(得分:2)

你要求VBA减去2个字符串“...($ *” - “?? ?? ..”,这样就是类型不匹配。