Excel+VBA製作小應用：票房數據

最近做了個可以查看影片票房的Excel，沒有什麼複雜的功能，基本都是從介面獲取的數據。工作簿包含6個工作表：

一、基礎數據

一個隱藏的DATA工作表，存儲了一些公共的數據。

二、票房數據

可以查看每天票房排行前十五的影片實時票房，加入了開啟、關閉自動刷新的功能按鈕，每4秒刷新一次。

已經產生的歷史票房和未來的預售票房都可以查詢，但是時間範圍有限。

三、排片數據

可以查看每天排前十的影片排片和座位數據，可以分時段查詢，暫不支持地區（地區較多，我還沒考慮好展現方式）。

四、影院數據

可以查詢排名前200的各影院、院線的票房、人次信息，為保證數據準確時，只支持查詢到前一天。

五、影庫數據

可以查詢2010年至今年的每年票房排名以及累計排名，累計顯示前100名。支持分類型、檔期查詢，地圖暫時也是沒有的。

六、影片數據

支持查詢影片的票房、排片以及導演、演員等資料。這個作為一個獨立的工作表，可以在頁面里切換要顯示的數據，但是想更換影片必須回到之前的工作表，雙擊有影片名稱的單元格。

因為代碼很沒技術含量，這次就直接放文件了。設置了一個工程密碼，這個密碼只能攔住看不懂代碼的人，所以有些騙自己的意思在裡面。

數據來源：https://piaofang.wepiao.com/

下載地址：票房分析3.0

碰到任何BUG歡迎留言反饋，謝謝！

推薦閱讀：