EXCLE如何利用函数或者VBA将计算式中的汉字

lbl520240

mzbao 发表于 2019-10-18 08:56
前段时间刚好写了一个自定义函数，分享给你。

可以了，非常棒。

kevinchengcw

应该是正则的pattern你没输对，试下这个
\([^()]*[\u4e00-\u9fa5][^()]*\)

ggmmlol

mzbao 发表于 2019-10-18 08:56
前段时间刚好写了一个自定义函数，分享给你。

我并不记得自己拥有"mzbao"的马甲id啊？!
你可以说“转载”，也可以说“抄”，或者“改”，那最起码包含了对原作者的尊重。怎么你就偏偏好意思在本论坛里就堂而皇之地自称“前段时间刚好写了”一个自定义函数呢？!

zopey

现在学术论文有查重率，分享vba代码值得借鉴。

ggmmlol

“带注释字符的计算式求值”，是工程量计算中最常见的场景。
我的正则表达式小工具——【超级查找替换】，有对于这种场合的专门解决方案：
把特定规则的注释字符删除掉，即替换为(空)，并添加一个前缀"="，使之简化为普通公式，且把目标格式设置为“常规”，以便公式自动计算。
通常，注释内容要么全是汉字，要么就用特定符号标记出来（比如成对的半角方括号或全角方括号），以便与计算式本身的字符做区分。

本例子的注释字符的判断规则比较特别，是：“包含了汉字的成对圆括号”。以正则表达式的理解方式，描述为以下5个部分：
左括号+任意多个非括号字符+至少一个汉字+任意多个非括号字符+右括号
对应的正则表达式为：
[\(（][^\(（）\)]*[一-龥][^\(（）\)]*[\)）]

演示如下：

╄秋メ凋零↙

尝试一下导入SQLSERVER,使用Management Shudio创建一个空数据库，导入Excel表。
新建查询窗口
创建一个函数：

create function fun_del_chinese
(@col varchar(1000))
returns varchar(1000)
AS
begin
    declare @returnchar varchar(1000),@len int
    select @returnchar='',@len=1

    while(@len<=len(@col))
    begin
        if(ASCII(substring(@col,@len,1))<122)
        set @returnchar=@returnchar+substring(@col,@len,1)
        set @len=@len+1
    end
return @returnchar
end
go
------------------------------------------------------------------------------------------
在执行update删除

update
    数据库表名称
set
    存放数据字段名=dbo.fun_del_chinese(存放数据字段名)
from
    数据库表名称
---------------------------------------------------------------------------
原文出处：
版权声明：本文为CSDN博主「little_fatty」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/li4562258fj155/article/details/51582778

ggmmlol

zopey 发表于 2019-10-19 09:20
现在学术论文有查重率，分享vba代码值得借鉴。

分享代码，我不仅不反对，而且支持；但是，“分享”、“转载”的行为与“冒名抄袭”是截然不同的两种行为。

前者的表现一般是明确标注出引用的来源（原作者和发表处），当不确定准确来源时，就标注“来自网络”或“作者非本人”，最低限度，就不作任何说明，由读者自行判断。
但"mzbao"此人把抄来的几乎整个成品，说成是自己“前段时间刚好写了……”，毫无疑问就是“冒称原著”了，这种行为，可不什么长脸面的事

mzbao

ggmmlol 发表于 2019-10-19 08:24
我并不记得自己拥有"mzbao"的马甲id啊？!
你可以说“转载”，也可以说“抄”，或者“改”，那最起码包含 ...

我是抄了核心的部分，但是我为了符合我自己的需求，也改了和完善了很多啊。并且我这又不是分享帖，我只是分享给楼主。怎么就不尊重原作者了呢，难道我还非得写过我抄了部分，再修改了部分？
这论坛回帖帮忙其他人的代码，有几个人的代码不是从论坛里抄一部分，自己再写一部分的。如果我专门开了分享帖，然后说我自己写的，你可以说我不尊重原作者，但是我并没有这么做啊。

mzbao

ggmmlol 发表于 2019-10-19 08:24
我并不记得自己拥有"mzbao"的马甲id啊？!
你可以说“转载”，也可以说“抄”，或者“改”，那最起码包含 ...

我知道我这个代码是抄你帖里的http://club.excelhome.net/thread-1439296-1-1.html，我自己Excel里代码前都注明了。
这代码我也是几个月前在你那复制的，但是为了符合自己的需求，我陆续也改了不少，我前段时间确实也才又改过一遍，看到楼主的需求，我改过后的代码也确实能完全满足他的需求，我也就分享给他了。

但是这次我本意也只是帮助楼主，如果对你造成了困扰，我表示抱歉。

。

lbl520240

mzbao 发表于 2019-10-19 15:28
我知道我这个代码是抄你帖里的http://club.excelhome.net/thread-1439296-1-1.html，我自己Excel里代码前 ...

谢谢你们啦，不过这个代码用起来的真的很不错，对比了很多，这个实用性的确很大。不过你们无畏的分享出来，不管是原作者，还是修改者都是值得尊敬的，可能有时候措辞用的不恰当而已，总之谢谢你们