怎么自定义函数不能更新值

baomaboy

gxl19870625 发表于 2012-4-17 23:44
这跟模块没关系吧

呵呵 和模块是没关系！
我公司一台电脑坏了，打电话给维修部说不能启动，维修部说你换根电线试试吧，公司综合办公室的人把线换了还是不能启动，又打电话问，维修部的人说：“你家电脑是宝贝？不能拿过来让我看？”
呵呵 原谅我跟你绕弯子，“空山不见人，但闻鸟语响。”你不懂？你太mu了。
如果让你上一个带模块(代码)的附件那么难的话，那你就继续耐心等明白你的人(只靠你动动嘴描述一下就能懂你的人)给你答案吧。

kutenglaoshu

哈哈, 今天也遇到了类似的问题,看到几年前的两位仁兄辣么幽默.

可是后来问题怎么解决的?

gxl19870625

kutenglaoshu 发表于 2017-5-26 17:20
哈哈, 今天也遇到了类似的问题,看到几年前的两位仁兄辣么幽默.

可是后来问题怎么解决的?

哈,已经忘记了,应该是解决了吧.

kutenglaoshu

gxl19870625 发表于 2017-6-19 09:57
哈,已经忘记了,应该是解决了吧.

附件里写了一个自定义的函数, 但是每次都要按一下F9才显示结果.

自定义函数代码如下:

_________________________________________________________
Function xsh(rng As Range)
Application.Volatile
'Application.Calculation = xlCalculationManual
'sss = rng.Text
On Error GoTo 100
xsh = Mid(rng.Text, Application.WorksheetFunction.Find("@", Application.WorksheetFunction.Substitute(rng.Text, ">>", "@", (Len(rng.Text) - Len(Application.WorksheetFunction.Substitute(rng.Text, ">>", ""))) / 2)) + 2, 99)
'ActiveSheet.Calculate
'Application.Calculation = xlCalculationAutomatic

Exit Function
100:
     xsh = rng.Text
'     ActiveSheet.Calculate
'     Application.Calculation = xlCalculationAutomatic
End Function______________________________________________________