请教-关于数据有效性

时光如水00

请教-关于数据有效性VBA用什么属性操作？原EXCEL表中某单元格带数据有效性，表会根据数据有效性的不同选择变动，需要将每次变动的表复制出来。用VBA怎么对这个数据有效性进行逐一遍历？比如A1单元格有数据有效性，可以下拉菜单，里面有内容，每变动一次整张表会变化。VBA怎么对这个A1进行操作？

边缘码农

我感觉，应该是可以的。

时光如水00

边缘码农 发表于 2024-7-4 16:18
我感觉，应该是可以的。

用哪个函数？？比如？

时光如水00

边缘码农 发表于 2024-7-4 16:18
我感觉，应该是可以的。

要不要给个附件，请求大佬测试下？

边缘码农

时光如水00 发表于 2024-7-4 16:48
用哪个函数？？比如？

    With Range("C17")
        '假定c17是设置了数据有效性的单元格
        kk = Split(.Validation.Formula1, ",")
        For I = 0 To UBound(kk)
          .Value = kk(I)
            '其他操作
        Next
    End With

时光如水00

边缘码农 发表于 2024-7-4 17:03
With Range("C17")
        '假定c17是设置了数据有效性的单元格
        kk = Split(.Validation. ...

试了下还是不行~~~我上传个测试文件，大佬帮慢看看？

时光如水00

边缘码农 发表于 2024-7-4 17:03
With Range("C17")
        '假定c17是设置了数据有效性的单元格
        kk = Split(.Validation. ...

上传了附件。要求就是结果表，通过筛选A2单元格，将结果表另存成一个工作簿，命名就按筛选名称吧。

时光如水00

边缘码农 发表于 2024-7-4 17:03
With Range("C17")
        '假定c17是设置了数据有效性的单元格
        kk = Split(.Validation. ...

大佬，有空看下7楼的附件。

边缘码农

收到，中午时间看看。

边缘码农

时光如水00 发表于 2024-7-5 11:17
大佬，有空看下7楼的附件。

“有效列表”工作表的内容是经常变化的吗？

目前：在设置数据有效性时，使用公式的，还取不出来。