Excel2013-VBA-Validation-Formula1-属性溢出测试记录

gadxxzy

已于 2023-04-19 16:16:15 修改

阅读量1.5k

点赞数

文章标签： excel vba

于 2021-05-06 21:32:45 首次发布

本文链接：https://blog.csdn.net/u010916495/article/details/116463685

版权

Sub test()

Dim HelpArr() As String

RunTimes = 2
Do While RunTimes < 65536
    
    RunTimes = RunTimes + 1
    Erase HelpArr
    ReDim HelpArr(1 To RunTimes)
    For i = 1 To UBound(HelpArr)
        HelpArr(i) = i
    Next
    
    TestNumStr = Join(HelpArr, ",")
    Debug.Print "当前时间："; Now()
    Debug.Print "次数："; RunTimes
    Debug.Print "长度："; Len(TestNumStr)
With Sheet1
    With .Range("R3")
        With .Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=TestNumStr
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .IMEMode = xlIMEModeNoControl
            .Sh