如果在textbook中输入小数，按ctrl结束，则弹出提示窗口，用VB编码怎么写？

Posted 2023-05-15

如果在textbook中输入小数，按ctrl结束，则弹出提示窗口，用VB编码怎么写？

参考技术A 第一个问题：if instr(textbox1.text,".")=1 then msgbox("小数点前没有数字！") '看看小数点是不是在第一位
第二个问题：
dim a() as string=split(textbox1.text,".") '把小数点两边的内容放进数组a里
if replace(a(0),"0","")="" then textbox1.text=0 & "." & a(1) '把小数点前的0全部替换成空的，如果最后结果为空，那么肯定全是0，那么就减为一个0

如何在EXCEL进行特殊符号的替换

EXCEL数据表中有大量的特殊符号需要替换:比如将符号"Д"(excel内含有的特殊符号)替换成一个自制特殊符号.如果一个一个替换,工作量超大,烦请各位高手支招啦!!

将要被替换的特殊符号选黑，按Ctrl+C复制，按Ctrl+H,再按Ctrl+V，再按Tab,输入要替换成的特殊符号，如果不能输入，就再按一次Ctrl+V，回车，然后将要替换成的特殊符号选黑，按Ctrl+C复制，按Ctrl+H,将光标落在“替换为：”处，按Ctrl+V，回车，搞定。 参考技术A ctrl+h