大家好，我是刘攀！

说明：今天我要做的就是订单+用户的日报！

这篇文章用到的工具有，Access2016数据库，Excel，VBA

解决问题：通过报表自动化解放你的双手！

一，数据上传数据库

1，先要有订单数据和用户数据！

2，要有每一天的数据，并打上日期！

3，用Excel的Power Pivot合并数据！

数据→新建查询→从文件→从文件夹

4，浏览→订单明细(自己的数据文件)→确定→确定

5，合并→合并和编辑

6，示例文件参数(Sheet1)→确定

7，把日期改为日期格式：订购日期→数据类型→日期

8，删除没用的行列：第一行订单明细→删除列→关闭并上载

9，查看是否合并成功!(成功就保存文件)

10，文件→另存为→这台电脑→桌面→订单明细(自定义文件名)→保存11，把数据上传到数据库，我用的是Access2016！

步骤：外部数据→Excel→浏览

12，浏览→订单明细(找到文件)→打开→确定

13，依次下一步！

14，不要主键→下一步！

15，把导入表列下面的名字改为”订单明细！

16，以相同的方法把订用户数据上传到数据库！

二，制作日报表模板！

(1，先打开一个新的Excel，我们需要3个页!确定我们要分析的内容(我分析的是订购用户数和订单数)添上日期！然后加上之前3天的数据!

2，累计用户数=之前累计的+新增的用户！累计订购用户，累计订单数和累计业务收入都是同理！

3，到转化区域页，插入→插入控件→把控件插入到表格上!

4，鼠标右键点击控件→设置控件格式

5，到数据源→数据源区域→选中2016/9/1按Ctrl+Shift+↓(下)

6，单元格链接→G5(控件前面一个单元格就行)→确定

7，点击控件→选择一个日期

8，在表的左边的第一行标上自己想要的数据标题，然后选中标题下的4行5列→公式→插入函数

9，OFFSET→确定

10，Reference→数据源！B1(点击一下日期标题)

11，Rows：G6(控件制定链接数字)→Cols填0→Height填4→Width填5(因为我们选中的4行5列) 注：所有步骤操作完成后不能直接按确定！一定要按：Ctrl+Shift+Enter(这样按才会出现数据)

12，修改日期格！鼠标右击→设置单元格格式

13，日期→2012/3/14→确定

14，选中日期和新增增用户数→插入→推荐图标.15，所有图标→柱形图→确定

16，注：这里一定要选选中日期后在按Ctrl选中订购用户数！(不按这个步骤来可能会出错)

选中数据→插入→推荐的图表(和上一步一样插入柱形图就行了)

17，把4个数据都做一个自己想要的图表！(我们做的这个图是要给老板看的)18，在数据转化区的右边做一个和数据相对应的表格

19，我们需要把前面表格实时的数据转移到后面的表格！(例如：当日新增用户数，=B5)

20，以同样的道理把昨日的数据也给他转移到后面！

21，用今天的新增用户数减去昨天的新增用户数的差除以昨天的新增用户数！算出新增用户数的环比！(同理算出其他数据的环比)

22，和之前第13步一样，右击鼠标→设置单元格格式→百分比→小数位数→2→确定

23，累计用户：=数据源当天的累计用户数！累计订购用户数，累计订单数和累计业务收入也是同理!

24，这里分为两个部分！红色的为纯文本的！另一部分是需要转化的！(每一段都是要占用一个单元格的！

24，转化区：115，和前面第19步一样直接用“=“转化过来就行了!

=IF(N3>0,"上升",IF(N3<0,"下降","持平"))

IF是判断，N3是新增用户的环比！(这个函数的意思是：如果环比大于0那么就显示上升，如果环比小于0就显示下降，如果环比等于0就显示持平)

25，因为我们前面已经给他打上了上升和下降的标签！后面只需要一个没有正负号的百分比！(函数的意思;把新增用户环比转变为保留一位小数，不带符号的文本！)

=TEXT(ABS(N3),"0.0%")

26，因为我们这里累计用户数过万了，所以为了方便阅读我们把累计用户数除以1万，然后在后面一个单元格价格单位万！(函数的意思：把累计用户数除以1万保留小数点后一位数)

=TEXT(O3/10000,"0.0")

27，以相同的道理把当日订购用户，当日新增订单数和当日业务收入改成以万为单位就行了(数据量小可以不用该，直接“=“过来就行了)其他的和上面一样就行了！

28，把上面转化区的文本合并起来！(CONCATENATE函数的意思将多个文本字符串合并成一个！例如=CONCATENATE(A1，B1))

29，在日报告区插入个控件!要是不记得了看前面的第3步！

30，控件插入之前都有写过炒作完全一样！唯一不同的就是两个控件不在同一个表格(注：后面这个控件的单元格链接一定要选择到上一个控件的单元格链接位置！这样才能实现控件加图的联动!)

31，把之前在报告区所写的“='过来！然后把报告区相应的图复制过来！

32，和上一步一样把4个数据的报告和图表转换过来!

三，VBA提取数据库数据

1，开发工具→Visual Basic(打开VBA)

2，鼠标右击日报→插入→模块

3，写代码(数据库的原文件一定要和日报放在一起代码才能运行)

Sub 每日数据提取()

'声明变量类型

Dim AdoConn As New ADODB.Connection '定义一个变量AdoConn，用来链接数据库，以及关闭数据库

Dim D1 As Date

Dim D2 As Date

Dim N As Integer

Dim MyData As String

Dim strSQL1 As String

Dim strSQL2 As String

Dim strSQL3 As String

Dim strSQL4 As String

'InputBox函数打开输入对话框，输入日期，并赋值给D1

D1 = InputBox("请输入需要提取的日期，比如：2016-9-4", "提取日期")

D2 = D1 + 1

'定位第3列，第一个空单元格的行数，并赋值给N

N = ActiveSheet.Range("C1").End(xlDown).Row + 1

MyData = ThisWorkbook.Path & "\ribao.accdb" '数据库文件和日报在一个路径

'建立数据裤链接,并打开指定路径的数据库

With AdoConn

.Provider = "Microsoft.ACE.OLEDB.12.0"

.Open MyData

End With

'根据我们的实际要求，编写拉取数据SQL语句

strSQL1 = "SELECT count(用户ID) FROM 用户明细 WHERE 注册日期< # " & D2 & " # AND 注册日期 >= # " & D1 & " #"

strSQL2 = "SELECT count(用户ID) FROM (SELECT DISTINCT 用户ID FROM 订单明细 WHERE 订购日期< # " & D2 & " # AND 订购日期 >= # " & D1 & " #)"

strSQL3 = "SELECT count(订单编号) FROM 订单明细 WHERE 订购日期< # " & D2 & " # AND 订购日期 >= # " & D1 & " #"

strSQL4 = "SELECT sum(订购金额) FROM 订单明细 WHERE 订购日期< # " & D2 & " # AND 订购日期 >= # " & D1 & " #"

'从数据库中拉取数据，并将数据写入到Excel工作表中

ActiveSheet.Cells(N, 3).CopyFromRecordset AdoConn.Execute(strSQL1)

ActiveSheet.Cells(N, 4).CopyFromRecordset AdoConn.Execute(strSQL2)

ActiveSheet.Cells(N, 5).CopyFromRecordset AdoConn.Execute(strSQL3)

ActiveSheet.Cells(N, 6).CopyFromRecordset AdoConn.Execute(strSQL4)

End Sub

4，因为代码里面设计到一个包，所以我们需要导入一个包！

点开工具→引用→找到Microsoft ActiveX Data Objects 2.8 Libray(打上勾)→确定5，到数据源：开发工具→插入→选择第一个控件插到表格旁边！

6，按钮1上右击鼠标→制定宏

7，每日数据提取→确定

8，点击按钮运行！→2016-9-4→确定(提取数据库数据)

四，保存文件

(注：这一步一定要看不然你之前做的就可能白做)

1，点击Excel左上角的文件

2，另存为→这台电脑→桌面→保存类型→Excel启用宏的工作簿→确定(桌面上就有了你的日报模板)

3，有的电脑是禁用宏的！所以我们要设置一下！

点击Excel左上角的文件→选择→信任中心→信任中心设置→宏设置→禁用所有宏，并发出通知！(这里不建议启用所有宏)→确定

4，每次用日报他就会发出警告！点击启用类容就行！