关于自定义函数的使用理解及函数集锦

baiqvcel

学习了，经典中的经典，非常实用。谢谢楼主分享。

jok22

楼主你好，需要帮助，就是把VBA生成二维码做成自定义函数，从本论坛中找到了生成二维码的源代码，但自己水平有限，就是无法改成自定义函数，原贴http://club.excelhome.net/thread-1044486-1-1.html?jdfwkey=qo1jz      ，http://club.excelhome.net/thread-1043020-1-1.html ，不知能否实现，因为比较需要，论坛中有类似的，要不生成有问题，要不使用不方便。拜谢楼主帮助！

opiona

自定义函数  输出值是什么！？
没有输出值，都是过程！

yf_home

来一个，非原创！！！

1. '本函数是一个find方法的增强函数，结合FindNext和FindPrevious方法，可以返回一组符合条件的单元格的集合；
   
2. '本函数返回一个Collection对象，里面储存了找到的单元格；
   
3. '本函数有两个必选参数：
   
4. '   1.SearchRange 用来存放需要查找的区域；
   
5. '   2.FindWhat用来存放需要查找的值;
   
6. '其余参数都是可选参数，与Find方法参数相同；
   
7. '无论是否查找到单元格，都会返回一个collection对象；
   
8. '我们用Collection.Count=0，来判断，没有找到匹配的单元格；
   
9. Option Explicit
   
10. 
    
11. Function FindPlus(SearchRange As Range, FindWhat As Variant, _
    
12.                   Optional After As Range, _
    
13.                   Optional LookIn As Variant = xlFormulas, _
    
14.                   Optional LookAt As Variant = xlPart, _
    
15.                   Optional SearchOrder As Variant = xlByRows, _
    
16.                   Optional SearchDirection As Variant = xlNext, _
    
17.                   Optional MatchCase As Variant = False, _
    
18.                   Optional MatchByte As Variant = True, _
    
19.                   Optional SearchFormat As Variant = False) As Collection
    
20. 
    
21. Dim FoundCell As Range '存放找到的单元格区域；
    
22. Dim AfterCell As Range '存放查找的起始单元格；
    
23. Dim FoundCol As Collection '存放找到单元格区域的集合；
    
24. Dim firstAddress As String '存放第一次找到的单元格的地址
    
25. 
    
26. Set FoundCol = New Collection 'Collecion类实例化为对象
    
27. 
    
28. '下面这个判断语句完成对After参数值的控制
    
29. If After Is Nothing Then
    
30. Else
    
31.   Set AfterCell = After '如果after参数不为空，这用提供的after参数值
    
32. End If
    
33. 
    
34. '查找第一个符合条件的值
    
35. Set FoundCell = SearchRange.Find(what:=FindWhat, After:=AfterCell, _
    
36.                               LookIn:=LookIn, _
    
37.                               LookAt:=LookAt, _
    
38.                               SearchOrder:=SearchOrder, _
    
39.                               SearchDirection:=SearchDirection, _
    
40.                               MatchCase:=MatchCase, _
    
41.                               MatchByte:=MatchByte, _
    
42.                               SearchFormat:=SearchFormat)
    
43. 
    
44. 
    
45. If Not FoundCell Is Nothing Then
    
46.     firstAddress = FoundCell.Address '如果找到第一个值，然后把单元格地址赋值给FirstAddress变量
    
47.    
    
48.     '下面的循环是在区域里不断查找需要的值，并不断添加到FoundCol集合
    
49.     Do
    
50.       FoundCol.Add FoundCell '把找到的单元格赋值给FoundCol对象
    
51.       
    
52.       '根据SearchDirection参数，判断是向上搜索，还是向下搜索
    
53.       If SearchDirection = xlNext Then
    
54.         Set FoundCell = SearchRange.FindNext(After:=FoundCell)
    
55.       Else
    
56.         Set FoundCell = SearchRange.FindPrevious(After:=FoundCell)
    
57.       End If
    
58.     Loop Until (FoundCell Is Nothing) Or (FoundCell.Address = firstAddress) '经典用法，只要找到单元格和第一个找到的单元格地址不一样，就一直循环
    
59. End If
    
60. Set FindPlus = FoundCol '把集合对象赋值给函数名
    
61. End Function

复制代码

zhougencai

yf_home 发表于 2018-7-23 08:50
来一个，非原创！！！

谢谢楼主分享!!!

清风水月

收藏了，慢慢看

本人五笔输入

这牛逼啊。点赞点赞。

本人五笔输入

opiona 发表于 2016-5-24 12:58
实例文件：

内附函数：查找指定文件夹含子文件夹内所有文件名或文件夹名（含路径）

厉害厉害。点赞点赞。

kuangben8

感谢分享！我也要好好总结一下

挖矿的HR

老师好，我工作中需要对工作簿中每张工作表的不同区域进行不同的字体字号加粗边框的设置，同一段字体字号加粗边框设置的代码需要重复很多次（最终200多行），可否通过自定义函数或是有其他办法优化？