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

Ad · 小翼搜客 - 外贸主动开发获客系统 精准搜索进口买家与供应链优质客户！

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