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

香川群子

9楼的函数能有什么用处呢？
Function F(R As Range, Optional S1 = "空白赋值", Optional S2 = "非空白赋值", Optional S3 = "改变了")
    If R = "" Then R.Replace "", S1 Else R.Replace "*", S2
    F = S3 & R.Address(0, 0)
End Function

Zamyi

至少可以前面的论断错误。

yqchenlolo

多谢各位，

我原来碰到的问题及后来摸索解决的办法如下：

问题：
当单元格内容发生变化时，采取一些修改部分单元格的操作，
由于单元格内容的变化是通过公式引用来实现的，而非人为直接改动，这样的话worksheet_change貌似识别不出来，

最初想的解决办法
用function来实现，通过在function里加application.volatile可以识别通过公式引用产生的变化，
但这样的话想在表里修改内容就不行，因此此路不通，看网上有一些绕弯的方法，感觉不太方便

后来用的方法
楼主用了worksheet_Calculate的方法替代解决了，当单元格公式重算时，触发该sub，从而达到目的。

以上方法，供有此需求的伙计们参考。再次谢谢各位帮忙

香川群子

yqchenlolo 发表于 2014-8-8 08:08
多谢各位，

我原来碰到的问题及后来摸索解决的办法如下：

Private Sub Worksheet_Calculate()

End Sub

嗯是的，可以达到楼主的目的。


…………
手段是实现目的的路径，及时改变思路，寻找最合适的路径本来就是正确的方法。

yqchenlolo

香川群子 发表于 2014-8-8 11:00
Private Sub Worksheet_Calculate()

End Sub

这时又衍生出一个子问题，
我用worksheet_Calculate函数时，
希望只在自动计算的区域是指定区域时，才执行之后的代码，不知道有否办法处理，
就类似于Worksheet_Change过程利用利用Target来判断一样。
（例如我希望只有单元格A1重算时才执行代码，单元格A2重算则不执行）

如果重算是以表为单位（即如果重算，表里所有单元格都重算，而无法做到只有一部分重算），那可能就没辙了

香川群子

Worksheet_Calculate()事件是没有参数的……无法控制

最好能把完整的问题、附件提出来。


也许有更好的解决办法。

Zamyi

yqchenlolo 发表于 2014-8-8 08:08
多谢各位，

我原来碰到的问题及后来摸索解决的办法如下：

以后提问题先想好再提，免得被人家劈的找不到北。

yqchenlolo

感谢各位，下次改进。

nniczii

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

这个方法似乎有问题，你多搞几个单元格调用这个自定义函数，第二次调用就不工作了

烂番茄，，，，

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

测试了很久，列不能超过输入函数单元格所在的列，这是什么奇怪的现象