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