Office中国论坛/Access中国论坛

标题: 查找并显示字符 [打印本页]

---

作者: wjcpa    时间: 2017-8-26 16:44
标题: 查找并显示字符
请教：
如附件中，求查找并显示字符的函数

---

作者: Henry D. Sy    时间: 2017-8-28 11:00

1. Function Contxt(ParamArray args() As Variant) As Variant
   
2.     Dim tmptext As Variant, i As Variant, cellv As Variant
   
3.     Dim cell As Range
   
4.     tmptext = ""
   
5.     For i = 0 To UBound(args)
   
6.         If Not IsMissing(args(i)) Then
   
7.             Select Case TypeName(args(i))
   
8.             Case "Range"
   
9.                 For Each cell In args(i)
   
10.                     tmptext = tmptext & cell
    
11.                 Next cell
    
12.             Case "Variant()"
    
13.                 For Each cellv In args(i)
    
14.                     tmptext = tmptext & cellv
    
15.                 Next cellv
    
16.             Case Else
    
17.                 tmptext = tmptext & args(i)
    
18.             End Select
    
19.         End If
    
20.     Next i
    
21.     Contxt = tmptext
    
22. End Function
    

复制代码

B10=

1. =MID(contxt(IF(ISERROR(FIND(A10,$B$1:$B$5)),"",","&$B$1:$B$5)),2,99)

复制代码

三键结束,下拉

---

作者: Henry D. Sy    时间: 2017-8-28 11:01
[attach]61914[/attach]

---

作者: wjcpa    时间: 2017-8-28 14:17
谢谢大侠

---

作者: wjcpa    时间: 2017-8-28 16:49
请教一下，刚才的公式为何copy后，用数组公式输入后就出现#NAME?的符号

---

作者: Henry D. Sy    时间: 2017-8-28 18:38

wjcpa 发表于 2017-8-28 16:49
请教一下，刚才的公式为何copy后，用数组公式输入后就出现#NAME?的符号

Contxt是自定义函数,要把代码保存在模块中
保存为启用宏的文件xlsm
然后再引用Contxt

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3