Question

我有一个VBA代码，当我双击一个单元格时会创建一个下拉列表，但我想更改下拉列表的公式，以便我可以创建从属下拉列表。问题是我在公式中使用的qoutes干扰了公式本身的界限。我把部分代码放在问题所在的地方。任何帮助将不胜感激。

With Range("H" & myRow & ":H" & myRow).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=OFFSET(INDIRECT($G13),0,0,COUNTA(INDIRECT($G13&"Col")),1)"

谢谢

Answer 1

对文字表达式使用双引号...

With Range("H" & myRow & ":H" & myRow).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=OFFSET(INDIRECT($G13),0,0,COUNTA(INDIRECT($G13&""Col"")),1)"

在Excel VBA问题中添加下拉列表的公式

1 个答案: