VBA如何改写自宝义函数 有三个参数 第三个为可选参数

laoau138

VBA如何改写自宝义函数     有三个参数   第三个为可选参数

alexloco

1. private sub Example(byval value1 as string,byval value2 as string ,Opitional value as integer = 25)
   
2. 
   
3. 
   
4. end sub

复制代码

laoau138

alexloco 发表于 2016-12-11 12:48

写清楚一点，写完整一点，不知道你在写什么

alexloco

laoau138 发表于 2016-12-11 15:03
写清楚一点，写完整一点，不知道你在写什么

你问的是怎样才能让第三个参数是可选参数，我只写了一个函数的外壳，而这个外壳就是三个参数，第三个参数是可选参数，明白了没有？
其他的，你自己照着写就可以了。

laoau138

alexloco 发表于 2016-12-11 15:07
你问的是怎样才能让第三个参数是可选参数，我只写了一个函数的外壳，而这个外壳就是三个参数，第三个参数 ...

不明白，请写完整代码

一沫昔阳虹w

1. Function SumIFColor(条件区 As Range, 颜色单元格1 As Range, 颜色单元格2 As Range, Optional 统计区)
   
2.   Dim arr(), Item, i As Long    '声明变量
   
3.   If IsMissing(统计区) Then  '如果第三参数被忽略
   
4.     '则将“条件区”当作“统计区”,并将它赋值给数组变量arr(使用数组可对代码提速）
   
5.     arr = Intersect(条件区, 条件区.Parent.UsedRange).Value
   
6.   Else             '否则
   
7.     '将“统计区”参数重置为“条件区”的相同高度和宽度，然后赋值给数组变量arr
   
8.     arr = 统计区(1).Resize(条件区.Rows.Count, 条件区.Columns.Count).Value
   
9.   End If
   
10.   For Each Item In arr  '遍历数组arr
    
11.     i = i + 1     '累加计数器
    
12.     '如果条件区中某个单元格背景色与颜色单元格区域(参照区)颜色一致
    
13.     If 条件区.Cells(i).Interior.Color = 颜色单元格1(1).Interior.Color Or 颜色单元格2(1).Interior.Color Then
    
14.       SumIFColor = SumIFColor + Item '将数组中对应的数值累加到SumIFColor中
    
15.     End If
    
16.   Next
    
17. End Function

复制代码

laoau138

一沫昔阳虹w 发表于 2016-12-12 09:41

VBA实现模糊查找并罗列出来  改写代码不要用find

http://www.excelpx.com/thread-426340-1-1.html