Excel VBA数据验证列表报错‘1004’问题求助

问题核心 #

你的代码中数据验证参数不匹配是导致1004错误的主要原因：当使用xlValidateList类型的下拉列表验证时，不需要指定Operator参数（xlBetween是用于数值范围验证的参数，和列表验证逻辑冲突）。此外还有几个细节可优化以避免潜在问题。

修正后的代码 #

' 确保工作表界面级保护生效（按需保留）
Sheets("RMS").Protect UserInterFaceOnly:=True

Dim Validlist As String
Validlist = "part_list"

' 直接引用目标范围，无需激活单元格
With Sheets("RMS").Range("C11:D11").Validation
    .Delete ' 先清除原有验证规则
    ' 移除多余的Operator参数，匹配列表验证的参数要求
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
         Formula1:="=" & Validlist
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

额外排查点 #

• 命名区域有效性：确认part_list命名区域的范围无空单元格或错误引用。如果该区域在其他工作表，需确保是工作簿级命名，或在Formula1中指定工作表（比如Formula1:="=Sheet2!part_list"，替换Sheet2为实际表名）。
• 工作表保护冲突：如果part_list所在工作表被保护，需允许编辑该区域，或临时解除保护后再设置验证（若UserInterFaceOnly未生效）。
• 单元格锁定状态：目标单元格C11:D11若被锁定，在工作表保护状态下可能影响验证规则添加，可先取消锁定再设置验证。

内容的提问来源于stack exchange，提问作者Ashley