主题：替换字符

求单元格最后一个字符，无论有无标点符号，在单元格结束后都用“。”替代。

 DataColChanging事件

 

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

此主题相关图片如下：微信截图_20170620112952.png

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

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

 

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