gpt4 book ai didi

vba - 确定单元格是否包含数据验证

转载 作者:行者123 更新时间:2023-12-01 20:20:04 25 4
gpt4 key购买 nike

我正在编写一个 VBA 代码,该代码会遍历一系列单元格,检查每个单元格是否具有数据验证(下拉菜单),如果没有,则从另一张工作表上的列表中为其分配一个数据。

我目前在检查当前单元格是否已进行数据验证的行上遇到问题。我收到错误 1004“未找到单元格”。

Sub datavalidation()

Dim nlp As Range
Dim lrds As Long
Dim wp As Double
Dim ddrange As Range

Sheets("DataSheet").Select

lrds = ActiveSheet.Range("A1").Offset(ActiveSheet.rows.Count - 1, 0).End(xlUp).Row

Set nlp = Range("I3:I" & lrds)

For Each cell In nlp

'error on following line

If cell.SpecialCells(xlCellTypeSameValidation).Cells.Count < 1 Then
wp = cell.Offset(0, -8).Value

Set ddrange = ddrangefunc(wp)

End If

Next

End Sub

有什么想法吗?谢谢

最佳答案

我知道这个问题已经很老了,但由于它是在谷歌搜索“excel vba 检查单元格是否具有验证”时出现的,所以我想我应该持保留态度。

如果您调用 SpecialCellsRange 对象仅代表单个单元格,则将扫描整个工作表以查找匹配项。如果您的数据量非常大,之前答案中提供的方法可能会变得有点慢。

因此,这是一种更有效的方法来检查单个单元格是否具有验证:

Function HasValidation(cell As Range) As Boolean
Dim t: t = Null

On Error Resume Next
t = cell.Validation.Type
On Error GoTo 0

HasValidation = Not IsNull(t)
End Function

关于vba - 确定单元格是否包含数据验证,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18642930/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com