vba - 当某些值带有逗号时创建数据验证列表？

Question

我正在使用以下方法创建数据验证列表:

sDataValidationList = sDataValidationList & wksCalculation.Cells(r, lActivityNoColumn).value & ","

然后我使用以下方法将其应用到单元格:

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

这在大多数情况下都有效，但是当任何 wksCalculation.Cells(r, lActivityNoColumn).value 包含逗号时，这些字符串将由数据验证列表分割，每个逗号分隔字符串的一部分显示为单独的项目。

当进入数据验证列表的某些值包含逗号时，如何修改代码才能发挥作用？

Answer 1

你必须欺骗 Excel ;)

这是一个例子。将该逗号替换为 ASC 代码为 0130

的类似字符

Dim dList As String

dList = Range("B14").Value

'~~> Replace comma with a similar looking character
dList = Replace(dList, ",", Chr(130))

With Range("D14").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=dList
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With