【原创】VBA学习笔记（18） VBA的自定义函数 / 过程，到底能不能改变EXCEL单元格内容？

目录

一 自定义函数

1.1 什么是EXCEL 的自定义函数

1.2 明确概念： 函数错误 Vs 函数返回值错误

二 自定义函数详情总结

2.1 自定义函数总结

2.2 自定义函数问题1：自定义函数命名有玄机，可能造成问题

2.3 自定义函数问题2： 数据类型要匹配，否则可能返回错误

2.4 自定义函数问题3：自定义函数不一定有返回值

2.5 自定义函数问题4：自定义函数不能改变EXCEL的单元格里的值？

三  过程是可以的？

3.1 function不能的，过程可以做哪些？

3.2   function的可以的，sub哪些不可以？

四  原因呢？

五 例外呢

参考的文档 和继续学习

---

一 自定义函数

1.1 什么是EXCEL 的自定义函数

• VBA里用户自己写了一些函数，这些非 EXCEL 和 VBA 内置的函数，也可以在EXCEL直接使用
• VBA的函数在 EXCEL里如何使用？
• 单元格里输入 = 自定义函数名  即可

1.2 明确概念： 函数错误 Vs 函数返回值错误

• 函数错误：是 语法错误，允许错误，逻辑错误等等
• 函数返回值错误：是 函数调用后，返回值报错了。（不一定是函数本身的错误）

二 自定义函数详情总结

2.1 自定义函数总结

• 1---自定义函数的命名需要注意，有时候，自定义函数不正确是因为 函数命名 有问题
• 2---自定义函数在excel里使用，最好有返回值！
•      没有的话也可以，会返回默认值，如0
• 3---自定义函数，在excel里使用，要注意数据类型是否有问题，比如要求是int的函数，无法处理字符串！
• （exce l或 VBA的内置函数也一样，比如sum 也无法处理 字符串，sum("a") 也会报错）
• 4---自定义函数

2.2 自定义函数问题1：自定义函数命名有玄机，可能造成问题

• 下面2个自定义函数，就函数名不同
• 推测原因是：函数名冲突
• 实测：2个字母的很容易出错，函数名长点比如加个test，或者用中文就没问题
• 实测在EXCEL里输入
• =SUM2(A1,B1)    返回值会报错，怀疑和 系统内置的函数名有些冲突 sum2？
• =mysum2(A1,B1)

Function sum2(a As Integer, b As Integer) '怀疑函数名不能用
sum2 = a + b
End Function

Function mysum2(a As Integer, b As Integer)
'Dim a As Integer
'Dim b As Integer
mysum2 = a + b
End Function

2.3 自定义函数问题2： 数据类型要匹配，否则可能返回错误

• 自定义函数，也要注意，处理的数据的数据类型，如果不合适可能报错
• 这一点和EXCEL的内置函数一样
• 虽然sum之类的函数无法处理string
• 但string 就可以把 5这样的 integer当做字符串处理没问题

Function merge1(m As String, n As String)
merge1 = m & n
End Function


Function cube1(a)
cube1 = a * a * a
End Function

2.4 自定义函数问题3：自定义函数不一定有返回值

• 自定义函数里没定义 function_name=  赋值，返回，就会返回空值，可以试1个啥也不做的函数
• 相当于在一个EXCEL 的单元格里引用 自定义函数，因为自定义函数没有返回值，所以单元格的值就显示 #n/a #value
• 下面这个是因为试图改变单元格的值引起的报错

Function mysum1()
mysum1 = Cells(1, 1).Value + Cells(1, 2).Value
End Function



Function mysum3()  '函数本身在VBA里OK，但这个当自定义函数使用，函数本事没事，但返回值会报错
Cells(10, 1).Value = Cells(1, 1).Value + Cells(1, 2).Value
End Function

Function mysum4()    '改变单元格的值，会返回报错
Cells(10, 1).Value = 100
End Function

Function mysum5()  '没返回值，不会返回报错，但是会返回0
End Function

用function 只干改变EXCEL单元格的值也不行

• 可能是没有函数返回值引起的问题？NO
• 还是因为改变EXCEL的单元格的值引起的
• 怀疑是因为cells()的语法，是在VBA内合法，在EXCEL内并没有cells()这样的写法导致？

Function mysum4()   '这样也会返回错误
Cells(10, 1).Value = 100
End Function

2.5 自定义函数问题4：自定义函数不能改变EXCEL的单元格里的值？

• 自定义函数，在EXCEL运行也可以改变excel里的单元格的值啊？可以吗？--不行
• 怀疑是因为cells()的语法，是在VBA内合法，在EXCEL内并没有cells()这样的写法导致？

Function mysum3()
mysum3 = Cells(1, 1).Value + Cells(1, 2).Value
'Cells(10, 1).Value = 100    '这句如果不注释掉，带上就返回错误，真TMD
Rem "function可以改变EXCEL的单元值？--现在测试还是不能啊！！！"

End Function

三  过程是可以的？

3.1 function不能的，过程可以做哪些？

• 过程可以改变EXCEL的单元格的值？--可以
• 而且是需要点击运行的

3.2   function的可以的，sub哪些不可以？

• 过程不能有返回值，
• sub不能在excel里当自定义函数只有使用，只能 点击运行等

四  原因呢？

但空的可以增加，删除？增删改不能改？ 但也能函数处理

这个是为啥？

EXCEL 数据  和VBA代码 隔开安全？

五 例外呢

看不懂的牛逼帖子

[推荐]谁说自定义函数不能修改其它单元格的值-Excel VBA程序开发-ExcelHome技术论坛 -

参考的文档 和继续学习

VBA不能修改已写内容,可以写入单元格_百度知道

自定义函数中如何改变单元格的值？-Excel VBA程序开发-ExcelHome技术论坛 -

这2个需要学习

他山之石——VBA自定义函数_预见未来to50的博客-CSDN博客

[推荐]谁说自定义函数不能修改其它单元格的值-Excel VBA程序开发-ExcelHome技术论坛 -