问题描述
我有一列单元格包含多个数据元素,使用 ;
分隔。
有人可以帮我为一个下拉列表创建一个 VBA 宏,其中每个单元格中的所有 ;
元素都是分开的吗?
我一直在尝试使用我发现的一些代码,这些代码似乎适用于单个单元格,但仅使用逗号分隔元素。如何将其应用于整个并将其更改为分号?
Sub List()
Dim s As String
s = Range("W2").Value
With ActiveCell.Validation
.Delete
.Add Type:=xlValidateList,AlertStyle:=xlValiDalertStop,Operator:= _
xlBetween,Formula1:=s
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)