验证excel中数值的格式字符串(dna)

时间:2017-02-27 10:59:36

标签: excel excel-vba excel-interop excel-dna vba

我使用excel dna管理excel插件。在那里,我使用Range.NumberFormat = myformat;将数字格式应用于单元格。我事先并不知道字符串myFormat,它是在后端定义的。

在好的情况下,myFormat类似于" 0.00;(0.00)"或" ### 0,00 \ _€; [红色] - ### 0,00 \ _€",在其他类似于" toto"。在最新的情况下,excel单元格中的显示是##########或者没有意义的东西。

那么,在将格式应用于单元格之前,有没有办法检查字符串myFormat是excel的valide数字格式?

谢谢, 马里奥。

1 个答案:

答案 0 :(得分:0)

Sub tester()
Dim rng1 As Range, rng2 As Range

Set rng1 = Range("F1")' Formatted with 2 decimal places
Set rng2 = Range("G1")' Formatted with 6 decimal places

If rng1.NumberFormat <> rng2.NumberFormat Then
Beep
End If

End Sub