没想到！把excel统计表做成日历后，太高级了

兰 色 最 近 在 发 愁 一 件 事 情 ： 用 透 视 表 做 的 月 统 计 表 ， 总 感 觉 太 l o w 了 。

于 是 兰 色 又 开 启 天 马 行 空 式 的 思 索 . . . . . 哈 哈 ， 脑 海 里 竟 然 浮 现 出 日 历 的 模 板 ， 说 做 就 做 ， 做 出 的 效 果 真 的 不 一 般 ， 不 仅 颜 值 拉 满 ， 而 且 非 常 的 实 用 。

你 以 为 仅 如 此 吗 ? N O ! 它 还 可 以 查 看 详 细 销 售 项 目 汇 总 。

还 可 以 生 成 详 细 销 售 清 单

嘿 嘿 . . . 我 猜 你 肯 定 想 知 道 是 怎 么 做 到 的 ， 下 面 跟 兰 色 一 起 做 吧 。

步 骤 1 做 日 历

在 第 一 个 格 中 输 入 公 式

= D A T E ( C 3 , E 3 , 1 ) - W E E K D A Y ( D A T E ( C 3 , E 3 , 1 ) , 2 ) + 1

其 他 日 期 用 + 1 和 + 7 即 可 生 成 。

把 非 本 月 的 日 期 隐 藏 ： 按 c t r l 从 下 向 上 选 取 日 期 行 添 加 条 件 格 式

条 件 ： = m o n t h ( C 6 ) < > $ E $ 3

格 式 ： 自 定 义 代 码 ; ; ; ( 3 个 分 号 )

再 把 通 过 自 定 义 代 码 d 把 日 期 显 示 成 天 数 。

步 骤 2 添 加 每 日 销 售 汇 总 数 字

= I F ( M O N T H ( C 6 ) < > $ E $ 3 , 0 , S U M I F ( 销 售 明 细 表 ! $ B : $ B , C 6 , 销 售 明 细 表 ! $ G : $ G ) )

注 ： 如 果 不 是 本 月 日 期 结 果 返 回 0 ， 是 本 月 就 根 据 日 期 用 S U M I F 从 销 售 明 细 表 中 汇 总 金 额 。 销 售 明 细 表 ! $ B : $ B 为 日 期 列 ， 销 售 明 细 表 ! $ G : $ G 为 金 额 列 。

步 骤 3 生 成 销 售 汇 总 和 销 售 明 细

这 里 要 使 用 两 段 代 码 辅 助 完 成

把 选 取 的 日 期 输 入 到 单 元 格 中 的 事 件 程 序 ：

添 加 方 法 ： 在 工 作 表 标 签 上 右 键 - 查 看 代 码 - 把 下 面 代 码 粘 贴 到 右 侧 的 空 白 处

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)OnErrorResumeNextIfTarget.Column<10AndTarget.Column>2AndTarget.Row>5AndTarget.Row<16ThenIfIsDate(Target)Then[Q2]=TargetElse[Q2]=Target.Offset(-1,0)EndIf生成明细EndIfEndSub

生 成 销 售 明 细 的 筛 选 代 码

添 加 方 法 ： 在 工 作 表 标 签 上 右 键 - 查 看 代 码 - 在 新 窗 口 中 插 入 - 模 块 ， 把 下 面 的 代 码 粘 贴 空 白 处 。

Sub生成明细()Sheets("销售明细表").Range("B1:L1100").AdvancedFilterAction:=xlFilterCopy,_CriteriaRange:=Range("销信日历!Criteria"),CopyToRange:=Range("Q5:AA5"),_Unique:=FalseEndSub

如 果 你 的 版 本 是 o f f i c e 3 6 5 ， 上 面 这 段 代 码 可 以 用 f i l t e r 公 式 完 成 。

步 骤 4 另 存 为 启 用 宏 的 e x c e l 工 作 簿

兰 色 说： 销 售日历模板 已收录进兰色excel模板大全的第 13集（已更新24套） ， 每套模板 都 含 5~ 30 集视 频 教程 。

点击下面链接即可购买兰色的【excel实用模板大全】教程， 当然excel模板也要送的