查看: 2012|回复: 12
求助替代EVALUATE突破字符限制的VBA函数，麻烦高手了！（附图）
阅读权限20
在线时间 小时
本帖最后由 huangdijin 于
23:17 编辑
111.jpg (7.74 KB, 下载次数: 1)
20:42 上传
希望能计算图中的公式，而且不能有255字符限制，麻烦高手了！
(20.4 KB, 下载次数: 21)
23:16 上传
点击文件名下载附件
阅读权限20
在线时间 小时
要是没有中文版注释的话希望也别影响计算
阅读权限100
在线时间 小时
Sub Test()
& & x = &(1[个]+1[个]-1[个])*8[个]/2[个]+sqrt(8)&
& & Set RegEx = CreateObject(&VBScript.RegExp&)
& & With RegEx
& && &&&.Global = True
& && &&&.Pattern = &\[[^\]]*\]&
& && &&&x = .Replace(x, &&)
& & End With
& & MsgBox Application.Evaluate(x)
End Sub
阅读权限95
在线时间 小时
本帖最后由 qy1219no2 于
21:28 编辑
最好上传附件，仅此一例，看不出你计算式的规律来。因为计算机认识的计算式，和日常手工输入计算式是不一样的，比如
1、括号的问题。计算机只认识()，而不认识（）,[],{}
2、计算符号的问题。计算机只认识+、-、*、/、^等，不认识全角符号
3、数字所带单位，是否全部是一样的，比如你举例中的[个]
4、将所带单位去掉，是否能确保字符少于255个
阅读权限20
在线时间 小时
qy1219no2 发表于
最好上传附件，仅此一例，看不出你计算式的规律来。因为计算机认识的计算式，和日常手工输入计算式是不一样 ...
你好附件已经上传了
阅读权限20
在线时间 小时
jsxjd 发表于
请问这个函数的命令是=test（A1）吗？
阅读权限100
在线时间 小时
huangdijin 发表于
请问这个函数的命令是=test（A1）吗？
改一下：Function Test(R as range ) string
& & x = r.value
& & Set RegEx = CreateObject(&VBScript.RegExp&)
& & With RegEx
& && &&&.Global = True
& && &&&.Pattern = &\[[^\]]*\]&
& && &&&x = .Replace(x, &&)
& & End With
& & MsgBox Application.Evaluate(x)
End function复制代码
阅读权限95
在线时间 小时
jsxjd 发表于
一样无法计算超过255字符数的计算式
阅读权限100
在线时间 小时
qy1219no2 发表于
一样无法计算超过255字符数的计算式
经过替换已经缩减了。
阅读权限95
在线时间 小时
本帖最后由 qy1219no2 于
14:01 编辑
自定义公式实在不好弄，针对你的表，给你写了一段代码，只要在计算列F列输入计算式，就会自动在G列得出结果，支持即时更新。没有字符串长度限制。Private Sub Worksheet_Change(ByVal Target As Range)
& & With Target
& && &&&If .Count & 1 Or .Row & 2 Or .Column && 6 Or (.Row Mod 2) = 0 Then Exit Sub
& && &&&.Offset(, 1) = &&
& && &&&If .Text = && Then Exit Sub
& && &&&With .Offset(, 1)
& && && && &.Value = Target.Text
& && && && &.Replace &[*]&, &&
& && && && &.Formula = &=& & .Text
& && && && &.Value = .Value
& && &&&End With
& & End With
End Sub复制代码
14:01 上传
点击文件名下载附件
26.01 KB, 下载次数: 64
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 3550|回复: 9
在工作表中查找指定字符串，高手请进
阅读权限10
在线时间 小时
用函数在工作表的复杂单元格中查找指定的字符串的一部分，能够查到的，结果显示为“Yes”，查不到的结果显示为“No”。
详细要求请参考附件。
18:17 上传
点击文件名下载附件
203.28 KB, 下载次数: 54
阅读权限95
在线时间 小时
用函数在工作表的复杂单元格中查找指定的字符串的一部分，能够查到的，结果显示为“Yes”，查不到的结果显示为“No”。
請查看附件中公式設定,公式下拉進行填充即可.公式為數組公式!
18:27 上传
点击文件名下载附件
202.42 KB, 下载次数: 57
阅读权限95
在线时间 小时
回复 1楼 jry0 的帖子
e12=COUNTIF(H:H,&*&&B12&&*&)
阅读权限10
在线时间 小时
回复 2楼 xiongkehua2008 的帖子
二楼的回复可真快啊。
按照二楼的公式，我试着修改了一下“表一”中的字符串，将原来的C:\Test/TionData.bin变更为C:\Test/other/TionData.bin，显示结果就变成&No&了。
能否帮忙再考虑一下路径的长度为可变的情况？谢谢。
阅读权限10
在线时间 小时
回复 3楼 lzzgzby 的帖子
谢谢回复。
有一点文档中写的不是很明显。即，只要文件相同即可判断为相同，不一定要整个路径相同。
请再帮忙考虑一下。拜托。
阅读权限20
在线时间 小时
练习一个，LZ看看是否适用。
E12=IF(ISERROR(FIND(MID(SUBSTITUTE(B12,&/&,&\&),FIND(&\&,SUBSTITUTE(B12,&/&,&\&),4)+1,99),$H$16:$H$20)),&NO&,&Yes&)&&数组公式
[ 本帖最后由 CSWDF 于
22:29 编辑 ]
阅读权限10
在线时间 小时
回复 6楼 CSWDF 的帖子
按照你的公式，&表一&中的第二行的结果显示为&No&，应该显示为&Yes&的。
阅读权限20
在线时间 小时
改成这样吧，前面我的错。
=IF(MAX(--ISNUMBER(FIND(MID(SUBSTITUTE(B12,&/&,&\&),FIND(&\&,SUBSTITUTE(B12,&/&,&\&),4)+1,99),$H$16:$H$20))),&Yes&,&NO&)&&数组公式
阅读权限10
在线时间 小时
回复 8楼 CSWDF 的帖子
嗯，对于原来表格中的例子是没有问题了。但是好像还是不能解决四楼中提到的问题。
阅读权限20
在线时间 小时
& & & & & & & &
=IF(COUNTIF($H$16:$H$20,&*&&RIGHT(B12,LEN(B12)-LARGE(IF(MID(SUBSTITUTE(B12,&/&,&\&),ROW($1:$100),1)=&\&,ROW($1:$100)),1))&&*&),&yes&,&no&)
01:36 上传
点击文件名下载附件
202.31 KB, 下载次数: 20
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师关于数据替换，请高手帮忙，十分感谢！急！_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：119,626贴子：
关于数据替换，请高手帮忙，十分感谢！急！收藏
我有一个数据表sheet1，里面的一系列字母都用数字表示，现在我有另一个sheet2，里面有一部分的字母，现在我想把这些字母转换成sheet1中相应字母所对应的数字，请问该怎样处理？
没太看明白。是用VLOOKUP吗？能说详细些吗？
品名 规格 单位 数量
苹果 大 个 50
桔子 大 个 40
香蕉 大 个 60
苹果 小 个 70
桃子 大 个 80
桃子 小 个 20
品名 规格 单位 数量
香蕉 大 个 30
桃子 大 个 20
桔子 大 个 60
品名 规格 单位 数量
苹果 小 个 50
桃子 大 个 50
桔子 大 个 50
目的：求数量表1加上表2减掉表3。它们的顺序不一样
在表1的E1：G1分别输入购入、销售、库存
E2输入公式=IF(ISNA(MATCH(A2&B2,Sheet2!$A$1:$A$10&Sheet2!$B$1:$B$10,)),,INDEX(Sheet2!D:D,MATCH(A2&B2,Sheet2!$A$1:$A$10&Sheet2!$B$1:$B$10,)))，数组公式，下拉。
F2输入公式=IF(ISNA(MATCH(A2&B2,Sheet3!$A$1:$A$10&Sheet3!$B$1:$B$10,)),,INDEX(Sheet3!D:D,MATCH(A2&B2,Sheet3!$A$1:$A$10&Sheet3!$B$1:$B$10,)))，数组公式，下拉。
G2输入公式=D2+E2-F2，下拉。
我看不太明白，其实我的要求就是sheet1中苹果、桃子、桔子分别是用代码1、2、3表示，而sheet2中只有代码1、2等数字，没有名称，我想将1、2转换成苹果、桃子，请问该怎样处理？谢谢回复！
如果sheet1中苹果等在B列，对应的代码在A列，把下面的公式复制到sheet2的B1
&=VLOOKUP(A1,Sheet1!A$1:B$10,2,)
如果sheet1中苹果等在A列，对应的代码在B列，把下面的公式复制到sheet2的B1
&=VLOOKUP(A1,IF({1,0},Sheet1!B$1:B$10,Sheet1!A$1:A$10),2,)
第2种情况也可以用这个公式
&=INDEX(Sheet1!A:A,MATCH(A1,Sheet1!B:B,),)
非常感谢，我已经验证过了，很开心！
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或您好，欢迎来到！
[132400]EXCEL高手，把表格中的数据分拆，并转换字符型
XX天XX时XX分XX秒
赏金分配：单人中标，一人独享赏金。
雇主选一人中标，一人独享中标金！
该项目已圆满结束，悬赏金的80%已付与中标者。
由淘宝导出的表格，数据是字符型，且还有前缀，不利于在快递公司页面上查询。
导出后显示No***
1.把NO：去掉，此时，数字成为了数值型
2.把余下的数字部分转换为字符型，
3.转换好的快递单号，复制到快递公司页面，即可查询，
请编写一条批处理程序或命令，完成我提出的要求！
具体的稿件在附件
附件：/Task//6047.xls
页面加载中...
评论加载中...
所在地区：广东-顺德
信用等级：
交稿数量222
分享可赚钱，赶快告诉您的朋友吧请问下谁知道如何计算excel文档中整片文档的字符数混高手都看看吧，益_百度知道
请问下谁知道如何计算excel文档中整片文档的字符数混高手都看看吧，益
提问者采纳
世界固然只有一个，你看它不见…… 谁此时没有房子，鸟儿在你嘴上啜饮，但世上却永远都有两个黎明，就不必建造，我醒来时我只想暖和暖和我的身子
其他类似问题
=sum(len(你要统计的区域))如：=sum(len(a1：d5))，最好公式不要在该区域内
为您推荐：
excel的相关知识
其他1条回答
只能将EXCEL复制到WORD中才可以计算
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁