客户跟进表改进：利用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

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