Question

我可以在表格级别上使用它......

=SUBSTITUTE(PROPER(SUBSTITUTE(A1,"'", "qx")), "qx", "'")

我可以在模块级别上使用它。

ActiveCell.Value = Application.WorksheetFunction.Proper(ActiveCell.Value)

但我似乎无法让这个在模块级别上工作......

ActiveCell.Value = Application.WorksheetFunction.Substitute(Proper(Substitute(ActiveCell.Value, "'", "qx")), "qx", "'")

我收到“Sub或Function not defined”错误。

我一直在努力解决这个问题，以至于我已经忘记了我尝试的所有不同变种。我真的可以使用一些新鲜的眼睛和一些功能嵌套的技术诀窍。这真让我抓狂。

（顺便说一下，这是为了将现有的单元格值改为正确的情况，以及通过大写撇号之后的任何字母来修复正确函数的怪癖）

Answer 1

你必须引用Application.WorksheetFunction对象，每次调用一个，因为它不知道about方法。

ActiveCell.Value = Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Proper(Application.WorksheetFunction.Substitute(ActiveCell.Value, "'", "qx")), "qx", "'")

VBA - 使用替代和正确的功能相结合

1 个答案: