[已解决]自定義函數如何賦值給儲存格

dou10801

请问，自定义函数如何赋值给存储格,谢谢.

最佳答案

月排行榜 / 总排行榜

cutecpu

2023-5-25 14:09

dou10801 发表于 2023-5-24 16:17
感謝vitrel前輩回覆,抱歉沒說清楚,除了前輩的範例外,希望在指定儲存格[例如,在(b1)]傳遞其他字串,謝謝.Fu ...

function 不行，您要用 sub

跳转到最佳答案楼层

vitrel

楼主，您好！
问题已经解决，请看附件。

PS：自定义函数，是您自己创建的函数，
与普通的工作表函数（Sum、Int、Round、Year等）类似，
自定义函数的代码中是不需要出现具体单元格的，
（也可以出现，但就属于另外的目的了，反正您的这个实例中并不需要）
自定义函数创建完成后，就跟普通的工作表函数一样，
直接在您“看中”的那个单元格里使用即可。

上代码：

1. Function MyCustomFunction(ByVal arg1 As Integer, ByVal arg2 As Integer) As Integer
   
2.     Dim result As Integer
   
3.     result = arg1 + arg2
   
4.     MyCustomFunction = result
   
5. End Function

复制代码

dou10801

vitrel 发表于 2023-5-24 08:26
楼主，您好！
问题已经解决，请看附件。

感謝vitrel前輩回覆,抱歉沒說清楚,除了前輩的範例外,希望在指定儲存格[例如,在(b1)]傳遞其他字串,謝謝.

Function MyCustomFunction(ByVal arg1 AsInteger, ByVal arg2 As Integer) As Integer

   Dim result As Integer

   result = arg1 + arg2

   MyCustomFunction = result

    range(“b1”)=”蘋果”

End Function

cutecpu

dou10801 发表于 2023-5-24 16:17
感謝vitrel前輩回覆,抱歉沒說清楚,除了前輩的範例外,希望在指定儲存格[例如,在(b1)]傳遞其他字串,謝謝.Fu ...

function 不行，您要用 sub