客户跟进表改进:利用VBA自动新增客户跟进详情表

LiaoSam2017-03-09外贸25850 次访问67 评论

客户跟进表的原型是我于 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

 

本站所有文章除注明“转载”的文章之外,均为原创。未经本站允许,请勿随意转载或用作任何商业用途,否则依法追究侵权者法律责任的权利。

分享到微信朋友圈

LiaoSam
LiaoSam
识不足则多虑,威不足则多怒,信不足则多言。

67条评论

发表我的评论

取消评论

邮箱白名单说明:最近料网自动提醒邮件经常会被一些邮件服务商拦截。为了您顺利并及时地收取留言被回复的提醒邮件,请在您邮箱中把料网 liaosam.com 加入白名单域名。

已读说明
设为私密评论
添加表情

Hi,您需要填写昵称和邮箱!

您的邮箱地址不会公开,仅仅用于收取回复。建议填写QQ邮箱,不宜填写工作邮箱。
  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址 (没有就留空)
呃,评论有点多呢... 料网小秘书为您玩命加载中...
  1. #29
    Charles

    WPS不能用啊

    1周前 (07-29)回复
  2. #28
    Vivian

    为什么按照方法 详情页不自动录入呢

    7个月前 (01-02)回复
  3. #27
    Miya Tam

    我发现只要不去动原有的两行信息,从第三个信息开始每次输入弯就点击等级再点击按钮,所有一切都没问题,但是只要修改原有信息就会出现问题了

    1年前 (2019-05-31)回复
  4. #26
    Miya Tam

    我下载表格下来,按照评论很多小伙伴说的放大,删掉了原本已有的两行信息,自己重写输入,然后点击等级再按顶上按钮,分表里面电话号码跟信息敏感度就变成了“=录入表!I4″ 但是后面3之后的表格又没有出现这种问题。就是被重新输入信息的1,2会有这个问题,然后底下也会有model2,3,4,不过没生产一个新的表格就会消失掉一个model,生一个新的,底下一直保持有一个model,还有另外两个model,2,3,4轮着来出现的。请问我这样子操作是正确的吗?

    1年前 (2019-05-31)回复
  5. #25
    Miya Tam

    但是我在汇总表格录入信息之后,会自动生成一个分表,很厉害啊,这样子的话,其实不就已经足够了吗?但是我不懂下面这一大串宏代码要怎么用?是不是我们用表格就可以了,这串代码自己是用不上的?然后我好像多了一个model(3)

    1年前 (2019-05-31)回复
  6. #24
    Miya Tam

    在网盘下载了表格,然后也修改了EXCEL里面的宏安全性,然后我看着下面这一堆代码,完全不知道是要干嘛的?填哪里怎么用?看了很多人的评论还是一脸懵圈 :razz:

    1年前 (2019-05-31)回复
  7. #23
    啦啦啦啦种太阳

    在汇总表中添加一条记录。写好后,注意操作步骤:点击一下该行的客户等级单元格,然后再点击上方的添加按钮。
    为什么我这里开始就一脸懵了。哪里有添加按钮呢?

    1年前 (2019-02-26)回复
  8. #22
    Jessie

    表格下载地址:http://7xjsw4.com1.z0.glb.clouddn.com/auto-follow.xlsm 这个链接好像是进不去了?在网盘里下载下来的客户信息表是没有model那一页的,输入VB命令去制作宏的时候就会出现错误。

    2年前 (2019-01-08)回复
    • Jessie

      @Jessie 我搞好了…. 原来是要另外自己做个model页面。然后宏也要修改一点点细节。
      现在可以批量的将客户信息转化成详情页面了,还可以在中间任意添加某一个客户信息。✌️

      2年前 (2019-01-13)回复
      • littleyellow

        @Jessie 在网盘客户跟进表里做Model页面吗?我用的WPS

        2年前 (2019-01-17)回复
        • Jessie

          @littleyellow 我在原来的客户跟进表做的,只是增加了一个Model页面。我估计料神老师留下的链接后面更新了。所以看不到model表。需要自己做一个。

          2年前 (2019-01-18)回复
    • Nancy

      @Jessie 你好,下载之前的表格后,增加一个命名为:Model的空白工作表,然后写入宏代码,请问代码需要修改什么地方呢?还没有弄成功,麻烦了。我的QQ是1169444912,方便的话能加一下您QQ吗?

      1年前 (2019-02-18)回复
  9. #21
    alba

    看了好几遍依旧看的一头雾水,我没有找到model名字的列表啊,我也没有找到等级“添加”的按钮啊

    2年前 (2018-11-29)回复
  10. #20
    jack

    出问题其实很简单,我已经解决,就是下载了这个表格之后,一开始你要先点击一下B4也就是等级B,然后再点击上面的按钮,这样就创建了Bee Bee的表格2了,出问题就是因为跨过了序号2,model程序自动生成了model2,所有程序就会按model2执行,但是model2是个空架子,我们用的宏是用model的

    总结:先点击B4表格的等级B,在点击上方的按钮就好了;后续要添加客户,就继续点击B5表格,再点击上方按钮,创建一个新的客户表“’3′!A1” ,也就是C3,这个名字可以改成你客户的名字,不懂再问。。。

    2年前 (2018-09-15)回复
    • JAX

      @jack 请问,这个添加按钮在哪呢?

      2年前 (2018-10-22)回复
    • Anna

      @jack 你好,始终不知道你说的“上方按钮”在哪?

      8个月前 (11-26)回复
  11. #19
    Triste

    以搞定,谢谢

    3年前 (2017-08-21)回复
  12. #18
    Triste

    Sheets(ist – 1).Name = ist – 2 提示下标越界 office2007

    3年前 (2017-08-18)回复
  13. #17
    Triste

    offices 2007 去不开启之后,还是显示禁用啊

    3年前 (2017-08-18)回复
  14. #16

    今天没事到这里,打算看看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. 有一次,我把同一个公司的两个联系人放到两行,然后合并单元格,之后就出错了。看来,合并单元格也不能有哦!(如果有其他问题,问料大,我不懂代码!) :cry:

    3年前 (2017-08-09)回复
    • 小垃圾

      @小璞叔叔 完美解决我的问题,想给你点赞

      3年前 (2017-10-28)回复
    • Tr

      @小璞叔叔 很厉害, 解决我的问题, 点赞, 请问您有没有好用的表格可以分享。

      1个月前 (06-30)回复
  15. #15
    翔666

    该评论为私密评论

    3年前 (2017-07-13)回复
  16. #14
    Grace

    感谢料神分享!

    3年前 (2017-04-13)回复
  17. #13
    vicky

    为什么宏启用后后还是显示禁用呢,还有VBA错误(40040)

    3年前 (2017-04-10)回复
    • Tr

      @vicky 我也是, 我一直用的是wps, 请问这个是excel 吗?

      1个月前 (06-30)回复
  18. #12
    Jenny

    该评论为私密评论

    3年前 (2017-03-30)回复
  19. #11
    月寒竹

    谢谢分享,但是WPS 的VBA在哪里下载安全?

    3年前 (2017-03-29)回复
    • LiaoSam
      Liaosam,外贸综合症患者。
      @月寒竹 WPS 的 VBA:
      https://pan.baidu.com/s/1pL0O8VD 密码:je58
      网上找的,不保证一定能用。
      3年前 (2017-03-29)回复
      • Rango

        @Liaosam 大神。链接失效了。

        3年前 (2017-03-30)回复
  20. #10
    David

    太牛逼了,正是我所需要的

    3年前 (2017-03-28)回复
  21. #9
    M

    添加客户之后, 有很多 model model(2) model(3),,,,,,等等, 不能删掉吗

    3年前 (2017-03-28)回复
    • @M 可以把“Model(2) Model(3)…”等表格删除掉,但“Model”这个表格保留。

      3年前 (2017-08-09)回复
  22. #8
    小米加

    同问,添加第四个客户时,也出现如下提示: 运行时错误”9“,下标越界. 这是怎么回事?

    3年前 (2017-03-23)回复
    • 小璞叔叔

      @小米加 请看下方评论! :wink:

      3年前 (2017-03-28)回复
  23. #7
    小米加

    谢谢料神,正是我需要的

    3年前 (2017-03-23)回复
  24. #6
    lily

    excel的宏功能已打开,但提示无法运行“copysheet”宏,

    3年前 (2017-03-21)回复
  25. #5
    nico

    为啥添加第四个客户的时候,显示运行时错误‘9’,下标越界.

    3年前 (2017-03-14)回复
    • 小璞叔叔

      @nico 我也遇到了这样的情况。

      作为一个爱折腾的小白,查阅资料之后发现错误9’下标越界是引用超出范围了。
      如果你仔细看一下sheet栏,之前的’Model’ 变成’Model(2)’
      这时只需要把它改回’Model’,表格就满血复活了呀!

      最近没见Sam更新, 据说是“干大事” 去了!
      等的好捉急的说~ :smile:

      3年前 (2017-03-28)回复
      • 小K

        @小璞叔叔 这个方法还是有问题的,修改之后会发现很多的model(3),(4)而且排名靠前建立的客户的tab也可能没有了。

        3年前 (2017-03-28)回复
        • 素颜

          @小K 好像是的,你有解决的方法吗?

          3年前 (2017-03-31)回复
          • @素颜 看一下上面的补充,会不会对你有帮助。

            3年前 (2017-08-09)回复
        • @小K 可以把多余的“Model(2), Model(3)…”删除掉,只保留“Model”。
          之前遇到表格信息错位的时候,我把最新添加的一行信息删除,之后重新添加。
          问题就解决了。
          不知道这样会不会帮到你。
          关于代码什么的,我也不懂。都是凭着自己的想法,慢慢摸索的。

          3年前 (2017-08-09)回复
      • 素颜

        @小璞叔叔 按照你说的办法还是不行呀

        3年前 (2017-03-29)回复
      • JJ

        @小璞叔叔 已经删掉了怎么办?

        3年前 (2017-03-29)回复
      • Haily

        @小璞叔叔 我也碰到了一样的问题,后来在米课里问了sam大神,说是我把model那个空白表删掉了,哈哈,我也真是够笨的。我也是个爱折腾的小白。

        3年前 (2017-06-24)回复
      • Andy

        @小璞叔叔 sheet栏,Model还在,但是还是显示下标越界,请问怎么解决?

        3年前 (2017-06-29)回复
        • Roc

          @Andy 我也是一样的.. 请问Sam怎么解决这问题

          3年前 (2017-07-07)回复
        • @Andy 上方评论!

          3年前 (2017-08-09)回复
      • @小璞叔叔 该评论为私密评论

        3年前 (2017-07-29)回复
  26. #4
    Rita

    WPS的要下载VBA模块才能用,谢谢料神分享,很好用的表格

    3年前 (2017-03-10)回复
    • M

      @Rita 该评论为私密评论

      3年前 (2017-03-28)回复
    • Tr

      @Rita 请问怎么下载, 我这边显示是要钱?

      1个月前 (06-30)回复
  27. #3
    Tine

    现在就实践一下,之前的客户跟踪表不知道怎么添加多客户上去

    3年前 (2017-03-10)回复
  28. #2
    dane

    不错的 感谢分享

    3年前 (2017-03-10)回复
  29. #1
    小璞叔叔

    先学习起来,下班回去开始实践! :mrgreen:

    3年前 (2017-03-10)回复
    • 小橙

      @小璞叔叔 你真是棒棒的

      3年前 (2017-03-28)回复
      • @小橙 棒棒的是 Sam,是他制作的表格并分享出来了 :mrgreen:

        3年前 (2017-08-09)回复