顾客回访记录（含录入、查询及再录入）

agebun · 发表于 2018-12-20 20:22

20181220再次做个小更新，原来 Private Sub Worksheet_Activate() 做个的更新发现还是有问题，如果在录单后不手动转到sheet“配镜记录”，代码将不会激活，想了很久应该怎么去做，本来还想发帖问的，但是想想还是自己来解决，现在想了一个不是办法的办法，在录入的代码最后加了两行

End With
Sheets("配镜记录").Select
Sheets("录入查询").Select
MsgBox "录入成功", , "提示"
End Sub

复制代码

自动转到sheet“配镜记录”然后再转回 sheet“录入查询”，这样就可以瞬间激活代码，又不会影响录入的速度。（至少在目前的数据量情况下是不会影响，如果数量太大了估计就不行了，所以这个办法也只是作为临时方法，期待有人能给出一个完美的代码）

agebun · 发表于 2018-12-20 21:14

20181220最新的附件请到最后一个回复下载

agebun · 发表于 2019-6-13 12:24

2019年6月13日做个小更新
在查询当天有哪些需要回访记录这里做了个小变动，如果对应的回访记录已经有内容了，将不会显示出来，避免多次重复写入，下一步的更新希望能做到检查今天之前有哪些回访未做的记录

agebun · 发表于 2019-6-13 12:26

20190613查询当天有哪些需要回访的记录，如果对应的已经有记录了就不会显示出来了，避免重复记录

agebun · 发表于 2019-6-16 13:34

2019.6.16这次更新下上次说的功能：检查当前日期之前未回访的记录，这次更新暴露了自己基础不足的问题，在代码修改后用DIM声明将当前日期声明成文本了，而不是声明日期所以怎么修改都没用囧

yangweisc · 发表于 2020-4-1 14:45

很不错正需要。如果弄成数据库的就更好了

yangweisc · 发表于 2020-4-2 11:02

本帖最后由 yangweisc 于 2020-4-2 11:18 编辑

QQ截图20200402105843.jpg

比如姓汤的这位客人我会做一个这个客人的档案表。可以在查询结果如截图：汤这里自动超链接点击直接打开相应的表格吗？

链接的表格如：汤.xls 杨.xls 李.xls 等。我会按同一种命名方式去命名

agebun · 发表于 2020-5-4 11:05

yangweisc 发表于 2020-4-2 11:02
比如姓汤的这位客人我会做一个这个客人的档案表。可以在查询结果如截图：汤这里自动超链接点击直接打 ...

你说的这个是一个比较系统性的CRM了，我目前是没有能力做这么大的工程，而且个人觉得最好还是用数据库的形式做比较好，用Acess也好在VBA工具查询展现也可以，目前数据量比较小用excel处理还好，多了就不行咯

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

[分享] 顾客回访记录（含录入、查询及再录入）

评分

最新热点 /1