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

admin 2021-05-04 01:54 电商知识

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

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

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

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

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

EXCEL2003设置方法:顶部菜单栏“工具”- “选项” 。此时弹出“选项”设置栏点击“安全性”选项卡,再点“宏安全性”。然后弹出“安全性”级别设置,将安全性级别选为“低”即可。EXCEL2007设置方法:顶部菜单栏“开发工具”- “宏安全性” 。宏设置选项卡中右边选择启用所有宏,开发人员宏设置勾选“信任”。
表格下载地址:/uploads/allimg/202105/0401544617170 提取码: 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

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

上一篇:外贸之路:外贸展会如何出效果?重视展前和展
下一篇:忽视市场调查分析,你的外贸业务难度加倍!

猜你喜欢

手机扫一扫添加微信

13612992660