excel - 如何检查单元格是否格式化为货币？

Question

我正在做一个项目，需要检查大量单元格是否满足许多标准。

我已经能够使用下面的代码来检查单元格是否包含数字格式的值。但是，我还需要一种方法来检查单元格是否包含格式化为美国货币的值。

If Not Application.WorksheetFunction.IsNumber(Range(StringColumn & StringRow).Value) Then  
    MsgBox "Test Failed at " & StringColumn & StringRow  
    Exit Sub  
Else: MsgBox "Valid format for cell " & StringColumn & StringRow  
End If

StringColumn 和 StringRow 是提供单元格引用的变量。

感谢您的帮助。谢谢!

Answer 1

您也可以使用 vba等价于公式=CELL("format",A1)以 C 开头用于货币或会计格式

MsgBox Left$(Evaluate("CELL(""Format"",A1)"), 1) = "C"