[已解决]VBA_请大家修改下这个代码＿工作表事件

yjwdjfqb · 发表于 2011-8-16 18:59

当B3等于“身份证号码”时，激活事件（防止身份证号码格式输入错误）指定了身份证号码的输入区域为B5：B15
当D3等于“身份证号码”时，激活事件（防止身份证号码格式输入错误）指定了身份证号码的输入区域为D5：D15

请大家修改下，
当B3等于“身份证号码”时，首先用事件的方法设置B5：B15这个区域单元格格式为文本格式。
当D3等于“身份证号码”时，首先用事件的方法设置D5：D15这个区域单元格格式为文本格式。
本代码中设置单元格为文本格式代码好像没有起到作用，请老师们重新修改下。（在设置区域变量中，请老师们用单元格地址的表示方法设置变量如B5：B15）

具体请老师们见附件：

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-8-16 21:53

回复 yjwdjfqb 的帖子

VBA＿请大家修改下这个代码＿工作表事件-2.rar (15.13 KB, 下载次数: 18)

那么的帅 · 发表于 2011-8-16 19:24

回复 yjwdjfqb 的帖子

只考虑功能的完成，未考虑代码的优化。

yjwdjfqb · 发表于 2011-8-16 19:50

那么的帅发表于 2011-8-16 19:24
回复 yjwdjfqb 的帖子

只考虑功能的完成，未考虑代码的优化。

帅哥，那帮我修改后，优化下代码好吧，本人是菜鸟，只是根据对VBA功能的一些了解，但修改代码还没有学会哟，

麻烦帅哥，帮帮忙好吧。。

感谢啦！！！

那么的帅 · 发表于 2011-8-16 21:02

回复 yjwdjfqb 的帖子

VBA＿请大家修改下这个代码＿工作表事件-1.rar (11.47 KB, 下载次数: 2)

yjwdjfqb · 发表于 2011-8-16 21:47

回复那么的帅的帖子

帅哥，这个在功能使用上是完全达到了，但我发现一个问题

B3和D3这二个地方，当没有数据的时候，指定的身份证输入区域单元格格式是“常规”格式；

但B3和D3只要有数据是时，指定身份证输入区域单元格格式就变为“文本”格式，

并不是B3和D3等于”身份证号码“时才设置单元格格式为”文本“格式；

帅哥有时间再修改下好吧，期待帅哥的修改版。。。

那么的帅 · 发表于 2011-8-16 21:53

回复 yjwdjfqb 的帖子

VBA＿请大家修改下这个代码＿工作表事件-2.rar (15.13 KB, 下载次数: 18)

yjwdjfqb · 发表于 2011-8-16 22:21

回复那么的帅的帖子

帅哥，太感谢你了，发了三天的问题，总算解决了。

非常的感谢帅哥！！！

glhfgtd · 发表于 2011-8-16 23:46

跟帅哥学习了

		自动登录	找回密码
密码			注册