沒想到！把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樣版也要送的