Excel vba：强制数据验证和最大字段长度

Question

我想对给定范围 ( D2:D65536 ) 进行一些数据验证。

验证条件必须检查范围内的单元格不能为空并且文本长度不能超过35。

如何使用 vba 实现此验证？

我试过了：

'    With Range("D2:D65536").Validation
'        .Delete
'        .Add Type:=xlValidateTextLength, _
'            AlertStyle:=xlValidAlertInformation, _
'            Minimum:=2, Maximum:="35"
'        .IgnoreBlank = True
'        .ErrorTitle = "Validation Error"
'        .ErrorMessage = "X mandatory and length should be less than or equal to 35"
'        .ShowError = True
'    End With

Answer 1

我想你正在寻找：

Sub Validate()
    With Range("D2:D65536").Validation

        .Delete
        .Add Type:=xlValidateTextLength, _
            AlertStyle:=xlValidAlertInformation, _
            Operator:=xlBetween, _
            Formula1:="2", _
            Formula2:="35"
        .IgnoreBlank = True
        .ErrorTitle = "Validation Error"
        .ErrorMessage = "X mandatory and length should be less than or equal to 35"
        .ShowError = True
    End With
End Sub

F1 上的帮助不像搜索那样令人困惑，但无论如何都可以看看 Add 方法：http://msdn.microsoft.com/en-us/library/aa221688(v=office.11).aspx。您使用的示例是整数，但您希望检查文本长度。

Answer 2

Function checkrange()
Dim r, a As Range

'Set r = Range("D2:D65536")
Set r = Range("a1:a2")
    checkrange = False
    For Each a In r
       If (a = "" Or Len(a) > 35) Then Exit Function
    Next a
    checkrange = True
End Function

Sub a()
MsgBox (checkrange())
End Sub  

如果验证成功返回 True，否则返回 False。

HTH！

编辑

您可以阅读使用验证here 完成的方法。但我认为它对于生产代码来说不够健壮。 AFAIK 无法以一致的方式验证没有 VBA 的空单元格。