外贸

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

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

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

 

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

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

68条评论

发表我的评论

取消评论

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

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

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

您的邮箱地址不会公开,仅仅用于收取回复。建议填写QQ邮箱,不宜填写工作邮箱。
  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址 (没有就留空)
呃,评论有点多哦.. 请稍等
  1. 40楼
    子嬛Chrome · Windows 10

    我点了上面的按钮,表格是横向生成,点一下出来 model(2) 就跳到公司名称那栏,而不是 B 的下面,请问这个是怎么回事?

    11个月前 (03-21)
    福建
    回复
  2. 39楼
    CharlesChrome · Windows 10

    WPS 不能用啊

    3年前 (2020-07-29)
    日本
    回复
  3. 38楼
    VivianChrome · Windows 7

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

    3年前 (2020-01-02)
    江苏
    回复
  4. 37楼
    Miya TamChrome · Windows 7

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

    4年前 (2019-05-31)
    广东
    回复
  5. 36楼
    Miya TamChrome · Windows 7

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

    4年前 (2019-05-31)
    广东
    回复
  6. 35楼
    Miya TamChrome · Windows 7

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

    4年前 (2019-05-31)
    广东
    回复
  7. 34楼
    Miya TamChrome · Windows 7

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

    4年前 (2019-05-31)
    广东
    回复
  8. 33楼
    啦啦啦啦种太阳QQ浏览器 · Windows 7

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

    4年前 (2019-02-26)
    江苏
    回复
  9. 32楼
    JessieChrome · Mac OS X

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

    4年前 (2019-01-08)
    广东
    回复
    • JessieChrome · Mac OS X

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

      4年前 (2019-01-13)
      广东
    • littleyellowChrome · Windows 10

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

      4年前 (2019-01-17)
      湖南
    • JessieChrome · Mac OS X

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

      4年前 (2019-01-18)
      广东
    • NancyQQ浏览器 · Windows 7

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

      4年前 (2019-02-18)
      山西
  10. 31楼
    albaChrome · Windows 10

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

    4年前 (2018-11-29)
    北京
    回复