详细介绍，如何用EXCEL制作产品售后管理系统

欢迎大家来到IT世界,在知识的湖畔探索吧!

产品售后管理系统制作

本文教程以最近发布的《产品售后管理系统》为例进行讲解。

1、基础数据

1.1 首先按下图所示创建5个工作表，分别命名为index、售后信息查询、售后信息录入、数据源、下拉信息。

1.2 在下拉信息创建如下4个表。

1.3 按下图所示顺序，选中表—公式—根据所选内容创建定义名称—首行—确定。将所有表添加到名称管理器里。

1.4 在数据源工作表中创建下图的表格。并任意输入两行数据。

1.5 在辅助列输入公式”=MONTH(G3)”,自动读取当前行日期的月份，方便后面按月查询。

2、售后信息录入

2.1 如下图所示，在售后信息录入的工作表中创建如下内容。

2.2 添加按钮：选择开发工具—插入按钮。将插入的按钮复制拖动到如下图位置，并分别命名为“录入”，“清除”，“单号清零”。

2.3 单号自动获取：

2.3.1 在“G4”单元格输入公式：=IF(MONTH(K4)<10,”0″&MONTH(K4),MONTH(K4))

2.3.2 将“I4”单元格输入1，并在“E6”单元格输入公式：=”RE”&RIGHT(YEAR(K4),2)&G4&I4，这样便可根据日期自动生产售后单号，录入数据后通过更新“I4”数字便可实现自动更新单号。

2.4 录入按钮代码：插入模块。依次选择 开发工具—Visual Basic—右键单击空白处—插入—模块。

Sub 信息录入()

2.5 在模块1中输入如下代码：（红色字体为代码注释）

Sub 数据录入()（创建名为数据录入的宏）

If Sheet1.Cells(8, 5) = “” Or Sheet1.Cells(8, 8) = “” Or Sheet1.Cells(8, 11) = “” Then

MsgBox “请先录入一条信息！”

Exit Sub

End If

（以上代码为判断第一行数据是否有输入，如未输入则退出宏）

a = Sheet2.Cells(Rows.Count, 1).End(xlUp)(2, 1).Row

（以上代码是获取数据源表格中第一列最后一行非空单元格的行号，并将获取的行号下移一行）

Dim i As Integer（定义变量i）

For i = 8 To 17（i为录入数据的行号）

If Sheet1.Cells(i, 5) <> “” Then （判断i行是否为空值，不为空值则将下列数据录入到数据库）

Sheet2.Cells(a, 1) = Sheet1.Cells(6, 5) ‘单号

Sheet2.Cells(a, 2) = Sheet1.Cells(i, 5) ‘编码

Sheet2.Cells(a, 3) = 1 ‘数量

Sheet2.Cells(a, 4) = Sheet1.Cells(i, 8) ‘现象

Sheet2.Cells(a, 5) = Sheet1.Cells(i, 11) ‘措施

Sheet2.Cells(a, 6) = Sheet1.Cells(6, 8) ‘负责人

Sheet2.Cells(a, 7) = Sheet1.Cells(4, 11) ‘日期

Sheet2.Cells(a, 9) = Sheet1.Cells(i, 14) ‘客户

a = a + 1

End If

Next

Sheet1.Cells(4, 9) = Sheet1.Cells(4, 9) + 1（“H4”单元格加1，售后单号更新）

MsgBox “售后信息录入成功！”

Sheet1.Range(“e8:e17”) = “”

Sheet1.Range(“h8:h17”) = “”

Sheet1.Range(“n8:n17”) = “”

Sheet1.Range(“k8:k17”) = “”

Sheet1.Range(“H6”) = “”

（清除录入框的数据）

End Sub

2.5 输入好代码后，就录入按钮的宏指定到刚刚创建的宏下，选择录入按钮，右键指定宏，选择刚刚创建的宏名“数据录入”即可。

2.6 清除按钮代码：输入代码后按上面的方式将清除按钮指定到数据清除宏下即可。

Sub 数据清除()

Sheet1.Range(“e8:e17”) = “”

Sheet1.Range(“h8:h17”) = “”

Sheet1.Range(“n8:n17”) = “”

Sheet1.Range(“k8:k17”) = “”

Sheet1.Range(“H6”) = “”

End Sub

2.7 单号清零代码：输入代码后按上面的方式将单号清零指定到单号清零宏下即可。

Sub 单号清零()

Sheet1.Cells(4, 9) = 1

End Sub

2.8 创建下拉选择：按下图方式，点击需要下拉选择信息的单元格一次点击：数据—数据验证—数据验证

2.9 选择序列，并输如=indirect($G$8),按同样的方法将所有需要创建下拉选择的单元格是指完成。

2.10 返回按钮超链接：单击画好的形状图标，选择链接，选择“本文档中的位置”，点击“index”，再点击确定即可。如下图所示。

2.11 到这里，售后录入界面制作完成了，最后可将 “G4”“I4”单元格，将字体颜色设置成背景色（如下图所示）。

3、售后信息查询

3.1 售后信息查询界面制作：按下图制作售后信息查询界面，并按前面的方法制作三个按钮拖放到对应位置。

3.2 增加数字调节按钮。按下图所示，并将数字调节按钮拖放到对应位置。

3.3 按下图所示，设置数字调节按钮的属性：点击数字调节按钮—设置控件格式—然后按红框区域的数值设置好后点击确定即可。

3.4 页码设置：在“K13”单元格输入公式：=IF(K8=1,”第 1 页”,”第 “&LEFT(K8,1)+RIGHT(K8,1)&” 页”)，这样便可根据数字调节按钮自动更新页码。

3.5 在月份后面的查询按钮输入代码：将代码写在模块2中。

3.5.1 代码及注释（红色字为代码注释）

Sub 月份查询¯()

If Sheet4.Cells(6, 5) = “” Then

MsgBox “请先输入月份”

Exit Sub

End If

（判断月份输入框是否为空，为空则退出宏，并弹窗提醒）

a = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row

（获取数据库第一列最后一行非空值的行号）

Sheet4.Range(“d9:j18”) = “”

Sheet4.Range(“K8”) = 1

（清除显示查询信息框的内容）

Dim i, k As Integer

k = 9

For i = a To 3 Step -1

If Sheet4.Cells(6, 5) = Sheet2.Cells(i, 8) Then

（判断月份输入框的值是否与数据库辅助列月的内容一样，一样的话则执行下列数据读取代码）

Sheet4.Cells(k, 4) = Sheet2.Cells(i, 1)

Sheet4.Cells(k, 5) = Sheet2.Cells(i, 2)

Sheet4.Cells(k, 6) = Sheet2.Cells(i, 4)

Sheet4.Cells(k, 7) = Sheet2.Cells(i, 5)

Sheet4.Cells(k, 8) = Sheet2.Cells(i, 6)

Sheet4.Cells(k, 9) = Sheet2.Cells(i, 9)

Sheet4.Cells(k, 10) = Sheet2.Cells(i, 7)

k = k + 1

End If

If k > 18 Then i = 3（信息读取到18行跳出循环）

Next

End Sub

3.5.2 查询代码录入好后将查询按钮指定到对应宏下即可。

3.5.3 翻页显示代码（下面有两个宏，分别为“月份翻阅查询”和“第二页”）主要是通过数字调节按钮的数字大小来执行对应的宏。由于数据读取的代码与前面的类似，这里我就不再详细解释。然后翻页显示的逻辑主要是通过判断“K8”单元格的值，将查询到的数据根据“K8”单元格的值进行对应显示。详细代码如下所示，如有疑问可在评论区留言，我看到后会及时回复。

Sub 月份翻页查询¯()

a = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row

Sheet4.Range(“d9:j18”) = “”

Dim i, b, d As Integer

d = 0

For i = a To 3 Step -1

If Sheet4.Cells(6, 5) = Sheet2.Cells(i, 8) Then

b = i

d = d + 1

Sheet4.Range(“k6”) = b

End If

If d < 11 And Sheet4.Range(“k8”) < 11 Then

Call第二页³

Exit Sub

End If

If d >= 11 And Sheet4.Range(“k8”) >= 11 And Sheet4.Range(“k8”) < 21 Then

Call 第二页

Exit Sub

End If

If d >= 21 And Sheet4.Range(“k8”) >= 21 And Sheet4.Range(“k8”) < 31 Then

Call 第二页

Exit Sub

End If

If d >= 31 And Sheet4.Range(“k8”) >= 31 And Sheet4.Range(“k8”) < 41 Then

Call 第二页

Exit Sub

End If

If d >= 41 And Sheet4.Range(“k8”) >= 41 And Sheet4.Range(“k8”) < 51 Then

Call 第二页

Exit Sub

End If

If d >= 51 And Sheet4.Range(“k8”) >= 51 And Sheet4.Range(“k8”) < 61 Then

Call第二页

Exit Sub

End If

If d >= 61 And Sheet4.Range(“k8”) >= 61 And Sheet4.Range(“k8”) < 71 Then

Call 第二页

Exit Sub

End If

If d >= 71 And Sheet4.Range(“k8”) >= 71 And Sheet4.Range(“k8”) < 81 Then

Call 第二页

Exit Sub

End If

If d >= 81 And Sheet4.Range(“k8”) >= 81 And Sheet4.Range(“k8”) < 91 Then

Call 第二页

Exit Sub

End If

If d >= 91 And Sheet4.Range(“k8”) >= 91 Then

Call第二页³

Exit Sub

End If

Next

End Sub

Sub 第二页()

Dim i, k As Integer

k = 9

a = Sheet4.Range(“k6”)

Sheet4.Range(“d9:j18”) = “”

For i = a To 3 Step -1

If Sheet4.Cells(6, 5) = Sheet2.Cells(i, 8) Then

Sheet4.Cells(k, 4) = Sheet2.Cells(i, 1)

Sheet4.Cells(k, 5) = Sheet2.Cells(i, 2)

Sheet4.Cells(k, 6) = Sheet2.Cells(i, 4)

Sheet4.Cells(k, 7) = Sheet2.Cells(i, 5)

Sheet4.Cells(k, 8) = Sheet2.Cells(i, 6)

Sheet4.Cells(k, 9) = Sheet2.Cells(i, 9)

Sheet4.Cells(k, 10) = Sheet2.Cells(i, 7)

k = k + 1

End If

If k > 18 Then i = 3

Next

End Sub

3.6 条码查询按钮代码如下所示，这里代码与前面解释的类似，也不再详细注释，有疑问可在评论区留言。

Sub 条码查询¯()

If Sheet4.Cells(6, 8) = “” Then

MsgBox “请先输入产品条码”

Exit Sub

End If

Sheet4.Range(“K8”) = 1

a = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row

Sheet4.Range(“d9:j18”) = “”

Dim i, k As Integer

k = 9

For i = a To 3 Step -1

If Sheet4.Cells(6, 8) = Sheet2.Cells(i, 2) Then

Sheet4.Cells(k, 4) = Sheet2.Cells(i, 1)

Sheet4.Cells(k, 5) = Sheet2.Cells(i, 2)

Sheet4.Cells(k, 6) = Sheet2.Cells(i, 4)

Sheet4.Cells(k, 7) = Sheet2.Cells(i, 5)

Sheet4.Cells(k, 8) = Sheet2.Cells(i, 6)

Sheet4.Cells(k, 9) = Sheet2.Cells(i, 9)

Sheet4.Cells(k, 10) = Sheet2.Cells(i, 7) ‘

k = k + 1

End If

If k > 18 Then i = 3

Next

End Sub

3.7 清除数据代码：

Sub清除数据()

Sheet4.Range(“d9:j18”) = “”

Sheet4.Range(“e6”) = “”

Sheet4.Range(“h6”) = “”

Sheet4.Range(“K8”) = 1

End Sub

3.8 将所有代码录入好后，并将对应按钮指定到对应宏即可。

4、主界面制作：按下图所示在主界面用图形按钮制作两个按钮，并输入内容。用超链接的方式链接到对应页面即可（超链接方式见本文2.10节）制作完主界面后此系统就完成了。

结语：由于篇幅限制，本次的分享就到这里，由于涉及的知识点较多，所以有些地方讲解不是很细。如果有疑问可以在评论区留言，小编看到了会及时回复的。有兴趣的可以结合作品同步学习，如有分享不到位的地方还请谅解！