我遇到了一些代码问题,如能得到任何帮助我将非常感激。
我下载了一个代码,该代码使用户能够在下拉列表中使用自动完成功能。该代码评估 Activecell 是否包含列表,然后将列表存储为对象。问题是我的用户使用的是西班牙语版本的 Excel,因此代码不起作用。特别是,我在代码的这一行中遇到了问题:
Set rFormula = Evaluate(ActiveCell.Validation.Formula1)
If rFormula Is Nothing Then 'VBA doesn't recognize the formula so rFormula = Nothing
End
End If
与ActiveCell.Validation.Formula1 =
验证公式相同,但使用西班牙语。由于我使用的是英语版本,因此此代码在我的 PC 上完美运行。