借星光老师的文章代码，求一个数据录入系统的VBA代码

leaveLK

YZC51 发表于 2020-1-18 14:58
优化下
Private Sub ListBox1_Change()
    Dim i As Long, strMy As String

谢谢，就是要优化后的代码这种效果。（不过18楼还有点问题，只能对D列第一种项目筛选不重复值，第二种项目还是有重复。这个无关紧要了）这是新思路，我要好好理解下了。

leaveLK

YZC51 发表于 2020-1-18 15:08
工作表事 件
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then  ...

这个工作表事件代码我怎么看不懂呢，如果把原来的Private Sub Worksheet_SelectionChange(ByVal Target As Range)删除后，这段放到文件里面没有任何代码执行。如果不删除也能并存，麻烦解释下，或者你把测试好的附件发上来学一下。

YZC51

第二项不应该有重复！？

YZC51

leaveLK 发表于 2020-1-18 16:23
这个工作表事件代码我怎么看不懂呢，如果把原来的Private Sub Worksheet_SelectionChange(ByVal Target A ...

你把 A1到 I13 之间的数据清空，试试，就看到效果啦

YZC51

leaveLK 发表于 2020-1-18 16:18
谢谢，就是要优化后的代码这种效果。（不过18楼还有点问题，只能对D列第一种项目筛选不重复值，第二种项 ...

您好！花花鼓励，上传附件！

leaveLK

YZC51 发表于 2020-1-18 16:34
第二项不应该有重复！？

确定，无重复。

leaveLK

YZC51 发表于 2020-1-18 16:43
您好！花花鼓励，上传附件！

按照你的意思把ABC列的数据都清了，但不是你说的从A1到I13，你叫我把表头都清空了。
你这段代码完全出乎我的意料啊，我猜你的意思是在D列直接勾选项目，自动在对应的A、B、C、E列填上数据。我的附件编号是1000001开始的，这是我为了求助，随便取的一个号码。不知道从哪里修改成我的自定义编号。例如我的一本收据真实编号是从0004451~0004500，7000001~700050这种样式。

只能说膜拜大哥你太狠了。那斗胆请大哥把我主题帖里面最后一个附件里的C列问题也解决了。
主要是调节数值按钮弄上，日期自动生成了，价格微调按钮，可以鼠标点击增减1天，但是最大日期不超过系统日期。鲜花都给你哈拜托

YZC51

请参考
单元格内多行录入20200118.zip (41.53 KB, 下载次数: 20)

2020-1-18 18:01 上传

点击文件名下载附件

YZC51

关于价格微调按钮。应该以实际为准吧！？

leaveLK

YZC51 发表于 2020-1-18 18:05
关于价格微调按钮。应该以实际为准吧！？

不好意思，是我心急了没有检查，把字打错了，不是价格微调。
“主要是调节数值按钮弄上，用你的代码把日期自动生成了，但是有时候代码自动生成的日期不一定是我想要的（日期不一定连续，有可能某天或某几天没有报销单）希望加一个微调按钮，可以鼠标点击增/减1天，但是最大日期不超过系统日期。详见B18、B20注释。
我不知道该用“数值调节钮（表单控件）”还是用“数值调节钮（ActiveX控件）”。