求助：vba自定义函数不能设置单元格内容

bjjob1 · 发表于 2012-1-4 10:03

求助_不能设置单元格内容.rar (6.15 KB, 下载次数: 8)

liucqa · 发表于 2012-1-4 10:08

Worksheets(1).Cells(10, 2) = c

自定义函数不能操作单元格

bjjob1 · 发表于 2012-1-4 13:36

多谢啊，学习了，还有一个问题请教，详见附件。

彭希仁 · 发表于 2012-1-4 14:11

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

liucqa · 发表于 2012-1-4 14:23

bjjob1 发表于 2012-1-4 13:36
多谢啊，学习了，还有一个问题请教，详见附件。

Set c = Worksheets(1).Range("B6:B9")
Set d = Worksheets(1).Range("C6:C9")
e = WorksheetFunction.Trend(d, c, a) '此条语句出错，具体你研究

liucqa · 发表于 2012-1-4 14:25

彭希仁发表于 2012-1-4 14:11
[推荐]谁说自定义函数不能修改其它单元格的值
http://club.excelhome.net/thread-338141-1-1.html

正在学习

Zamyi · 发表于 2012-1-4 14:37

Function v(a, b)
Dim c
c = a + b
With Worksheets(1).Cells(10, 2)
If .Value = "" Then .Replace Null, c Else .Replace "*", c
End With
'为什么设置单元格内容的这句不能运行，如果去掉该句，就没有问题了。请高手帮忙
v = c
End Function

zzq0101 · 发表于 2012-1-4 15:33

Function v(a)
Dim c, d As Range
Set c = Worksheets(1).Range("B6:B9")
Set d = Worksheets(1).Range("C6:C9")
e = WorksheetFunction.Trend(d, c, a)
v = e
If e(1) > 20 Then
MsgBox ("ok")
Else
MsgBox ("ng")
End If

'为什么不能对e进行判断，如果去掉这个if块，就可以运行，求教

End Function

zzq0101 · 发表于 2012-1-4 15:35

e = WorksheetFunction.Trend(d, c, a)
e 是数组

bjjob1 · 发表于 2012-1-5 09:08

多谢楼上的，已解决。O(∩_∩)O~

		自动登录	找回密码
密码			免费注册