vba - Excel VBA : how to add data validation list which contain comma included value without using reference of Range

Question

我需要向单元格添加一个数据验证列表，其中少数值包含逗号。我有同样的问题，像这样Data Validation to Include Comma Character

但我无法引用范围，因为我正在创建一个新工作簿并为其单元格提供数据验证列表。因此，引用对我不起作用，并且由于某些值包含逗号，因此我无法将 Range 设置为 String 并在 Formula1

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=myStr

我发现我可以用其他字符(虚拟字符)替换逗号，并在填充单元格后用逗号替换该虚拟字符，但问题是如何用逗号替换该虚拟字符？

另一种方法是覆盖 Formula1，以便我可以使用虚拟字符作为分隔符，但我不知道如何实现这一点。

请提出任何解决方案，我的最终目标是创建一个新工作簿并通过Excel VBA填充数据验证列表

Answer 1

让我们对单元格 B9 使用虚拟字符方法。这将设置DV:

Sub InternalString2()
    Range("B9").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Replace("alpha%ralpha,beta%waiter,gamma%hammer,delta%faucet","%",Chr(130))
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With
End Sub

其中 Chr(130) 是虚拟对象。 .ShowError 很重要。

现在为了替换虚拟，我们使用事件宏:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B9")) Is Nothing Then Exit Sub

    Application.EnableEvents = False
        Range("B9").Replace What:=Chr(130), Replacement:=","
    Application.EnableEvents = True
End Sub