外贸

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

料神Sam发布于 2017-03-09阅读 40188 次评论 68
  • 首页
  • >外贸>客户跟进表改进:利用VBA自动新增客户跟进详情表

2023 年 6 月更新:本文已失效。请查阅最新文章:最新版外贸客户跟进表格及使用说明

客户跟进表的原型是我于 2012 年原创分享的外贸业务跟进表格。关于业务类的表格文档,你可以在顶部下滑菜单的【文档】页面找到。
页面地址:https://www.liaosam.com/documents-download

上面页面分享的各类文件都是我自己一直用了很多年的业务表格,也受到了很多外贸人的好评。但是,由于我的客户跟进表使用了表间超链接以及单元格赋值公式,以及跟进详情表的单元格格式没有统一起来,总会陆续有外贸人向我反映各种问题。比如:

  • 每个客户的资料填写记录好以后还要再创建一个跟进详情表,每个基本信息单元格里还要设置好公式,有点麻烦。
  • 有时候某个单元格设置好格式后,显示的内容不太对。

所以我认为有必要改进一下客户跟进表。之前有料网的群友在原来的客户跟进表的基础上,做了一个可以自动添加客户信息的跟进表。可能没多少人注意,所以我做了一些调整,代码里添加了必要的注释,分享到这里供更多人使用。使用此表格要开启 EXCEL 的宏功能,不知道 excel xx 版本怎么开启宏的请自行百度。

使用必备前提:修改 Excel 宏安全级别

  • EXCEL2003 设置方法:顶部菜单栏“工具”- “选项” 。此时弹出“选项”设置栏点击“安全性”选项卡,再点“宏安全性”。然后弹出“安全性”级别设置,将安全性级别选为“低”即可。
  • EXCEL2007 设置方法:顶部菜单栏“开发工具”- “宏安全性” 。宏设置选项卡中右边选择启用所有宏,开发人员宏设置勾选“信任”。
表格下载地址已失效,请查看本文开头更新的最新文章使用说明。

核心 VBA 代码

Public ist As String

Public Sub create_new_sheet()

ist = ActiveCell.Row '活动单元格所在的行数
Sheets("Model").Copy Before:=Sheets("Model") '把具体跟进详情格式表复制一份,接着准备写入数据
Sheets(ist - 1).Name = ist - 2 '表名称= 行数减 2 即要创建的跟进详情表的表名称。
Sheets(ist - 1).Range("A1") = "=录入表!B" & ist '跟进详情表的表中 A1 单元格的值为录入总表中对应的单元格,如 C4
Sheets(ist - 1).Range("B2") = "=录入表!A" & ist
Sheets(ist - 1).Range("F2") = "第" & ist & "行"
Sheets(ist - 1).Range("B3") = "=录入表!D" & ist
Sheets(ist - 1).Range("F3") = "=录入表!E" & ist
Sheets(ist - 1).Range("B4") = "=录入表!C" & ist
Sheets(ist - 1).Range("F4") = "=录入表!I" & ist
Sheets(ist - 1).Range("B5") = "=录入表!H" & ist
Sheets(ist - 1).Range("F5") = "=录入表!K" & ist
Sheets(ist - 1).Range("B6") = "=录入表!F" & ist
Sheets(ist - 1).Range("F6") = "=录入表!J" & ist
Sheets(ist - 1).Range("B7") = "=录入表!L" & ist '依次完成所有单元格值的填充

Sheets("录入表").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(5, 99, 193)
ActiveCell.Font.Name = "Arial"
ActiveCell.Font.Size = 10
ActiveCell.HorizontalAlignment = xlLeft
ActiveCell.VerticalAlignment = xlCenter
ActiveCell.WrapText = False
ActiveCell.Orientation = 0
ActiveCell.AddIndent = False
ActiveCell.IndentLevel = 1
ActiveCell.ShrinkToFit = False
ActiveCell.ReadingOrder = xlContext
ActiveCell.MergeCells = False

End Sub

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

分享到: 微信 新浪微博 QQ Qzone
料神Sam
识不足则多虑,威不足则多怒,信不足则多言。
SiteGround外贸建站主机优惠券

68条评论

发表我的评论

取消评论

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

我不是机器人
设为私密评论
添加表情

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

您的邮箱地址不会公开,仅仅用于收取回复。建议填写QQ邮箱,不宜填写工作邮箱。
  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址 (没有就留空)
  • 问题验证:今年年份是?
呃,评论有点多哦.. 请稍等
  1. jackChrome · Windows 7

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

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

    6年前 (2018-09-15)
    广东
    回复
    • JAXChrome · Windows 10

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

      6年前 (2018-10-22)
      广东
      回复
    • AnnaChrome · Windows 10

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

      4年前 (2019-11-26)
      广东
      回复
  2. TristeChrome · Windows 10

    以搞定,谢谢

    7年前 (2017-08-21)
    北京
    回复
  3. TristeChrome · Windows 10

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

    7年前 (2017-08-18)
    北京
    回复
  4. TristeChrome · Windows 10

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

    7年前 (2017-08-18)
    北京
    回复
  5. 小璞叔叔搜狗浏览器 · Windows 7

    今天没事到这里,打算看看 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:

    7年前 (2017-08-09)
    上海
    回复
    • 小垃圾Chrome · Windows 7

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

      7年前 (2017-10-28)
      浙江
      回复
    • TrChrome · Windows 7

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

      4年前 (2020-06-30)
      福建
      回复
  6. 翔666Chrome · Windows 7

    该评论为私密评论

    7年前 (2017-07-13)
    美国
    回复
  7. GraceChrome · Windows 7

    感谢料神分享!

    7年前 (2017-04-13)
    江苏
    回复
  8. vickyChrome · Windows 7

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

    7年前 (2017-04-10)
    江苏
    回复
    • TrChrome · Windows 7

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

      4年前 (2020-06-30)
      福建
      回复
  9. JennyQQ浏览器 · Android

    该评论为私密评论

    7年前 (2017-03-30)
    山东
    回复
  10. 月寒竹Chrome · Windows XP

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

    7年前 (2017-03-29)
    河北
    回复
    • Liaosam 外贸综合症患者.搜狗浏览器 · Windows 7
      @月寒竹 WPS 的 VBA:
      https://pan.baidu.com/s/1pL0O8VD 密码:je58
      网上找的,不保证一定能用。
      7年前 (2017-03-29)
      江苏
      回复
      • RangoChrome · Windows 7

        @Liaosam 大神。链接失效了。

        7年前 (2017-03-30)
        广东
        回复
  11. DavidQQ浏览器 · Android

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

    7年前 (2017-03-28)
    广东
    回复
  12. MQQ浏览器 · Android

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

    7年前 (2017-03-28)
    山东
    回复
    • 小璞叔叔搜狗浏览器 · Windows 7

      @M 可以把“Model(2) Model(3)…”等表格删除掉,但“Model”这个表格保留。

      7年前 (2017-08-09)
      上海
      回复
  13. 小米加Chrome · Windows XP

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

    7年前 (2017-03-23)
    福建
    回复
    • 小璞叔叔搜狗浏览器 · Windows 10

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

      7年前 (2017-03-28)
      上海
      回复
      • 小璞叔叔搜狗浏览器 · Windows 7

        @小璞叔叔 看上方评论!

        7年前 (2017-08-09)
        上海
        回复
  14. 小米加Chrome · Windows XP

    谢谢料神,正是我需要的

    7年前 (2017-03-23)
    福建
    回复
  15. lily搜狗浏览器 · Windows XP

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

    7年前 (2017-03-21)
    广东
    回复
  16. nico搜狗浏览器 · Windows 7

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

    7年前 (2017-03-14)
    广东
    回复
    • 小璞叔叔搜狗浏览器 · Windows 10

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

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

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

      7年前 (2017-03-28)
      上海
      回复
      • 小KFirefox · Windows 7

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

        7年前 (2017-03-28)
        广东
        回复
        • 素颜Chrome · Windows 10

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

          7年前 (2017-03-31)
          美国
          回复
          • 小璞叔叔搜狗浏览器 · Windows 7

            @素颜 看一下上面的补充,会不会对你有帮助。

            7年前 (2017-08-09)
            上海
            回复
        • 小璞叔叔搜狗浏览器 · Windows 7

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

          7年前 (2017-08-09)
          上海
          回复
      • 素颜Chrome · Windows 10

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

        7年前 (2017-03-29)
        山东
        回复
        • 小璞叔叔搜狗浏览器 · Windows 7

          @素颜 看上方评论!

          7年前 (2017-08-09)
          上海
          回复
      • JJMozilla · iPhone

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

        7年前 (2017-03-29)
        浙江
        回复
        • 小璞叔叔搜狗浏览器 · Windows 7

          @JJ 这个,还是重新下载一个吧。 :cry:

          7年前 (2017-08-09)
          上海
          回复
      • HailyChrome · Windows 7

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

        7年前 (2017-06-24)
        广东
        回复
        • 小璞叔叔搜狗浏览器 · Windows 7

          @Haily 这个… 只服你! :mrgreen:

          7年前 (2017-08-09)
          上海
          回复
      • AndyChrome · Windows 7

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

        7年前 (2017-06-29)
        广东
        回复
        • RocChrome · Windows 7

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

          7年前 (2017-07-07)
          福建
          回复
          • 小璞叔叔搜狗浏览器 · Windows 7

            @Roc 上方评论 不知道会不会帮到你!

            7年前 (2017-08-09)
            上海
            回复
        • 小璞叔叔搜狗浏览器 · Windows 7

          @Andy 上方评论!

          7年前 (2017-08-09)
          上海
          回复
      • Chrome · Windows 7

        @小璞叔叔 该评论为私密评论

        7年前 (2017-07-29)
        江西
        回复
        • 小璞叔叔搜狗浏览器 · Windows 7

          @宏 该评论为私密评论

          7年前 (2017-08-09)
          上海
          回复
  17. RitaChrome · Windows XP

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

    7年前 (2017-03-10)
    重庆
    回复
    • MQQ浏览器 · Android

      @Rita 该评论为私密评论

      7年前 (2017-03-28)
      山东
      回复
    • TrChrome · Windows 7

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

      4年前 (2020-06-30)
      福建
      回复
  18. TineUC浏览器 · Windows 7

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

    7年前 (2017-03-10)
    广东
    回复
  19. daneQQ浏览器 · Windows 7

    不错的 感谢分享

    7年前 (2017-03-10)
    上海
    回复
  20. 小璞叔叔Chrome · Windows 7

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

    7年前 (2017-03-10)
    上海
    回复
    • 小橙QQ浏览器 · Android

      @小璞叔叔 你真是棒棒的

      7年前 (2017-03-28)
      浙江
      回复
      • 小璞叔叔搜狗浏览器 · Windows 7

        @小橙 棒棒的是 Sam,是他制作的表格并分享出来了 :mrgreen:

        7年前 (2017-08-09)
        上海
        回复