[推荐]谁说自定义函数不能修改其它单元格的值

byl2005

谢谢分享　收藏学习　

xq1234

彭兄啊，我看过你很多贴子，都相当不错。

不过这个贴子嘛……

在FUNCTION 函数过程中有什么代码加不进去啊？

删除移动重命名文件、关闭计算机、删除工作表、打开另一个文件、运行另一个程序、调用API函数……？只要你能在Sub  过程中实现的代码，有哪一个不能在 Function 过程中实现？只不过函数一般都具有返回值，这些功能一般都写在 Sub  过程中，而很少写在 Function 函数过程中而已。

居然赚了个精华贴，有点想不明白。

[此贴子已经被作者于2008-7-22 8:42:53编辑过]

onERR

高人 啊

jicqj

太强了 学习一下 谢谢楼主

ldy

QUOTE:

以下是引用xq1234在2008-7-22 8:38:30的发言：

彭兄啊，我看过你很多贴子，都相当不错。

不过这个贴子嘛……

在FUNCTION 函数过程中有什么代码加不进去啊？

删除移动重命名文件、关闭计算机、删除工作表、打开另一个文件、运行另一个程序、调用API函数……？只要你能在Sub  过程中实现的代码，有哪一个不能在 Function 过程中实现？只不过函数一般都具有返回值，这些功能一般都写在 Sub  过程中，而很少写在 Function 函数过程中而已。

居然赚了个精华贴，有点想不明白。

Function test(n)
test = n + 1
tt
End Function
Sub tt()
Sheet1.Cells(1, 1) = 1234
End Sub
Function test2(n)
Sheet1.Cells(1, 1) = 1234
test2 = n + 2
End Function

试一下把这几行代码写在模块里。

然后再单元格里调用，试过以后就明白了

常规的自定义Function 中可以干别的，就是无法改变其他单元格的值。

由于Function中有改变其他单元格值得语句 ，所以无法获得返回值，单元格显示错误，Sheet1.Cells(1, 1)的值也没变化。

[此贴子已经被作者于2008-7-29 0:43:18编辑过]

huaen

都是专业人士

hhzjxss

好东东就是好东东，不因为有人认为不是好东东而变成不是好东东，好东东就是精华！支持彭处版主！

LangQueS

神了！

hyy514

QUOTE:

以下是引用清风_ll在2008-7-16 10:01:31的发言：

在工作表中,函数不能修改其它单元格的数值是从单元格数据的安全性考虑的.

彭兄的此方法可以实现通过自定义函数达到修改其它单元格的数值的目的(自然也可实现正常的自定义函数所不能的其它功能).

从某种意义上来讲,但这并非以函数本身的功能,事实上通过工作表的Worksheet_Calculate事件就可以实现任意修改其它单元格了.

同意，只是用类定义了一个Change事件，真正改变单元格值的是自定义的事件而不是函数本身。

函数只是触发了该事件，不过思路真的很巧妙。

[em17]

祥和

彭老师：真是神人，一个子，酷
    我是新生。看到你老的作品。非常精彩。但是美中不足的是，同一工作表内有无数个PENGS（）函数，这些函数都引用了同一个单元格，改变这个单元格都改变了PENGS（）函数，但只能让最后的一个PENGS（）函数引用CSS。真是遗憾，有办法能让所有的PENGS（）函数都引用CSS吗？