vba - Excel VBA - 验证数字和文本长度

Question

我正在尝试验证我的 Sub 工作表上的单元格，该单元格将检查以确保它是一个数字并且不超过所需的文本长度，这会有所不同，但我正在使用函数找到它。

我可以验证文本长度，但显然这仍然允许文本:

With Selection.Validation
    .Delete
    .Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
    Operator:=xlBetween, Formula1:="0", Formula2:=ValidMaxLength

非常感谢任何帮助。

Answer 1

考虑到我们要计算整数位数(不包括小数位数、减号或小数点):

With Selection.Validation
    .Delete
    .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, _
          Operator:=xlBetween, Formula1:="=IF(" & Selection.Address & _
          "=0, TRUE, AND(ISNUMBER(" & Selection.Address & _
          "), ROUNDDOWN(LOG10(ABS(" _
          & Selection.Address & ")),0)<" & ValidMaxLength - 1 & "))"
End With

考虑到 1eN 有 N+1 个数字，这应该可以完成工作。