自定义函数中如何改变单元格的值？

yqchenlolo

定义了一个简单的函数Function Fun1()
    Set S = ThisWorkbook.Sheets(1)
    S.Cells(20, 1) = 2
    Fun1 = 4
End Function


在excel的单元格中输入公式"=Fun1()"，显示为#Value
如果函数改为：
Function Fun1()
    Fun1 = 4
End Function

则是可以正常显示的。
网上搜索说是不可以在函数中修改单元格的值，但没找到解决方法，
请问如果想在函数中修改某些单元格的值，应该如何解决？
谢谢

张三李四

一般情况下函数不能改写单元格。看到过有人写函数改写单元格的例子，好象也是通过曲线改写，非直接改字。

香川群子

此路不通，请回头！

香川群子

【如果想在函数中修改某些单元格的值，应该如何解决？】

把函数改成过程就可以了。

香川群子

如果需要想函数那样自动化……

那么，利用事件即可：
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

香川群子

张三李四 发表于 2014-8-7 13:11
一般情况下函数不能改写单元格。看到过有人写函数改写单元格的例子，好象也是通过曲线改写，非直接改字。

为了缩短你和大山之间的距离，如果山不动，那么你可以走向山……不要吊死在自己的愚蠢想法上


…………
当然，你可以说：你这是抹杀创新！


…………我也不想说道理，只能呵呵了。

张三李四

香川群子 发表于 2014-8-7 16:17
为了缩短你和大山之间的距离，如果山不动，那么你可以走向山……不要吊死在自己的愚蠢想法上

[推荐]谁说自定义函数不能修改其它单元格的值
http://club.excelhome.net/thread-338141-1-1.html

香川群子

张三李四 发表于 2014-8-7 16:31
[推荐]谁说自定义函数不能修改其它单元格的值
http://club.excelhome.net/thread-338141-1-1.html

彭版的这个帖子早就知道……你以为我唔知？！
没说不可以，但没有理由需要这样做。

Zamyi

C1=f(A1,"谁说不可以！","我说行！")

1. Function F(R As Range, S1, S2)
   
2. If R = "" Then R.Replace "", S1 Else R.Replace "*", S1
   
3. F = S2
   
4. End Function
   

复制代码

maditate

Zamyi 发表于 2014-8-7 17:30
C1=f(A1,"谁说不可以！","我说行！")

看来改写单元格蛮简单的嘛。