使用VBA按日期生成流水号

1578278106

燕雀安知 发表于 2015-1-4 11:20
“第一个问题：试了，没问题，只要a1有字段名”

你能保证使用者一定先单击的增加日期命令，后才单击 ...

只是按正常人的习惯操作而已。
还是先改改你的代码吧，没看见截了你的图？

燕雀安知

1578278106 发表于 2015-1-4 11:31
只是按正常人的习惯操作而已。
还是先改改你的代码吧，没看见截了你的图？

“还是先改改你的代码吧，没看见截了你的图？”

没看见我10楼的回复？

你就是所谓的“变态”的一个，^_^。

另：不再跟帖，原本楼主此帖没什么大意义，我是想不出实际工作中用如此点按钮的方法来增加数据的。

1578278106

燕雀安知 发表于 2015-1-4 11:35
“还是先改改你的代码吧，没看见截了你的图？”

没看见我10楼的回复？

你有病吧？你tmd才变态，你一家都变态！
连楼主提出的基本要求都没达到，就出来乱吠，自以为是有多厉害，见过自大的，没见过你tmd这么自大的。

zk2359128

1578278106 发表于 2015-1-4 11:49
你有病吧？你tmd才变态，你一家都变态！
连楼主提出的基本要求都没达到，就出来乱吠，自以为是有多厉害， ...

大侠，不要生气，您的代码写的挺好的，基本能满足要求。有一点还要向您请教，使用后发现新增日期后再新增箱号，箱号的流水号都是001，而如果不新增日期，直接新增箱号，那么箱号的流水号可以改变为002、003...。个人感觉：zhi = Val(Right(rng.Offset(-1, 1).Value, 3))，这句代码需要调整下，Offset(-1, 1)对应的单元格很可能是空值。帮忙看看能不更改下。