以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  替换字符  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102455)

--  作者:表叔
--  发布时间:2017/6/20 11:14:00
--  替换字符
求单元格最后一个字符,无论有无标点符号,在单元格结束后都用“。”替代。
--  作者:有点色
--  发布时间:2017/6/20 11:18:00
--  

 DataColChanging事件

 

If e.DataCol.name = "第二列" AndAlso e.newvalue > "" Then
    e.newvalue = e.newvalue.Trim(chr(-24157)) & chr(-24157)
End If


--  作者:表叔
--  发布时间:2017/6/20 11:32:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20170620112952.png
图片点击可在新窗口打开查看

最后没有输入标点符号时,会自动添加“。”,如果有了别的符号,代码替换不了只能在后面追加。


--  作者:有点色
--  发布时间:2017/6/20 11:36:00
--  

红色代码,改成对应标点符号

 

If e.DataCol.name = "第二列" AndAlso e.newvalue > "" Then
    e.newvalue = e.newvalue.Trim(chr(-24157), ",", "!", ".") & chr(-24157)
End If

 

如果需要输入中文的符号,需要这样写 http://www.foxtable.com/webhelp/scr/1273.htm