客户跟进表的原型是我于 2012 年原创分享的外贸业务跟进表格。关于业务类的表格文档,你可以在顶部下滑菜单的【文档】页面找到。
页面地址:https://www.liaosam.com/documents-download
上面页面分享的各类文件都是我自己一直用了很多年的业务表格,也受到了很多外贸人的好评。但是,由于我的客户跟进表使用了表间超链接以及单元格赋值公式,以及跟进详情表的单元格格式没有统一起来,总会陆续有外贸人向我反映各种问题。比如:
- 每个客户的资料填写记录好以后还要再创建一个跟进详情表,每个基本信息单元格里还要设置好公式,有点麻烦。
- 有时候某个单元格设置好格式后,显示的内容不太对。
所以我认为有必要改进一下客户跟进表。之前有料网的群友在原来的客户跟进表的基础上,做了一个可以自动添加客户信息的跟进表。可能没多少人注意,所以我做了一些调整,代码里添加了必要的注释,分享到这里供更多人使用。使用此表格要开启 EXCEL 的宏功能,不知道 excel xx版本怎么开启宏的请自行百度。
使用必备前提:修改 Excel 宏安全级别
- EXCEL2003设置方法:顶部菜单栏“工具”- “选项” 。此时弹出“选项”设置栏点击“安全性”选项卡,再点“宏安全性”。然后弹出“安全性”级别设置,将安全性级别选为“低”即可。
- EXCEL2007设置方法:顶部菜单栏“开发工具”- “宏安全性” 。宏设置选项卡中右边选择启用所有宏,开发人员宏设置勾选“信任”。
表格下载地址:https://pan.baidu.com/s/1sw-tMi2L6l3XQ5xLp2GXJQ 提取码: yc64
此表格我认为还可以改进一些,等这个月课程更新结束,我会好好改进一下此表。
使用办法
在汇总表中添加一条记录。写好后,注意操作步骤:点击一下该行的客户等级单元格,然后再点击上方的添加按钮。
注意:不要删除 Model 表(虽然它是张空表,但是它是给程序复制跟进详情表格式用的)
核心VBA 宏代码
Public Sub copysheet() ist = ActiveCell.Row '活动单元格所在的行数 Sheets("Model").Copy Before:=Sheets("Model") '把具体跟进详情格式表复制一份,接着准备写入数据 Sheets(ist - 1).Name = ist - 2 '表名称= 行数减2 即要创建的跟进详情表的表名称。 Sheets(ist - 1).Range("A1") = "=录入表!C" & ist '跟进详情表的表中A1单元格的值为录入总表中对应的单元格,如C4 Sheets(ist - 1).Range("B2") = "=录入表!A" & ist Sheets(ist - 1).Range("B3") = "=录入表!E" & ist Sheets(ist - 1).Range("F3") = "=录入表!H" & ist Sheets(ist - 1).Range("B4") = "=录入表!G" & ist Sheets(ist - 1).Range("F4") = "=录入表!I" & ist Sheets(ist - 1).Range("B5") = "=录入表!F" & ist Sheets(ist - 1).Range("F5") = "=录入表!K" & ist Sheets(ist - 1).Range("B6") = "=录入表!D" & ist Sheets(ist - 1).Range("F6") = "=录入表!J" & ist '依次完成所有单元格值的填充 Sheets(1).Select '选择汇总表 ActiveCell.Offset(0, 1).Select '从当前表格中本行往右偏移一个单元格 ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="'" & Worksheets(ist - 1).Name & "'" & "!A1" '添加超链接。下面的代码都是加样式,不用管。 ActiveCell.Font.Underline = xlUnderlineStyleNone ActiveCell.Font.Color = RGB(0, 0, 255) ActiveCell.Font.Size = 9 ActiveCell.HorizontalAlignment = xlCenter ActiveCell.VerticalAlignment = xlCenter ActiveCell.WrapText = False ActiveCell.Orientation = 0 ActiveCell.AddIndent = False ActiveCell.IndentLevel = 0 ActiveCell.ShrinkToFit = False ActiveCell.ReadingOrder = xlContext ActiveCell.MergeCells = False End Sub
本站所有文章除注明“转载”的文章之外,均为原创。未经本站允许,请勿随意转载或用作任何商业用途,否则依法追究侵权者法律责任的权利。
WPS不能用啊
为什么按照方法 详情页不自动录入呢
我发现只要不去动原有的两行信息,从第三个信息开始每次输入弯就点击等级再点击按钮,所有一切都没问题,但是只要修改原有信息就会出现问题了
我下载表格下来,按照评论很多小伙伴说的放大,删掉了原本已有的两行信息,自己重写输入,然后点击等级再按顶上按钮,分表里面电话号码跟信息敏感度就变成了“=录入表!I4″ 但是后面3之后的表格又没有出现这种问题。就是被重新输入信息的1,2会有这个问题,然后底下也会有model2,3,4,不过没生产一个新的表格就会消失掉一个model,生一个新的,底下一直保持有一个model,还有另外两个model,2,3,4轮着来出现的。请问我这样子操作是正确的吗?
但是我在汇总表格录入信息之后,会自动生成一个分表,很厉害啊,这样子的话,其实不就已经足够了吗?但是我不懂下面这一大串宏代码要怎么用?是不是我们用表格就可以了,这串代码自己是用不上的?然后我好像多了一个model(3)
在网盘下载了表格,然后也修改了EXCEL里面的宏安全性,然后我看着下面这一堆代码,完全不知道是要干嘛的?填哪里怎么用?看了很多人的评论还是一脸懵圈
在汇总表中添加一条记录。写好后,注意操作步骤:点击一下该行的客户等级单元格,然后再点击上方的添加按钮。
为什么我这里开始就一脸懵了。哪里有添加按钮呢?
表格下载地址:http://7xjsw4.com1.z0.glb.clouddn.com/auto-follow.xlsm 这个链接好像是进不去了?在网盘里下载下来的客户信息表是没有model那一页的,输入VB命令去制作宏的时候就会出现错误。
@Jessie 我搞好了…. 原来是要另外自己做个model页面。然后宏也要修改一点点细节。
现在可以批量的将客户信息转化成详情页面了,还可以在中间任意添加某一个客户信息。✌️
@Jessie 在网盘客户跟进表里做Model页面吗?我用的WPS
@littleyellow 我在原来的客户跟进表做的,只是增加了一个Model页面。我估计料神老师留下的链接后面更新了。所以看不到model表。需要自己做一个。
@Jessie 你好,下载之前的表格后,增加一个命名为:Model的空白工作表,然后写入宏代码,请问代码需要修改什么地方呢?还没有弄成功,麻烦了。我的QQ是1169444912,方便的话能加一下您QQ吗?
看了好几遍依旧看的一头雾水,我没有找到model名字的列表啊,我也没有找到等级“添加”的按钮啊
出问题其实很简单,我已经解决,就是下载了这个表格之后,一开始你要先点击一下B4也就是等级B,然后再点击上面的按钮,这样就创建了Bee Bee的表格2了,出问题就是因为跨过了序号2,model程序自动生成了model2,所有程序就会按model2执行,但是model2是个空架子,我们用的宏是用model的
总结:先点击B4表格的等级B,在点击上方的按钮就好了;后续要添加客户,就继续点击B5表格,再点击上方按钮,创建一个新的客户表“’3′!A1” ,也就是C3,这个名字可以改成你客户的名字,不懂再问。。。
@jack 请问,这个添加按钮在哪呢?
@jack 你好,始终不知道你说的“上方按钮”在哪?
以搞定,谢谢
Sheets(ist – 1).Name = ist – 2 提示下标越界 office2007
offices 2007 去不开启之后,还是显示禁用啊
今天没事到这里,打算看看Sam写的宏代码,希望能看出些门道,结果 还是一样,看 不 懂!
无意之中看到,有同学跟我留言说遇到了些问题。(其实我也不懂代码,也就一根筋的摸索)
说正事,如果表格里看到Model(2), Model(3)… 这样的sheet, 或者 “运行出现错误 9’,说明这个表格已经错了。在此基础上,你会在错误的道路上,越走越远。 刚开始用的时候,我也遇到过上述的问题,但是后来也不知道怎么就糊里糊涂地解决了。今天又重新下载一个跟进表,想找出问题到底出在哪里。 结果一口气写到序号10,依次生成的时候,下标显示Model(2), Model(3)…Model(6), 按照数字的排列,这个趋势有点像多米诺效应。然后就想,会不会是在某个节点出了错,然后后续的sheet依次出现问题。之后,又从头来过。 从序号3开始生成的时候,发现sheet表显示 “1,Model(2), 3”, 那么请问,序号2去了哪里? 或者 会不会就是 序号2出了问题,导致了后面的sheet都出现错误。于是,先点击序号2后面的等级“B”,生成一个sheet。之后再连续操作其他行生成sheet,简直就是 一路火花带闪电! 前面的铺垫有点长,好啦好啦,敲黑板划重点。 同学们出现的各种错误,都是因为没有将“Bee Bee”前面的等级“B”生成新的sheet,就是直接添加一个序号3。解决办法就是先把序号2这个行的等级“B”生成sheet(或者把刚下载就存在的两行信息删除掉,重新添加你的信息,再依次生成),之后就能轻松享受到Sam这个跟进表的强大了。 如果用起来感觉很6,记得给料大 打赏哦! P.S. 有一次,我把同一个公司的两个联系人放到两行,然后合并单元格,之后就出错了。看来,合并单元格也不能有哦!(如果有其他问题,问料大,我不懂代码!)
@小璞叔叔 完美解决我的问题,想给你点赞
@小璞叔叔 很厉害, 解决我的问题, 点赞, 请问您有没有好用的表格可以分享。
该评论为私密评论
感谢料神分享!
为什么宏启用后后还是显示禁用呢,还有VBA错误(40040)
@vicky 我也是, 我一直用的是wps, 请问这个是excel 吗?
该评论为私密评论
谢谢分享,但是WPS 的VBA在哪里下载安全?
https://pan.baidu.com/s/1pL0O8VD 密码:je58
网上找的,不保证一定能用。
@Liaosam 大神。链接失效了。
太牛逼了,正是我所需要的
添加客户之后, 有很多 model model(2) model(3),,,,,,等等, 不能删掉吗
@M 可以把“Model(2) Model(3)…”等表格删除掉,但“Model”这个表格保留。
同问,添加第四个客户时,也出现如下提示: 运行时错误”9“,下标越界. 这是怎么回事?
@小米加 请看下方评论!
@小璞叔叔 看上方评论!
谢谢料神,正是我需要的
excel的宏功能已打开,但提示无法运行“copysheet”宏,
为啥添加第四个客户的时候,显示运行时错误‘9’,下标越界.
@nico 我也遇到了这样的情况。
作为一个爱折腾的小白,查阅资料之后发现错误9’下标越界是引用超出范围了。
如果你仔细看一下sheet栏,之前的’Model’ 变成’Model(2)’
这时只需要把它改回’Model’,表格就满血复活了呀!
最近没见Sam更新, 据说是“干大事” 去了!
等的好捉急的说~
@小璞叔叔 这个方法还是有问题的,修改之后会发现很多的model(3),(4)而且排名靠前建立的客户的tab也可能没有了。
@小K 好像是的,你有解决的方法吗?
@素颜 看一下上面的补充,会不会对你有帮助。
@小K 可以把多余的“Model(2), Model(3)…”删除掉,只保留“Model”。
之前遇到表格信息错位的时候,我把最新添加的一行信息删除,之后重新添加。
问题就解决了。
不知道这样会不会帮到你。
关于代码什么的,我也不懂。都是凭着自己的想法,慢慢摸索的。
@小璞叔叔 按照你说的办法还是不行呀
@素颜 看上方评论!
@小璞叔叔 已经删掉了怎么办?
@JJ 这个,还是重新下载一个吧。
@小璞叔叔 我也碰到了一样的问题,后来在米课里问了sam大神,说是我把model那个空白表删掉了,哈哈,我也真是够笨的。我也是个爱折腾的小白。
@Haily 这个… 只服你!
@小璞叔叔 sheet栏,Model还在,但是还是显示下标越界,请问怎么解决?
@Andy 我也是一样的.. 请问Sam怎么解决这问题
@Roc 上方评论 不知道会不会帮到你!
@Andy 上方评论!
@小璞叔叔 该评论为私密评论
@宏 该评论为私密评论
WPS的要下载VBA模块才能用,谢谢料神分享,很好用的表格
@Rita 该评论为私密评论
@Rita 请问怎么下载, 我这边显示是要钱?
现在就实践一下,之前的客户跟踪表不知道怎么添加多客户上去
不错的 感谢分享
先学习起来,下班回去开始实践!
@小璞叔叔 你真是棒棒的
@小橙 棒棒的是 Sam,是他制作的表格并分享出来了