使用个人宏库中的子过程运行函数

Question

我刚刚从Excel 2003切换到2010，并且无法识别Sub以识别在单元格K1中修复的输入。我希望在我的个人宏书中有这个，以便它可以在我正在处理的任何工作簿中执行。

感谢。

Function Celsius(x As Double) As Double
   Celsius = (x - 32) * (5 / 9)
End Function

---

Sub conversion()
   ActiveCell.FormulaR1C1 = "'=PERSONAL.XLS!Celsius(k1)"
End Sub

Answer 1

前导撇号表示单元格中的数据是文本。如果你摆脱撇号，Excel将评估公式。

Sub conversion()
   ActiveCell.Formula = "=PERSONAL.XLS!Celsius(k1)"
End Sub