Excel VBA - 分配单元格属性会引发错误号1004

Question

伙计们，我正在努力让这段代码从excel表中运行为Macro（名为＆＃34; Kalender＆＃34;）：

Public Function dcTest(s As String) As String
  Dim ws As Worksheet

  On Error GoTo dcTestExit
  Err.Clear

  Set ws = ActiveSheet
  ' Set ws = Worksheets("Kalender") '... same error (and yes, the sheet exists!)
  ' ws.Cells(2, 2).FormulaR1C1 = s
  ws.Cells(2, 2).Value = s

dcTestExit:
  Set E = Err

End Function

尝试写入Value或FormulaR1C2属性后发生错误。该函数被称为＆＃34;用户定义＆＃34;从=dcTest("whatever")等Excel工作表中获取功能。

你能指出我正确的方向吗？ RT（F）M欢迎，只要有详细信息......

干杯，   ChrisF

Answer 1

不允许UDF直接更改任意位置的值。有关解决方法，请参阅VBA - Update Other Cells via User-Defined Function。