具体介绍若何用EXCEL制作产品售后治理系统

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

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节）制作完主界面后此系统就完成了。

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