find查找匹配不到IfError函数代码运行无效

zhangweilinsh

各位老师好：

        WorksheetFunction.IfError(Mid(Cells(s, 2), 1, Application.WorksheetFunction.Find("(", Cells(s, 2)) - 1), Cells(s, 2))
        以上代码用find查找"("符号，由于人为输入符号时输入法状态有时处于“全角状态”有时处于“半角状态”，由于输入不同而无法定位包括字符串中没有（符号的单元格，故运用IfError函数来规避这一问题，目前出现运行时错误5  无效的过程或调用参数，不知如何操作麻烦各位老师大神们帮我看看能否有更好的方法，先谢谢各位老师

taller

zhangweilinsh

taller 发表于 2024-2-4 02:23

谢谢老师的帮助，万分感谢

准提部林

t = application.asc("原文本字串")  '全角轉半角
x = instr(t & "(", "(") '----文本最后加"("當墊底, 保證找得到
t = left(t, x-1) '----"("符號左方文本, 若沒有"(", 則取全部

准提部林

t$ = Application.Asc(Cells(s, 2))
x% = InStr(t & "(", "(")
Cells(s, 3) = Left(t, x - 1)

准提部林

t$ = Application.Asc(Cells(s, 2))
Cells(s, 3) = Split(t & "(", "(")(0)