如何创buildExcel函数？

我有一个Excel表格来计算excel表格的一些数字

我想创build一个可以更改H4：H7中的值的Excel函数。 然后捕捉E9中的输出并返回值。

我试过这个：

Public Function Isokinectic(number1 As Double) Worksheets("Sheet2").Range("H4:H7").Value = number1 Isokinectic = Worksheets("Sheet2").Range("H9").Value End Function 

目的是我有很多数字需要在H4：H7中查找，并返回H9中的值。

谢谢！

Answer 1

你的function有什么问题？ 在我的testing中，它完成了我期望的代码。 但是，如果从工作表中调用该参数，那么参数number1 As Double将是错误的。 你可以这样称呼= =等速（A1）A1包含你想要处理的数字。 但A1是一个范围，你的function将不得不这样对待。

 Function Isokinectic(Source As Range) With Worksheets("Sheet2") .Range("H4:H7").Value = Val(Source) Isokinectic = .Range("H9").Value End With End Function 

当然，这仍然留下一个问题，为什么你要在H9的某处（无论你在哪里调用你的UDF）写入值。 试着理解它，我到达这个解决scheme，从H7 = Isokinctic(H4)调用。

 Function Isokinectic(Source As Range) With Worksheets("Sheet2") .Range("H5:H6").Value = Val(Source) Isokinectic = Val(Source) End With End Function 

在这种情况下，你应该inputH4中的数字，H7中的公式，并得到范围H5：H7填充相同的数字 – 只是想，哈哈：