excel - 使用范围公式时缺少下拉值

Question

我有以下 VBA 函数。这是为了在给定单元格中创建下拉列表

Public Sub CORE_SetValidation(ByRef Rng As Range, ByVal Value As String)
    With Rng.Validation
        Call .Delete
        If Value <> "" Then
            Call .Add(Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Value)
            .ErrorMessage = "Please select a value from drop-down list"
            .ErrorTitle = "Value Error"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputMessage = ""
            .InputTitle = ""
            .ShowInput = True
            .ShowError = True
        End If
    End With
End Sub

当我通过逗号分隔值将值传递给此值时，它对所有整个列都工作正常

dictkeystring = "1,2,3,4,5,6,7,8,9"
CORE_SetValidation(Sourcews.Columns(AllocationSheet_Prj_COLUMN).EntireColumn, dictkeystring)

但是当我使用范围公式传递值时，效果不佳。

dictkeystring = "=PrjList!A2:A6"
CORE_SetValidation(Sourcews.Columns(AllocationSheet_Prj_COLUMN).EntireColumn, dictkeystring)

问题是，对于每个单元格，我缺少一个值；在第一列中缺少一个值，第二个单元格缺少 2 个值，第三个单元格缺少 3 个值，...在某个地方我缺少所有值，我得到空下拉列表

我不确定为什么会发生这个错误，我可以在范围公式中解决这个问题

Answer 1

尝试

"=PrjList!$A$2:$A$6"

如果没有$，定义的范围地址是“相对的”，因此它将随着范围的单元格向下“滑动”。即第二行的验证将为 A3:A7 等等。

地址中的$指示Excel修复验证范围，因为它是绝对地址。