[算表] 存盘前检核是否符合条件才给存盘

楼主: ck3300511 (迪恩)   2019-07-31 20:40:23
软件:Excel
https://imgur.com/Zj9kLi6
如上图,我想要使用者在填表后、存盘前利用VBA检核是否符合规定位数
E栏11码、I栏3码、J和K栏2码、L栏5码
(已有设定资料验证,但使用者都用复制贴上把格式盖掉)
我的想法是在P~T栏用函数Len算出EIJKL栏的位数,然后使用者贴档后
计算每栏的平均值,只要不等于规定的位数,按储存或另存新档,
就会跳出视窗告诉使用者格式错了
但是附件的程式好像不会跑,似乎也不能按F8逐笔执行看看问题在哪
有请高人指点是哪个地方要修正....感谢
作者: soyoso (我是耀宗)   2019-07-31 21:09:00
设个程序sub..end sub,将beforesave内的宏,复制到该程序内,再f8逐笔执行看看
楼主: ck3300511 (迪恩)   2019-07-31 22:56:00
s大您看我的程式有问题吗?
作者: soyoso (我是耀宗)   2019-07-31 23:11:00
提供档案看看
楼主: ck3300511 (迪恩)   2019-07-31 23:53:00
好~我明天提供给您

Links booklink

Contact Us: admin [ a t ] ucptt.com